جرب هذا الماكرو (يقوم باخفاء الصفوف وليس حذفها)
(اذا كنت تريد الحذف يمكن التعديل)
CODE
Sub My_Macro()
Dim LASTROW
Dim Rg As Range
Dim Impt
Dim Sh As Worksheet
Set Sh = Sheets("ElectronicPayment")
Show_ALL
LASTROW = Sh.Cells(Rows.Count, 1).End(3).Row
Impt = Application.InputBox("Put an Number <= " & LASTROW _
, 1, Type:=1)
If Val(Impt) <= 0 Or CInt(Impt) > LASTROW Then
MsgBox "You must type Only number<= " & LASTROW
Exit Sub
End If
Impt = Int(Impt)
Set Rg = Sh.Range("A" & Impt).Resize(LASTROW - Impt + 1, 7)
Rg.EntireRow.Hidden = True
End Sub
'+++++++++++++++++++++++++++++++++++++++
Sub Show_ALL()
Sheets("ElectronicPayment").Rows.Hidden = False
End Sub
الملف مرفق
مسح بيانات من نطاق مرن متغير
