UnSelect the copied to range after copy...
 

Besides Range("A1").Select is there a basic proper method to unselect the just copied to range?

Range("C12:O12").Copy
Range("Q" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

How do I unselect the Q row selected cells without using the Select method?

Thanks,
Howard

UnSelect the copied to range after copy...
 

Hi Howard,

Am Sat, 26 Jul 2014 22:06:42 -0700 (PDT) schrieb L. Howard:

Besides Range("A1").Select is there a basic proper method to unselect the just copied to range?

if you write the values into the range instead of pasting the range is
not selected:

arrOut = Range("C12:O12")
Cells(Rows.Count, "Q").End(xlUp)(2) _
.Resize(columnsize:=Range("C2:O2").Columns.Count) = arrOut


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

UnSelect the copied to range after copy...
 

if you write the values into the range instead of pasting the range is

not selected:



arrOut = Range("C12:O12")

Cells(Rows.Count, "Q").End(xlUp)(2) _

.Resize(columnsize:=Range("C2:O2").Columns.Count) = arrOut

Regards

Claus B.


Okay, I tried to do something like that but couldn't string it together. I had it in the back of my mind that almost all codes you have helped me with, seemed there was never a lingering range that was selected.

Thanks.

Howard

UnSelect the copied to range after copy...
 

Hi Claus,

Hmmm, I must be leaving something out that you assumed I would know to do.
This does nothing, arrOut = Empty.

Sub CopyTest()

Dim arrOut As Variant

arrOut = Range("C12:O12")

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

End Sub

Howard

UnSelect the copied to range after copy...
 

On Sunday, July 27, 2014 2:46:50 AM UTC-7, L. Howard wrote:
Hi Claus,



Hmmm, I must be leaving something out that you assumed I would know to do.

This does nothing, arrOut = Empty.



Sub CopyTest()



Dim arrOut As Variant



arrOut = Range("C12:O12")



Cells(Rows.Count, "Q").End(xlUp)(2) _

.Resize(columnsize:=Range("C2:O2").Columns.Count) = arrOut



End Sub



Howard

Hold everything! My Bad - My Bad.

I was thinking return goes to C but it was correctly going to Q which was off screen.

Sorry! Sorry!

Howard