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

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


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

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

في الملف اسفله لدي كود يسمى 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...

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

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

تقبل تحياتي

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information