LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 852
Default Copy to a mid column range Row 10 - Row 20

Trying to convet the commented out line to copy to row 10 and offset from there on down to row 20.

Assumes there is data in the rows above 10 and below 20, so my availsble range to copy is between 10 to 20.

The "FERow" part of a previous code I failed to properly add instructive comments about and thus I need some redirection.

Thanks,
Howard


Sub CopyToRange_ArrOut()
Dim arrOut As Variant
arrOut = Range("C12:F12")


' FERow = WorksheetFunction.Max(10, .Cells(20, 1).End(xlUp).Offset(1, 0).Row)
' .Cells(FERow, 1).Resize(columnsize:=4) = arrOut


Cells(Rows.Count, "C").End(xlUp)(2) _
.Resize(columnsize:=Range("C2:F2").Columns.Count) = arrOut

End Sub
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Copy range if column N is empty ajm1949 Excel Programming 24 May 13th 10 05:00 AM
Copy all Rows If Column Value X within a Range Juan Excel Programming 6 February 26th 09 07:06 PM
Copy/Paste Column Issue Using a Range ALATL Excel Programming 2 September 11th 07 09:46 PM
copy cells to end of range in other column Eric_G Excel Programming 3 August 17th 07 12:58 PM
copy a range with known start column to variable end column Matilda Excel Programming 2 August 2nd 06 04:55 PM


All times are GMT +1. The time now is 06:58 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"