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
cycle count tag.xlsm