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.
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.
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
"Ralph" wrote:
> 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.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks