عدد الخلايا بدون تكرار وبشروط

[mohamad.alnahas]

الأخوة الأعزاء 

 

أرجو المساعدة في معادلة للقيام بعد خلايا بدون تكرار وبشروط محددة .. كما  بالمرفق

ولكم جزيل الشكر والتقدير ،،،

Book1.rar

[ابو عبدالرحمن البغدادي]

تفضل - رمضان مبارك

Book1.rar

[سليم حاصبيا]

جرب هذا الماكرو

Sub My_Filter()
Range("g8").Resize(50, 3).ClearContents
Set myrg = Range("a2", Cells(Cells(Rows.Count, 1).End(3).Row, Cells(2, Columns.Count).End(1).Column))
For i = 1 To Cells(Rows.Count, 1).End(3).Row
     If Month(myrg(i, 1).Offset(0, 2)) = Month(Range("i5")) And _
     myrg(i, 1).Offset(0, 1) = myrg(i, 1).Offset(0, 1) Then _
     myrg(i, 1).Resize(1, 3).Copy Cells(p + 8, "g"): p = p + 1
     Application.CutCopyMode = False
  Next
End Sub

 

[mohamad.alnahas]

رمضان مبارك 

شكرا جزيلا علي المساعدة يا شباب.. 

وشكرا،،،