Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
UNDO DELEING ROW AND POPUP WARNING MESSAGE
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
UNDO DELEING ROW AND POPUP WARNING MESSAGE
Hi,
A look at your code would have been helpful. Does this help? Sub stance() myrow = ActiveCell.Row If myrow <= 20 Then MsgBox "You can't delete a row number less than 20" Else Rows(myrow).EntireRow.Delete End If End Sub Mike "K" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
UNDO DELEING ROW AND POPUP WARNING MESSAGE
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 meddelelsen ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
UNDO DELEING ROW AND POPUP WARNING MESSAGE
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
UNDO DELEING ROW AND POPUP WARNING MESSAGE
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Popup message when value changes | Excel Programming | |||
How to turn off the popup warning when clicking on a hyperlink | Excel Worksheet Functions | |||
How to stop the popup warning window when clicking on a hyperlink | Excel Programming | |||
Add a warning popup to a Macro Button | Excel Worksheet Functions | |||
Protection and warning popup | Excel Discussion (Misc queries) |