puzzler1971
12-09-2016, 12:25 PM
I am try to take information from this spreadsheet (cyclecount 12-9-16)
Location
Part ID
Description
001
201364
alphabet soup
1002
211375
mixing bowl
1003
557964
8 inch carton
and put into a form that is in the same workbook. Then print and clear contents.
The form has fields below.
Location__________
Part ID___________
Description________
Here is what I have so far. (it covers row one). I need to to continue to next row and repeat step until last row.
Sub inventory()
'
' inventory Macro
'
'
Sheets("Sheet2").Select
Range("E5:L5").Select
ActiveCell.Formula = "='cycle count 12-9-16'!A2"
Range("E8:L8").Select
ActiveCell.Formula = "='cycle count 12-9-16'!B2"
Range("E10:L10").Select
ActiveCell.Formula = "='cycle count 12-9-16'!C2"
Range("E11").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E10:L10").Select
Selection.ClearContents
Range("E8:L8").Select
Selection.ClearContents
Range("E5:L5").Select
Selection.ClearContents
End Sub
17798
Location
Part ID
Description
001
201364
alphabet soup
1002
211375
mixing bowl
1003
557964
8 inch carton
and put into a form that is in the same workbook. Then print and clear contents.
The form has fields below.
Location__________
Part ID___________
Description________
Here is what I have so far. (it covers row one). I need to to continue to next row and repeat step until last row.
Sub inventory()
'
' inventory Macro
'
'
Sheets("Sheet2").Select
Range("E5:L5").Select
ActiveCell.Formula = "='cycle count 12-9-16'!A2"
Range("E8:L8").Select
ActiveCell.Formula = "='cycle count 12-9-16'!B2"
Range("E10:L10").Select
ActiveCell.Formula = "='cycle count 12-9-16'!C2"
Range("E11").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("E10:L10").Select
Selection.ClearContents
Range("E8:L8").Select
Selection.ClearContents
Range("E5:L5").Select
Selection.ClearContents
End Sub
17798