paste to next free colum on new Worksheet

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ralph - 22 Mar 2006 11:07 GMT

Hi,
I have a sheet with one colum of results, those results I would like to
paste onto the next worksheet into the frist empty colum after the data of
the previous results, in order to create a kind of history.

Reply to this Message

Martin - 22 Mar 2006 12:29 GMT

Try this:

Sub PasteColumn()
Dim myRange As Variant
Dim mySheet As Worksheet
Set mySheet = Worksheets("Sheet2")
Set myRange = mySheet.Range("A1").CurrentRegion
If myRange.Cells.Count > 1 Or (myRange.Cells.Count = 1 And
myRange.Cells(1).Value <> "") Then
Set myRange = myRange.Offset(0, myRange.Columns.Count).Resize(1, 1)
Else
Set myRange = mySheet.Range("A1")
End If
Worksheets("Sheet1").Columns(1).Copy (myRange)
End Sub

> Hi,
> I have a sheet with one colum of results, those results I would like to
> paste onto the next worksheet into the frist empty colum after the data of
> the previous results, in order to create a kind of history.

Reply to this Message