شرايط احراز

[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