Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding User Dialog to Macro
I have a macro that when activated will add (3) rows to a section of the
worksheet. To enhance flexibility, I would like to interrupt the macro to ask the end user how many rows they would like to insert, set the macro to the user number and complete the macro process. The following is the automated macro that inserts the (3) rows automatically. Any help would be appreciated. Thank You, JAD Call Security_Unprotect Application.Goto Reference:="Me02_END" ActiveCell.Offset(0, 0).Range("a1:a3").Select Selection.EntireRow.Insert ActiveCell.Offset(0, 0).Range("a1").Select ActiveWorkbook.Names.Add Name:="Me02_NEW_START", RefersToR1C1:=ActiveCell Application.Goto Reference:="Me_COPY" Selection.Copy Application.Goto Reference:="Me02_NEW_START" ActiveSheet.Paste Application.Goto Reference:="MM_EQ_Menu_Selection" Call Security_Protect End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding User Dialog to Macro
If you know you will always input on the top row meaning A1, then all you
need to use is the Input Function. myNum = Application.InputBox("Enter a number") Then susbtitute the variable MyNum in your code -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "JAD" wrote: I have a macro that when activated will add (3) rows to a section of the worksheet. To enhance flexibility, I would like to interrupt the macro to ask the end user how many rows they would like to insert, set the macro to the user number and complete the macro process. The following is the automated macro that inserts the (3) rows automatically. Any help would be appreciated. Thank You, JAD Call Security_Unprotect Application.Goto Reference:="Me02_END" ActiveCell.Offset(0, 0).Range("a1:a3").Select Selection.EntireRow.Insert ActiveCell.Offset(0, 0).Range("a1").Select ActiveWorkbook.Names.Add Name:="Me02_NEW_START", RefersToR1C1:=ActiveCell Application.Goto Reference:="Me_COPY" Selection.Copy Application.Goto Reference:="Me02_NEW_START" ActiveSheet.Paste Application.Goto Reference:="MM_EQ_Menu_Selection" Call Security_Protect End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding User Dialog to Macro
You can also try something like this:
MyNum = Application.InputBox("Enter a number") For i = 1 To MyNum Range("A1").EntireRow.Insert Next i -- If this posting was helpful, please click on the Yes button. Regards, Michael Arch. "JAD" wrote: I have a macro that when activated will add (3) rows to a section of the worksheet. To enhance flexibility, I would like to interrupt the macro to ask the end user how many rows they would like to insert, set the macro to the user number and complete the macro process. The following is the automated macro that inserts the (3) rows automatically. Any help would be appreciated. Thank You, JAD Call Security_Unprotect Application.Goto Reference:="Me02_END" ActiveCell.Offset(0, 0).Range("a1:a3").Select Selection.EntireRow.Insert ActiveCell.Offset(0, 0).Range("a1").Select ActiveWorkbook.Names.Add Name:="Me02_NEW_START", RefersToR1C1:=ActiveCell Application.Goto Reference:="Me_COPY" Selection.Copy Application.Goto Reference:="Me02_NEW_START" ActiveSheet.Paste Application.Goto Reference:="MM_EQ_Menu_Selection" Call Security_Protect End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
User created Dialog Box | Excel Programming | |||
How do I prompt a user with a dialog box | Excel Programming | |||
Dialog & User Form | New Users to Excel | |||
Macro to pause for user input in dialog box | Excel Discussion (Misc queries) | |||
control of dialog macro dialog box. on open | Excel Programming |