Copy to Named Range
I can "Set Range" then "Copy" then "select" then paste as below
If Cells(CCC - 1, 1).Value = Cells(CCC, 1).Value Then Set MyRange = Cells(CCC, 100).End(xlToLeft).Offset(0, 1) Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy MyRange.Select ActiveSheet.Paste For speed I do not want donot want to select but the following code errors out Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy Range(Myrange) -- Message posted via http://www.officekb.com |
Copy to Named Range
Just off the top of my head, you need quote marks around the range's name in
the Range call... Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy Range("Myrange") -- Rick (MVP - Excel) "FIRSTROUNDKO via OfficeKB.com" <u15639@uwe wrote in message news:a741f16650d8b@uwe... I can "Set Range" then "Copy" then "select" then paste as below If Cells(CCC - 1, 1).Value = Cells(CCC, 1).Value Then Set MyRange = Cells(CCC, 100).End(xlToLeft).Offset(0, 1) Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy MyRange.Select ActiveSheet.Paste For speed I do not want donot want to select but the following code errors out Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy Range(Myrange) -- Message posted via http://www.officekb.com |
All times are GMT +1. The time now is 12:30 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com