اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

تم تعديل بواسطه marfipo
رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

تقبل تحياتي

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information