اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حذف الصفوف المكررة بجميع خلاياه مع الابقاء على التنسيقات


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

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

الاساتذة الافاضل جزاكم الله خيرا

ارجو التفضل بكود مسح بيانات صف من B  الى  H  المكررة  لجميع خلاياه مع الحفاظ على تنسيق الخلايا

لان الورقة متجددة البيانات من خلال ترحيل بيانات يوميا من ورقة اخرى وبها تاريخ

فيظهر كرقم  وليس تاريخ لذلك احتاج ان يبقى التنسيق نفسه

لكم وافر الاحترام والتقدير ...

حذف الصفوف المكررة.xlsx

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

في ٢٤‏/٩‏/٢٠١٨ at 13:15, طارق محمود said:

تفضل المرفق بالضغط علي الزر يتم الحذف

الاستاذ المهندس الخلوق طارق محمود وفقكم الله

كود رائع جعله الله في ميزان حسناتكم

لكم وافر احترامي وتقديري

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

 

السلام عليكم

إذا أردنا ان يكون الحذف للمتكرر في أول ثلاث أعمدة كيف يكون الكود ..وشكرا

تفضل المرفق به 2 أزرار يتم الحذف لكل الجدول المتشابه أو للتشابه باول 3 أعمدة وفي تلك الحالة يلغي باقي الجدول لعدم الالتباس

الفرق بين الكودين تستطيع التعرف عليه هنا

Sub Macro1()

    [C2:H2].Copy [J2]
    
    Range([C2], [C2].End(xlDown).End(xlToRight)).Select
    Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:O2], Unique:=True
    [J2:O999].Copy
    [C2].PasteSpecial Paste:=xlPasteValues
    
    Columns("J:O").Delete Shift:=xlToLeft
End Sub

' =======================================

Sub Macro2()

    [C2:E2].Copy [J2]
    
    Range([C2], [C2].End(xlDown).End(xlToRight)).Select
    Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:L2], Unique:=True
    [J2:L999].Copy
    [C2].PasteSpecial Paste:=xlPasteValues
    
    Columns("F:L").Delete Shift:=xlToLeft
End Sub

 

حذف الصفوف المكررة2.xlsm

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

  • 3 weeks later...

شكر وتقدير للأخ طارق محمود..وفقك الله لكل خير

شكرا على الرد الرائع ..ولكن فضلا وليس امرا ...اردت ان يكون الحذف للمكرر لاول ثلاث اعمدة مع بقاء ظهور كافة الاعمدة الاخرى ومدخلاتها

 

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

  • 2 weeks later...
  • 2 months later...

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

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



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

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

Important Information