Vba Code too copy and paste

[DelusionalTuck]

Ok so here is what I have.
I have a invoice spreadsheet with multiple tabs and it is starting to get lengthy.
I have a column for delivered machines, simple yes or no.
I want to copy the row where machines delivered "Yes" and paste to another sheet then delete the row when done. I
First sheet is "Invoice Details" the new sheet is "Closed out Invoices".
The delivered column is "O"
On the new sheet I want it to find the last row and enter the delivered ones underneath that.

I have much more to do with all of this but I think I can manage once I get this done.

Thank you for anyone that can help me.

Tuck

 

[Scott T]

Try

Sub movedeliv()
Dim id As Worksheet
Dim ci As Worksheet
Dim lrid As Long
Dim lrci As Long
Set id = Sheets("Invoice Details")
Set ci = Sheets("Closed out Invoices")
lrid = id.Cells(Rows.Count, 15).End(xlUp).Row
lrci = ci.Cells(Rows.Count, 15).End(xlUp).Row
For x = lrid To 2 Step -1
    If UCase(id.Cells(x, 15)) = "YES" Then
    id.Cells(x, 1).EntireRow.Copy ci.Cells(lrci + 1, 1)
    id.Rows(x).Delete Shift:=xlUp
    lrci = ci.Cells(Rows.Count, 15).End(xlUp).Row
    End If
Next x
End Sub

 

[DelusionalTuck]

Thanks Scott,

I will try this out in my test file and let you know how it works.

Tuck

 

[DelusionalTuck]

It worked great and gave me what I needed to move on to the rest of the project, thanks Scott.

Tuck

 

[Scott T]

Glad to help.