Hello,
Relatively simple task to complete but new to macros/vba. I have a spreadsheet containing a wealth of data and another spreadsheet that does vlookups of the data based on the product number entered into cell B5. I need to copy-paste cell A2 from data sheet (Specs.xlsx) into the other workbook (Fact Sheet.xlsx) and print. Then copy/past A3 from data sheet to other workbook and print. Continue doing this for hundreds of rows and then stop if there is no data in the cell. Started a macro and it looks like this:
Windows("Specs.xlsx").Activate
Range("A2").Select
Selection.Copy
Windows("Fact Sheet.xlsx").Activate
Range("B5").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
Windows("Specs.xlsx").Activate
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fact Sheet.xlsx").Activate
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Any help is greatly appreciated.
Regards.
Relatively simple task to complete but new to macros/vba. I have a spreadsheet containing a wealth of data and another spreadsheet that does vlookups of the data based on the product number entered into cell B5. I need to copy-paste cell A2 from data sheet (Specs.xlsx) into the other workbook (Fact Sheet.xlsx) and print. Then copy/past A3 from data sheet to other workbook and print. Continue doing this for hundreds of rows and then stop if there is no data in the cell. Started a macro and it looks like this:
Windows("Specs.xlsx").Activate
Range("A2").Select
Selection.Copy
Windows("Fact Sheet.xlsx").Activate
Range("B5").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
Windows("Specs.xlsx").Activate
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Fact Sheet.xlsx").Activate
ActiveSheet.Paste
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Any help is greatly appreciated.
Regards.