السلام عليكم و رحمة الله و بركاته
في الملف اسفله لدي كود يسمى 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