UNDO DELEING ROW AND POPUP WARNING MESSAGE
On Mar 26, 10:15*am, Mike H wrote:
Maybe
Sub DeleteLines()
Dim StartRow As Long
StartRow = Cells(Rows.Count, 2).End(xlUp).Row
If StartRow = 20 Then
* * Cells(StartRow, 1).EntireRow.Delete
Else
* * MsgBox "You can't delete a row under 20"
End If
End Sub
Mike
"K" wrote:
On Mar 26, 9:28 am, "Per Jessen" wrote:
Hi
Try this before the delete statement.
If activecell.row<= 20 then
* * msgbox ("You cant delete ....")
* * exit macro
end if
Regards,
Per
"K" skrev i ...
Hi, I have two macros set *on two buttons in my spreadsheet. One macro
add entire row and one macro delete entire row. I want macro in my
Sheet Module that if I cross deleting rows by deleting row macro from
Row 20 in sheet then Message should come up saying that "YOU CANT
DELETE ROWS FROM THIS LINE" and undo the delete row. *But below from
Row 20 it should not say anything. Please if anybody help. * * Thanks- Hide quoted text -
- Show quoted text -
please see the code below the one delete the rows. *I have tried
putting macro the one you told me but its not working.
Sub DeleteLines()
Dim StartRow As Long
StartRow = Cells(Rows.Count, 2).End(xlUp).Row
Cells(StartRow, 1).EntireRow.Delete
End Sub- Hide quoted text -
- Show quoted text -
Thanks Mike that what i want
|