newclasshero
New Member
- Joined
- Sep 1, 2006
- Messages
- 46
What this macro does is Prints off all my sheets in a certain order according to who I bought my vehicle from. I have recently added a sheet that only needs to be printed off if the Make (cell C6) is not a General Motors Product.
Also if there is a way to nest multiple Vehicle makes into the code (ie. if cell C6 =Ford, Lexus, Chrysler etc. etc.)
So basically if VIS G4 = Brian and VIS C6 = "Ford, Lexus, Chrysler etc. etc.) then
*Start of code*
Here is my current Code
If Sheets("V I S").Range("G4") = "BRYAN" Then
Sheets("Endsheet").PrintOut From:=1, To:=1
Sheets("V I S").PrintOut From:=1, To:=1
Sheets("FAX Currency-Tag").PrintOut From:=1, To:=3
Sheets("FAX C.B. - OCI").PrintOut From:=1, To:=1
Sheets("Endsheet").PrintOut From:=8, To:=8
Sheets("FAX C.B. - OCI").PrintOut From:=5, To:=5
Sheets("Fax Dealer").PrintOut From:=4, To:=4
Sheets("Fax Dealer").PrintOut From:=3, To:=3
Sheets("FAX C.B. - OCI").PrintOut From:=2, To:=2
Sheets("FAX Currency-Tag").PrintOut From:=4, To:=4
Also if there is a way to nest multiple Vehicle makes into the code (ie. if cell C6 =Ford, Lexus, Chrysler etc. etc.)
So basically if VIS G4 = Brian and VIS C6 = "Ford, Lexus, Chrysler etc. etc.) then
*Start of code*
Here is my current Code
If Sheets("V I S").Range("G4") = "BRYAN" Then
Sheets("Endsheet").PrintOut From:=1, To:=1
Sheets("V I S").PrintOut From:=1, To:=1
Sheets("FAX Currency-Tag").PrintOut From:=1, To:=3
Sheets("FAX C.B. - OCI").PrintOut From:=1, To:=1
Sheets("Endsheet").PrintOut From:=8, To:=8
Sheets("FAX C.B. - OCI").PrintOut From:=5, To:=5
Sheets("Fax Dealer").PrintOut From:=4, To:=4
Sheets("Fax Dealer").PrintOut From:=3, To:=3
Sheets("FAX C.B. - OCI").PrintOut From:=2, To:=2
Sheets("FAX Currency-Tag").PrintOut From:=4, To:=4