I have a Macro that works well, but it copies the formulas and I would like to have just the Values copied to the "Order Sheet" (I changed the name from Order Estimate to Order Sheet).
This is the Macro, any help would be appreciated.
Sub Verint_Parts_List()
Dim i As Long, lrow As Long, lastrow As Long
With Worksheets("Verint")
lrow = .Range("a" & .Rows.Count).End(xlUp).Row
For i = 3 To lrow
If .Range("a" & i).Value >= "1" Then
lastrow = Worksheets("Order Sheet").Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & i & ":G" & i).Copy Worksheets("Order Sheet").Range("A" & lastrow + 1)
a = a + 1
End If
Next i
End With
End Sub
I am new to this forum and would appreciate any help with the following:
What I would like to accomplish is to have any cell in columns A or B of sheets 1, 2, 3 that has a value of 1 or greater; for the entire row to be copied over and pasted to start at Row 27 of the ORDERESTIMATE WORKSHEET and if the row is filled, to move down and paste to the next empty row.
I have attached a sample worksheet
Thanks for any help that you can provide.
LFleet
DVR test workbook.zip
Bookmarks