Consulting

Results 1 to 11 of 11

Thread: Please Help me

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1

    Please Help me

    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
    Last edited by puzzler1971; 12-09-2016 at 01:47 PM. Reason: added Code Tags with # Menu Icon

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •