طلب حذف صفوف شيت من خلال كود

[خيثر يعقوب]

هل يمكن تحديد أرقام الصفوف المطلوب حذفها بزر  وهناك أرقام الصفوف مكتوبة عن طريق كود الملف المرفق واضح 

من فضلك لا تقوم برفع الملف مضغوط ,طالما مساحته ضغيرة ويمكن رفعه بدون ضغط كما يجب عليك رفع الملف بإمتداد Xlsm طالما انك تريد كود لحل مشكلتك

 

 

Delete.xlsm

[حسين مامون]

جرب المرفق لعله يفي بالغرض

خيثر.xlsm

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit
Sub del_rows()
Dim arr()
Dim y%, i%
Dim Rg As Range
With Sheets("ورقة1")
    y = Cells(2, Columns.Count).End(1).Column
    If y < 5 Then Exit Sub
    arr = Application.Transpose(.Cells(2, 5).Resize(, y - 4))
    arr = Application.Transpose(arr)
     For i = LBound(arr) To UBound(arr)
        If IsNumeric(arr(i)) Then
            If Rg Is Nothing Then
             Set Rg = .Cells(arr(i), 1)
            Else
             Set Rg = Union(Rg, .Cells(arr(i), 1))
            End If
        End If
     Next i
     Rg.Rows.Delete
 End With
End Sub

 

[أحمد يوسف]

أحسنت استاذ حسين كود رائع

بارك الله فيك استاذ سليم ولكن يحدث مشكلة عند تطبيق كود حضرتك عند هذا السطر

 Set Rg = Union(Rg, .Cells(arr(i), 1))

 

[حسين مامون]

احسن الله اليك اخي احمد يوسف وتحية لاستاذنا سليم

[سليم حاصبيا]

ممكن ان تكون احد الخلايا في الصف الثاني فارغة او ليست رقماً (مما يوقف الكود عن العمل )

[حسين مامون]

نعم  استادي سليم هذا صحيح 

[خيثر يعقوب]

بارك الله فيكم جميعا