Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA, change 'copy line' into 'copy range'
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA, change 'copy line' into 'copy range'
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 .Cells(i, "A").Resize(,21).Cut _ Worksheets("Futures").Cells(iNextRow, "A") End If Next i End With -- HTH Bob Phillips (there's no email, no snail mail, but somewhere should be gmail in my addy) "Robert" wrote in message oups.com... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Line copy - Not just a simple copy paste | Excel Worksheet Functions | |||
A copy of a chart doesn't change when the original has new range | Charts and Charting in Excel | |||
copy formula down and ever change range | Excel Programming | |||
change a range colour after copy to another worksheet | Excel Programming | |||
Copy a Range from sheet and paste the next blank line in anoth | Excel Programming |