[حل شده] شرايط احراز

[moslemi]

با سلام
دوستان در صورت امكان راهنمايي كنيد
يك فايل اكسل دارم با دو شيت
يكي نفرات و دومي شرايط احراز
مي خوام كساني كه حائز شرايط حكم گرفتن مي باشند از شيت شرايط احراز بخونه و جلوي كارمندي نشان بده
با تشكر

[iranweld]

با سلام

فایل پیوست را ملاحظه کنید

برای راحتی کار دیتای دو تا شیت در یک شیت تجمیع گردید

Sub test()

z1 = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row
z2 = Sheet1.Cells(Sheet1.Rows.Count, "h").End(xlUp).Row
z3 = Sheet1.Cells(Sheet1.Rows.Count, "f").End(xlUp).Row

Range("f2:f" & z3).ClearContents


For i = 2 To z1


For j = 2 To z2

If Range("b" & i) = Range("h" & j) And Range("c" & i) = Range("i" & j) _
  And Range("d" & i) >= Range("j" & j) And Range("e" & i) >= Range("k" & j) _
  And Range("b" & i) <> Range("l" & j) Then

Range("f" & i) = Range("l" & j)

End If

Next

Next


End Sub