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

[مصطفى محمود مصطفى]

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

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

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

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

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

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

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

[طارق محمود]

السلام عليكم

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

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

[مهند الزيدي]

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

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

 

[مصطفى محمود مصطفى]

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

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

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

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

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

[طارق محمود]

 

السلام عليكم

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

تفضل المرفق به 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

[مصطفى محمود مصطفى]

السلام عليكم

رائع استاذ طارق وفقكم الله وحفظكم

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

[مهند الزيدي]

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

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

 

[مهند الزيدي]

للرفع

[مهند الزيدي]

للرفع