| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change VBA macro
Hi all,
I hope someone could help me with the following. I want to change the VBA code below in such a way that there is only one msgbox. After the question in this new (one and only) msgbox (question something like: Do you want to insert the files?) all files should be put in. Does someone know how to do so and what the code should look like? Thanks in advance, Wietse VBA code: If MsgBox("insert " & Range("rates").Value2 & " ?", vbYesNo) = vbYes Then Run "Insertrates" If MsgBox("insert " & Range("Deals").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals" If MsgBox("insert " & Range("Deals2").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2" If MsgBox("insert " & Range("DealsPrev").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDealsPrev" If MsgBox("insert " & Range("Deals2Prev").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2Prev" If MsgBox("insert " & Range("Deals2After").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2After" If MsgBox("insert " & Range("rates Today").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertratesToday" If MsgBox("insert " & Range("rates Yest").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertratesYest" If MsgBox("insert " & Range("Sum").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertSum" If MsgBox("insert " & Range("SumYest").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertSumYest" |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change VBA macro
Hi
If MsgBox("Do you want to insert files?", vbYesNo) = vbYes Then Run "Insertrates" Run "InsertDeals" Run "InsertDeals2" Run "InsertDealsPrev" Run "InsertDeals2Prev" Run "InsertDeals2After" Run "InsertratesToday" Run "InsertratesYest" Run "InsertSum" Run "InsertSumYest" End if regards Paul On Mar 30, 9:37 am, wrote: Hi all, I hope someone could help me with the following. I want to change the VBA code below in such a way that there is only one msgbox. After the question in this new (one and only) msgbox (question something like: Do you want to insert the files?) all files should be put in. Does someone know how to do so and what the code should look like? Thanks in advance, Wietse VBA code: If MsgBox("insert " & Range("rates").Value2 & " ?", vbYesNo) = vbYes Then Run "Insertrates" If MsgBox("insert " & Range("Deals").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals" If MsgBox("insert " & Range("Deals2").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2" If MsgBox("insert " & Range("DealsPrev").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDealsPrev" If MsgBox("insert " & Range("Deals2Prev").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2Prev" If MsgBox("insert " & Range("Deals2After").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2After" If MsgBox("insert " & Range("rates Today").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertratesToday" If MsgBox("insert " & Range("rates Yest").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertratesYest" If MsgBox("insert " & Range("Sum").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertSum" If MsgBox("insert " & Range("SumYest").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertSumYest" |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Change VBA macro
One more question, how can I make sure that when the question "Do you
want to insert files?" is answered with No that then all single msgboxes will start to ask if you want to insert the single files? On Mar 30, 10:42 am, wrote: Hi If MsgBox("Do you want to insert files?", vbYesNo) = vbYes Then Run "Insertrates" Run "InsertDeals" Run "InsertDeals2" Run "InsertDealsPrev" Run "InsertDeals2Prev" Run "InsertDeals2After" Run "InsertratesToday" Run "InsertratesYest" Run "InsertSum" Run "InsertSumYest" End if regards Paul On Mar 30, 9:37 am, wrote: Hi all, I hope someone could help me with the following. I want to change the VBA code below in such a way that there is only one msgbox. After the question in this new (one and only) msgbox (question something like: Do you want to insert the files?) all files should be put in. Does someone know how to do so and what the code should look like? Thanks in advance, Wietse VBA code: If MsgBox("insert " & Range("rates").Value2 & " ?", vbYesNo) = vbYes Then Run "Insertrates" If MsgBox("insert " & Range("Deals").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals" If MsgBox("insert " & Range("Deals2").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2" If MsgBox("insert " & Range("DealsPrev").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDealsPrev" If MsgBox("insert " & Range("Deals2Prev").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2Prev" If MsgBox("insert " & Range("Deals2After").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertDeals2After" If MsgBox("insert " & Range("rates Today").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertratesToday" If MsgBox("insert " & Range("rates Yest").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertratesYest" If MsgBox("insert " & Range("Sum").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertSum" If MsgBox("insert " & Range("SumYest").Value2 & " ?", vbYesNo) = vbYes Then Run "InsertSumYest"- Hide quoted text - - Show quoted text - |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Use Macro To Change Which Macro Assigned To Command Button | Excel Discussion (Misc queries) | |||
| Insert row at change macro - how to change it. | Excel Discussion (Misc queries) | |||
| macro that will change the font of a cell if i change a value | Excel Discussion (Misc queries) | |||
| Cell value change to trigger macro (worksheet change event?) | Excel Programming | |||
| Macro to change Macro code? | Excel Programming | |||
Linear Mode
