Column to sheet copy

[varunmol]

Hi Everyone,

I am not good with excel.

I have a simple question, I hope!!

1. I have some data in the first column of a sheet.
2. I want to put this data in different sheets.

So simpling put if I have names of people in the first column of the first sheet

1. Bob
2. Jane
3. Jani

I want the first name in the first column of sheet 2
The second name in the first column of sheet 3 and so on.

Hope I m clear, looking forward to any suggestion

 

[Takae]

Does the data on sheet1 start from the first line? Also, do you want to paste it on each sheet A1?

Sub test()
Dim i As Long

For i = 2 To Worksheets.Count
    Sheets(i).Range("A1").Value = Sheets("Sheet1").Cells(i - 1, 1).Value
Next
MsgBox "Done"
End Sub

 

[varunmol]

Does the data on sheet1 start from the first line? Also, do you want to paste it on each sheet A1?

Sub test()
Dim i As Long

For i = 2 To Worksheets.Count
    Sheets(i).Range("A1").Value = Sheets("Sheet1").Cells(i - 1, 1).Value
Next
MsgBox "Done"
End Sub

hi

thank you for your reply, yes

but there are multiple entries so


1st column in sheet 1
2nd column in sheet 2
and so on...

sorry but I don't know how to use VBA

 

[Takae]

2nd column in sheet 2?
My code runs like this.

1. Bob ---paste to sheet2 of A1
2. Jane---paste to sheet3 of A1
3. Jani---paste to sheet4 of A1

Please save your file then test my code.
Press [Alt+F11] . You can see VBE and press [Alt] -[ I ] -[M] one by one.
Module1 will be displayed. Paste my code into Module1. Click anywhere between Sub() to End sub , and press F5.

 

[varunmol]

2nd column in sheet 2?
My code runs like this.

1. Bob ---paste to sheet2 of A1
2. Jane---paste to sheet3 of A1
3. Jani---paste to sheet4 of A1

Please save your file then test my code.
Press [Alt+F11] . You can see VBE and press [Alt] -[ I ] -[M] one by one.
Module1 will be displayed. Paste my code into Module1. Click anywhere between Sub() to End sub , and press F5.

let me try to thank you so much this is a big help