Transform entities from column of 1 sheet1 to row of another sheet

[Thulasiram]

How to transfer the entities in the columns of one worksheet to rows of
another worksheet in an Excel book?. For example I would like to copy 50
entities in column A of worksheet 1 to row 1 of worksheet 2.

So, for the above question I would like to know the code that should be
written in the VB code editor (for the command button with caption "Shift
Entities").

 

[Die_Another_Day]

Private Sub ShiftEntities_Click()
Dim wb2 As Workbook
Set wb2 = Workbooks("YourBook2.xls")
Range("A1:A50").Copy
Windows("Book2").Activate
Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub

HTH

Die_Another_Day

 

[Thulasiram]

Thanks a lot.

Private Sub ShiftEntities_Click()
Dim wb2 As Workbook
Set wb2 = Workbooks("YourBook2.xls")
Range("A1:A50").Copy
Windows("Book2").Activate
Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub

HTH

Die_Another_Day

 

[Thulasiram]

I get an error when I pasted the code in the VBA script. i changed
YourBook2.xls as Sample.xls as its the file name. Compiler shows error in
Windows("Book2").Activate

and

Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

Please help

 

[Thulasiram]

Hello.

When I paste the code in the script editor, i get an error in the
following lines.

Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

please help. it will b so nice of you.

Awaiting your response,
Thulasiram