Sub GetData()
Sheets("shippingpapers").Range("B3").Value = Sheets("inputform").Range("F4").Value
Sheets("shippingpapers").Range("P3").Value = Sheets("inputform").Range("F4").Value
Sheets("shippingpapers").Range("B29").Value = Sheets("inputform").Range("F4").Value
Sheets("shippingpapers").Range("P29").Value = Sheets("inputform").Range("F4").Value
Sheets("shippingpapers").Range("B45").Value = Sheets("inputform").Range("F4").Value
Sheets("shippingpapers").Range("P45").Value = Sheets("inputform").Range("F4").Value
Sheets("shippingpapers").Range("B61").Value = Sheets("inputform").Range("F4").Value
Sheets("shippingpapers").Range("P61").Value = Sheets("inputform").Range("F4").Value
Sheets("shippingpapers").Range("F3").Value = Sheets("inputform").Range("F6").Value
Sheets("shippingpapers").Range("T3").Value = Sheets("inputform").Range("F6").Value
Sheets("shippingpapers").Range("F29").Value = Sheets("inputform").Range("F6").Value
Sheets("shippingpapers").Range("T29").Value = Sheets("inputform").Range("F6").Value
Sheets("shippingpapers").Range("F45").Value = Sheets("inputform").Range("F6").Value
Sheets("shippingpapers").Range("T45").Value = Sheets("inputform").Range("F6").Value
Sheets("shippingpapers").Range("F61").Value = Sheets("inputform").Range("F6").Value
Sheets("shippingpapers").Range("T61").Value = Sheets("inputform").Range("F6").Value
Sheets("shippingpapers").Range("B5").Value = Sheets("inputform").Range("F8").Value
Sheets("shippingpapers").Range("P5").Value = Sheets("inputform").Range("F8").Value
Sheets("shippingpapers").Range("B31").Value = Sheets("inputform").Range("F8").Value
Sheets("shippingpapers").Range("P31").Value = Sheets("inputform").Range("F8").Value
Sheets("shippingpapers").Range("B47").Value = Sheets("inputform").Range("F8").Value
Sheets("shippingpapers").Range("P47").Value = Sheets("inputform").Range("F8").Value
Sheets("shippingpapers").Range("B63").Value = Sheets("inputform").Range("F8").Value
Sheets("shippingpapers").Range("P63").Value = Sheets("inputform").Range("F8").Value
Sheets("shippingpapers").Range("F5").Value = Sheets("inputform").Range("F10").Value
Sheets("shippingpapers").Range("T5").Value = Sheets("inputform").Range("F10").Value
Sheets("shippingpapers").Range("F31").Value = Sheets("inputform").Range("F10").Value
Sheets("shippingpapers").Range("T31").Value = Sheets("inputform").Range("F10").Value
Sheets("shippingpapers").Range("F47").Value = Sheets("inputform").Range("F10").Value
Sheets("shippingpapers").Range("T47").Value = Sheets("inputform").Range("F10").Value
Sheets("shippingpapers").Range("F63").Value = Sheets("inputform").Range("F10").Value
Sheets("shippingpapers").Range("T63").Value = Sheets("inputform").Range("F10").Value
Sheets("shippingpapers").Range("B7").Value = Sheets("inputform").Range("F14").Value
Sheets("shippingpapers").Range("P7").Value = Sheets("inputform").Range("F14").Value
Sheets("shippingpapers").Range("B33").Value = Sheets("inputform").Range("F14").Value
Sheets("shippingpapers").Range("P33").Value = Sheets("inputform").Range("F14").Value
Sheets("shippingpapers").Range("B49").Value = Sheets("inputform").Range("F14").Value
Sheets("shippingpapers").Range("P49").Value = Sheets("inputform").Range("F14").Value
Sheets("shippingpapers").Range("B65").Value = Sheets("inputform").Range("F14").Value
Sheets("shippingpapers").Range("P65").Value = Sheets("inputform").Range("F14").Value
Sheets("shippingpapers").Range("B12").Value = Sheets("inputform").Range("F19").Value
Sheets("shippingpapers").Range("P12").Value = Sheets("inputform").Range("F19").Value
Sheets("shippingpapers").Range("B38").Value = Sheets("inputform").Range("F19").Value
Sheets("shippingpapers").Range("P38").Value = Sheets("inputform").Range("F19").Value
Sheets("shippingpapers").Range("B54").Value = Sheets("inputform").Range("F19").Value
Sheets("shippingpapers").Range("P54").Value = Sheets("inputform").Range("F19").Value
Sheets("shippingpapers").Range("B70").Value = Sheets("inputform").Range("F19").Value
Sheets("shippingpapers").Range("P70").Value = Sheets("inputform").Range("F19").Value
If inputform.Range("f12").Value = "Ground" Then
shippingpapers.Range("K4") = "XXXXX"
End If
End Sub
Excel VBA Course - From Beginner to Expert
200+ Video Lessons
50+ Hours of Video
200+ Excel Guides
Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)
The if statement doesn’t run what did I do wrong
0
Discussion
This question already has answer [LINK URL="If statement part wont run what did I do wrong? | TeachExcel.com"]here[/LINK]
Sorry, Don, I can't get this to work as advbertised :)
Sorry, Don, I can't get this to work as advbertised :)
Variatus (rep: 4889) Dec 6, '20 at 10:25 pm
I think you must have copy/pasted a url in here and the editor got confused - no worries. Here is the link i think you meant: here
don (rep: 1989) Dec 6, '20 at 11:51 pm
Mike you can always edit a question and update it if you run into and issue like this of not getting the CODE tags working the first time - editing is always better than creating a new post. As such, I'll go ahead and post my small answer on the first question and leave a link from here to there in my last comment.
don (rep: 1989) Dec 6, '20 at 11:54 pm