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"

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"

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 -