VBA Question

[johnhan]

I have made the following routine to go to the right side of some rows and copy the right most cells and paste it to the right of the formerlly right most cells. I now want to add a routine that will take the selection back to the first cell that I have just added. Thanks!

Sub addmonth()

Range("t7").End(xlToRight).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.PasteSpecial

Range("t8").End(xlToRight).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.PasteSpecial

Range("t9").End(xlToRight).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.PasteSpecial

Range("t11").End(xlToRight).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.PasteSpecial

End Sub

 

[zacemmel]

Range("t7").End(xlToRight).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.PasteSpecial

Just a suggestion, but you can make your code a lot more efficient by doing the following:

range("t7").copy
range("t7").offset(0,1).pastespecial



_________________
Questions?<a href=http://www.excelquestions.com>http://www.excelquestions.com</a>
This message was edited by zacemmel on 2002-10-28 15:32

 

[rikrak]

hi johnhan,

If you mean you want to activate the cell that was active before you copied some values, save the position, do the copy and activate the saved position:

<pre>
dim cl as Range
Set cl = ActiveCell 'save position
'.........
' do your stuff
'........
cl.Select ' select saved position
</pre>

 

[johnhan]

Thanks! That is what I needed!