I was wondering if anyone can help me with this. (ps I'm new at vb but enjoying it immensly)
Sub AcceptPriceChangesClient1()
Range("c13:v13").Select
Run ("PriceChangesStep1") ' to copy range c13:v13
Sheets("1").Select
Run ("PriceChangesStep2") ' to paste range
MsgBox ("Prices have been updated successfully")
End Sub
I THEN HAVE THE SAME THING FOR CLIENT 2
Sub AcceptPriceChangesClient2()
Range("c13:v13").Select
Run ("PriceChangesStep1") ' to copy range c13:v13
Sheets("2").Select
Run ("PriceChangesStep2") ' to paste
MsgBox ("Prices have been updated successfully")
End Sub
THIS GOES ON FOR SEVERAL CLIENTS.
I then created a button for the below code so that when I so price changes of more than one client, or even of all of them, All Prices are updated.
Sub AcceptPriceChangesClientAll()
Run ("AcceptPriceChangesClient1")
Windows("INVOICES 2011.xlsm").Activate
Run ("AcceptPriceChangesClient2")
Windows("INVOICES 2011.xlsm").Activate
etc.
The problem is that everytime its also running the following
MsgBox ("Prices have been updated successfully")
and I end up pressing <enter> according to the number of clients.
Is there a way out of it.... Is there anything to bypass that particular line, when I run that button to update prices for all clients.
Thanks for any help
Sub AcceptPriceChangesClient1()
Range("c13:v13").Select
Run ("PriceChangesStep1") ' to copy range c13:v13
Sheets("1").Select
Run ("PriceChangesStep2") ' to paste range
MsgBox ("Prices have been updated successfully")
End Sub
I THEN HAVE THE SAME THING FOR CLIENT 2
Sub AcceptPriceChangesClient2()
Range("c13:v13").Select
Run ("PriceChangesStep1") ' to copy range c13:v13
Sheets("2").Select
Run ("PriceChangesStep2") ' to paste
MsgBox ("Prices have been updated successfully")
End Sub
THIS GOES ON FOR SEVERAL CLIENTS.
I then created a button for the below code so that when I so price changes of more than one client, or even of all of them, All Prices are updated.
Sub AcceptPriceChangesClientAll()
Run ("AcceptPriceChangesClient1")
Windows("INVOICES 2011.xlsm").Activate
Run ("AcceptPriceChangesClient2")
Windows("INVOICES 2011.xlsm").Activate
etc.
The problem is that everytime its also running the following
MsgBox ("Prices have been updated successfully")
and I end up pressing <enter> according to the number of clients.
Is there a way out of it.... Is there anything to bypass that particular line, when I run that button to update prices for all clients.
Thanks for any help