استخراج الأشهر من التواريخ و كتابتها في خلية دون تكرار

[kamel26kamel]

2019.xlsx

تم تعديل يناير 12, 2019 بواسطه kamel26kamel

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

هذا الماكرو

Option Explicit

Sub Give_Months()
Dim lr%: lr = Cells(Rows.Count, "E").End(3).Row
Dim My_text$
Dim i%
For i = 2 To lr

  If Application.CountIf(Range("e2:e" & i), _
  Range("e" & i)) = 1 And Range("e" & i) <> "" Then
   My_text = My_text & Range("e" & i) & " ,"
  End If
 Next
 Range("H2") = Mid(My_text, 1, Len(My_text) - 2) & " ."
 Columns(8).AutoFit
End Sub

الملف مرفق

2019_salim.xlsm

[Ali Mohamed Ali]

أحسنت استاذ سليم بارك الله فيك كود ممتاز

[kamel26kamel]

بارك الله فيك يا أستاذ

[kamel26kamel]

هذا هو الملف المراد إستخدامه

وشكرا

frais de miss ion%20019.xlsx

تم تعديل يناير 13, 2019 بواسطه kamel26kamel

[Ali Mohamed Ali]

تفضل نفس كود استاذنا الكبير سليم له منا كل المحبة والإحترام

 

frais de miss ion 019.xlsm

[kamel26kamel]

السلام عليكم و رحمة الله تعالى و بركاته أستاذنا الكريم

الماكرو لا يعمل و عند تغيير التاريخ يظهر الخطأ التالي:

 

[kamel26kamel]

للرفع 

و شكرا