Pasting Data into Sheets via VBA

[t01te6]

Hey I have a simple table which has the worksheet name in Column A and then several codes (text) in columns B to AA,

Is it possible to get a bit of Code which will take all the data in column B and so on and put it into the worksheet that is in Column A,

There is already data in the other worksheets so could it be fixed so that the new data will go into column B after the data thats already there.

I thank you for your help

Tim

 

[venkat1926]

sheet 1 column A has the sheet names
you want this to go into sheet 2

copy your file and do this so that original data is not messed up
in the copied file copy this macro
data in sheet from col b to the right is copied in sheet 2 . see sheet 2.
give feedback.

Sub test()
Dim sh As String
With Worksheets("sheet1")
Range(.Range("b1"), .Range("b1").End(xlToRight).End(xlDown)).Copy
sh = Selection.Value
If Selection.Column > 1 And Selection = "" Then MsgBox "the sheet is not selected"
Worksheets(sh).Activate
Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial
End With
Application.CutCopyMode = False
End Sub

 

[t01te6]

Hey,

Thank you very much for your help, Unfortunatly when I put the code in nothing seems to happen. The page flicks to the first worksheet in A1 and put a few what appears to be random codes in there, but nothing happens on the next sheets.

Can you help? Am I perhaps doing something wrong?

Thanks

Tim

 

[venkat1926]

1. where did you park the macro
2. didi you select any cell in column A of sheet1 before runnng the macro.

 

[jindon]

try

Sub test()
If Not TypeOf Selection Is Range Then Exit Sub
Selection.EntireRow.Copy
With Sheets(Selection.EntireRow.Cells(1).Value)
    .Cells(.Cells.SpecialCells(11).Row + 1, "a").PasteSpecial
End With
Application.CutCopyMode = False
End Sub