VBA to copy data from a column with number greater than zero...???

[CarJon0767]

Hello Everyone and thanks in advance.

I need help figuring out a vba code that will move data automatically from one sheet to a select range on the sheet. Here's the catch I have the data is in different columns and rows. I have made all of that data transfer over to the same column with its corresponding row/cells.

I attached a the sheet so it makes sense.

So if qty in parts sheet equals anything greater than zero then i need it to transfer over parts, cost and ext columns to next available row on invoice sheet range A13 through G31.

I hope this all makes sense... Your help is greatly appreciated. thanks!!!!

[jolivanes]

Like the attached maybe.

Sub Transfer()
    Dim lastrow As Long
    lastrow = Cells(Rows.Count, 15).End(xlUp).Row
    Application.ScreenUpdating = False
    With ActiveSheet
        .AutoFilterMode = False
        .Range("O7:O" & lastrow).AutoFilter field:=1, Criteria1:=">0"
        .Range("M8:P" & lastrow).SpecialCells(xlCellTypeVisible).Copy Sheets("Invoice").Range("A13")
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
End Sub

[CarJon0767]

IT WORKS GREAT, THANKS!!! Is there any way to make it so it happens automatically instead of pressing a button? Thanks again!!!

[jolivanes]

Automatically?
When?
You can do that when you open or close your workbook or when you make changes to a range of cells.

[CarJon0767]

how can I make it if i add another item it would update? Btw the code works great!!! THANKS!!!

[jolivanes]

Give this a try

[CarJon0767]

thanks works great!!!