لا احد يريد مساعدتي,,,الله يخليكم ساعدوني

[منير الاسد]

السلام عليكم و رحمة الله و بركاته

في الملف اسفله لدي كود يسمى newmonthsheet

بحيث كلما ضغطت على زر ADDSHEET الموجود في الشيت المسمى Février-2015 يتم اضافة شيت Mars-2015 و يتم حذف  الاسطر التي بها التواريخ المكررة في العمود A

ولكن المشكل في الكود هو انه يقوم بحذف حتى الاسطر التي بها خلايا فارغة في العمود A بحيث ان في الشيت الناتج المسمى MARS-2015 التواريخ ما بعد 28Mars لاتظهر

اتمنى من احد الاخوان الخبراء ان يتم حل هذا المشكل و الموجود في هذه الفقرة من الكود newmonthsheet :

 

 Lg = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    Application.ScreenUpdating = False
        For i = Lg To 2 Step -1
            If WorksheetFunction.CountIf(Range("a:a"), Cells(i, 1)) > 1 Then Rows(i).Delete
        Next i
  

بارك الله فيكم

Suivi beton.zip

[الـعيدروس]

اخي الكريم marfipo

كررت 4 مواضيع لطلب واحد ؟

 

جربت الكود مايقوم به بحذف التواريخ المكرره فقط

ولا يحذف الاسطر الفارغه 

تجربتي.rar

[منير الاسد]

اخي العيدروس 

الكود في الشيت الذي يضاف اي mars-2015 لا تضهر في العمود A :  

29-Mars      

30-Mars

31-Mars 

مع العلم ان في الشيت Fevrier-2015 كانت هذه الخلايا اي A41 A42 A43   موجودة و بها معادلات

تم تعديل ديسمبر 12, 2015 بواسطه marfipo

[ياسر خليل أبو البراء]

الملف لا يعمل معي بشكل مضبوط

ارفع الملف مرة أخرى لعل أن يساعدك أحد الأخوة بالمنتدى

تقبل تحياتي