Results in Cell Only if Selected

[jamesmev]

I have an order form where I have over 1000 items.
I want the output on Sheet2 to only provide the quantity and Item Code

Sheet1 Source " Item Code " K16:K999
Quantity C16:C999

Results on Sheet2

Any assistance would be great.

 

[LFKim2018]

assuming you would want them to appear on sheet2 column A & B (else just relocate the formula)
on the cell of sheet2 starting A2: =sheet1!K16 - copy down
on B2: =sheet1!C16 - copy down
hope this helps
thanks..

 

[jamesmev]

I didn’t specify.
If on sheet 1 you add a quantity of product.
Sheet 2 will only show product # and quantity of only items with a quantity assigned.

Example:
Sheet1. Has 1000 product options

Order is placed
10 widgets
5 cogs
3 whahuzits
4 thingamabobs

Sheet 2 only returns
The items ordered on sheet 1

 

[LFKim2018]

kindly see the sample:
https://www.dropbox.com/s/9brdneojl1suzhz/jamesmev.xlsm?dl=0

Try the following code in another workbook -- do not test this directly on your work.
Hope this helps
thanks..

Sub UpdateData()
    Sheets("Sheet2").Select
    mlr2 = Cells(Rows.Count, "A").End(xlUp).Row
    mlr2 = mlr2 + 1
    Sheets("Sheet1").Select
    mlr1 = Cells(Rows.Count, "C").End(xlUp).Row
    Application.ScreenUpdating = False
    On Error Resume Next
    Dim i As Long
    For i = 16 To mlr1
        If Cells(i, "C") > 0 Then
             mqty = Cells(i, "C")
             mitem = Cells(i, "K")
             Sheets("Sheet2").Select
             Sheets("Sheet2").Range("A" & mlr2).Select
             Cells(mlr2, "A") = mqty
             Cells(mlr2, "B") = mitem
             mlr2 = mlr2 + 1
        End If
        Sheets("Sheet1").Select
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    On Error GoTo 0
    Sheets("Sheet2").Select
    Sheets("Sheet2").Range("A2").Select
End Sub

 

[jamesmev]

kindly see the sample:
https://www.dropbox.com/s/9brdneojl1suzhz/jamesmev.xlsm?dl=0

Try the following code in another workbook -- do not test this directly on your work.
Hope this helps
thanks..

Sub UpdateData()
    Sheets("Sheet2").Select
    mlr2 = Cells(Rows.Count, "A").End(xlUp).Row
    mlr2 = mlr2 + 1
    Sheets("Sheet1").Select
    mlr1 = Cells(Rows.Count, "C").End(xlUp).Row
    Application.ScreenUpdating = False
    On Error Resume Next
    Dim i As Long
    For i = 16 To mlr1
        If Cells(i, "C") > 0 Then
             mqty = Cells(i, "C")
             mitem = Cells(i, "K")
             Sheets("Sheet2").Select
             Sheets("Sheet2").Range("A" & mlr2).Select
             Cells(mlr2, "A") = mqty
             Cells(mlr2, "B") = mitem
             mlr2 = mlr2 + 1
        End If
        Sheets("Sheet1").Select
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    On Error GoTo 0
    Sheets("Sheet2").Select
    Sheets("Sheet2").Range("A2").Select
End Sub

I am not getting any result running this code. Any direction?

 

[jamesmev]

Resolved. Thank you for your help with this!

 

[LFKim2018]

Resolved. Thank you for your help with this!

welcome. glad it helped..