kamel26kamel قام بنشر يناير 12, 2019 مشاركة قام بنشر يناير 12, 2019 (معدل) 2019.xlsx تم تعديل يناير 12, 2019 بواسطه kamel26kamel رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 12, 2019 مشاركة قام بنشر يناير 12, 2019 هذا الماكرو 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 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 12, 2019 مشاركة قام بنشر يناير 12, 2019 أحسنت استاذ سليم بارك الله فيك كود ممتاز 1 رابط هذا التعليق شارك More sharing options...
kamel26kamel قام بنشر يناير 13, 2019 الكاتب مشاركة قام بنشر يناير 13, 2019 بارك الله فيك يا أستاذ 1 رابط هذا التعليق شارك More sharing options...
kamel26kamel قام بنشر يناير 13, 2019 الكاتب مشاركة قام بنشر يناير 13, 2019 (معدل) هذا هو الملف المراد إستخدامه وشكرا frais de miss ion%20019.xlsx تم تعديل يناير 13, 2019 بواسطه kamel26kamel رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 13, 2019 مشاركة قام بنشر يناير 13, 2019 تفضل نفس كود استاذنا الكبير سليم له منا كل المحبة والإحترام frais de miss ion 019.xlsm 2 رابط هذا التعليق شارك More sharing options...
kamel26kamel قام بنشر يناير 14, 2019 الكاتب مشاركة قام بنشر يناير 14, 2019 السلام عليكم و رحمة الله تعالى و بركاته أستاذنا الكريم الماكرو لا يعمل و عند تغيير التاريخ يظهر الخطأ التالي: رابط هذا التعليق شارك More sharing options...
kamel26kamel قام بنشر يناير 15, 2019 الكاتب مشاركة قام بنشر يناير 15, 2019 للرفع و شكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان