paste in next availible column?
i have multiple selections in three column blocks that need to be paste in the next free column of another sheet or the next free cel horizantally. needs to be in VBA code ty al -- cwatso ----------------------------------------------------------------------- cwatson's Profile: http://www.excelforum.com/member.php...fo&userid=2460 View this thread: http://www.excelforum.com/showthread.php?threadid=38248 |
paste in next availible column?
Sub TryNow()
Dim myArea As Range For Each myArea In Selection.Areas myArea.Copy Worksheets("SheetName").Range("IV1").End(xlToLeft) (1, 2) Next myArea End Sub HTH, Bernie MS Excel MVP "cwatson" wrote in message ... i have multiple selections in three column blocks that need to be pasted in the next free column of another sheet or the next free cell horizantally. needs to be in VBA code ty all -- cwatson ------------------------------------------------------------------------ cwatson's Profile: http://www.excelforum.com/member.php...o&userid=24608 View this thread: http://www.excelforum.com/showthread...hreadid=382480 |
paste in next availible column?
set lastcol = Worksheets("Other").Cells(3,"IV").End(xltoLeft)
selection.Copy Destination:=LastCol.Offset(0,1) -- Regards, Tom Ogilvy "cwatson" wrote in message ... i have multiple selections in three column blocks that need to be pasted in the next free column of another sheet or the next free cell horizantally. needs to be in VBA code ty all -- cwatson ------------------------------------------------------------------------ cwatson's Profile: http://www.excelforum.com/member.php...o&userid=24608 View this thread: http://www.excelforum.com/showthread...hreadid=382480 |
All times are GMT +1. The time now is 07:25 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com