copy rows to another worksheet

[bionicjake]

Please help!

I have a price list that is approximately 300 rows. I want some direction on how to automatically populate another sheet within the workbook with any row that has >0 in the quantity column.

This must be compatible in Excel 2007 and 2003.

 

[pboltonchina]

Assuming Column A has your quantity, change to suit. Change the sheet name 'list' to suit your sheet name

LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
    If Range("A" & i).Value > 0 Then Rows(i).Copy Destination:=Sheets("list").Cells(Rows.Count, "A").End(xlUp)
    Next i

 

[bionicjake]

I've never implemented anything beyond a formula. I copy into the VB code for that worksheet and nothing happened?

 

[pboltonchina]

Did you change the sheet name to the one you want results? Do we need to create another sheet just for the results? Are your quantities in Column A?
Copy this into your VBA window and close it down, select View, Macros, Run and select CopyData then click Run

Sub CopyData()
 Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
    If Range("A" & i).Value > 0 Then Rows(i).Copy Destination:=Sheets("list").Cells(Rows.Count, "A").End(xlUp)
    Next i
End Sub