COPY ROW
I didn't test this but it should do the job.
If Cells(dlv, 23) "" And Cells(dlv, 8) < _
Sheets("DLV CONTAINERS").Cells(dlv2, 8) Then
lr = Sheets("DLV CONTAINERS").Cells(Rows.Count).End(xlUp).Row
Rows(dlv).Copy Sheets("DLV CONTAINERS").Range("A" & lr + 1)
End If
Check for line wraps in case I didn't get the attenuation mark right.
"Rpettis31" wrote:
I am testing to see if the value on in a row is true and If it is true I
would like to paste the row to the next sheet on the first available blank
line.
For DLV = 2 to 1000
For DLV2 = 2 to 1000
If cells(dlv,23) "" and also cells(dlv,8) < !DLV CONTAINERS cells(dlv2,8)
then copy this row to sheet DLV CONTAINERS.
I am also not sure if I am referencing the sheet correctly in the if
statement.
Thanks
Robert
|