Prev: Copy filtered data (Values only)
Next: Converting strings to numbers
From: FIRSTROUNDKO via OfficeKB.com on 29 Apr 2010 10:04
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

From: Rick Rothstein on 29 Apr 2010 10:34
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(a)uwe> wrote in message
news:a741f16650d8b(a)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
>
 | 
Pages: 1
Prev: Copy filtered data (Values only)
Next: Converting strings to numbers