R
Robert
Hi all,
Can someone advice me how to modify the following code to copy a line
from column A:U instead of the whole line?
Dim iLastRow As Long, iNextRow As Long
Dim i As Long
With Worksheets("Positions")
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If .Cells(i, "A").Value = "RNWD" Then
iNextRow = iNextRow + 1
.Rows(i).Cut _
Worksheets("Futures").Cells(iNextRow, "A")
End If
Next i
End With
Thanks a lot!
Rgds,
Robert
Can someone advice me how to modify the following code to copy a line
from column A:U instead of the whole line?
Dim iLastRow As Long, iNextRow As Long
Dim i As Long
With Worksheets("Positions")
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If .Cells(i, "A").Value = "RNWD" Then
iNextRow = iNextRow + 1
.Rows(i).Cut _
Worksheets("Futures").Cells(iNextRow, "A")
End If
Next i
End With
Thanks a lot!
Rgds,
Robert