Copy Data from One sheet to Different Sheets

[rahulkcjain]

I have one excel file wherein i have alphanumeric data in cells A1:A85 & B1:B85. (In Sheet 1)

I have another 85 sheets in the file. I want to pull data of A1 into D20 & data of B1 into E20 (In Sheet 2)

I want to do these in all the 85 sheets in sequential order. i.e. Sheet 2 should pull data of A1 & B1(Sheet 1), whereas Sheet 3 should pull data of A2 & B2(From sheet 1), and Sheet 4 should should pull data of A3 & B3(from Sheet 1) and so on.

Can you please help me with this?

Thanks in advance.

 

[h2so4]

(e-mail address removed) was thinking very hard :

I have one excel file wherein i have alphanumeric data in cells A1:A85 &
B1:B85. (In Sheet 1)

I have another 85 sheets in the file. I want to pull data of A1 into D20 &
data of B1 into E20 (In Sheet 2)

I want to do these in all the 85 sheets in sequential order. i.e. Sheet 2
should pull data of A1 & B1(Sheet 1), whereas Sheet 3 should pull data of A2
& B2(From sheet 1), and Sheet 4 should should pull data of A3 & B3(from Sheet
1) and so on.

Can you please help me with this?

Thanks in advance.

hi !

try the following macro. the macro makes the assumptions that your 85
additional sheets are named sheet2... sheet86.

Sub copycellstosheets()
Set ws = Worksheets("sheet1")
For i = 1 To 85
With Worksheets("sheet" & i + 1)
.Range("D20").Value = ws.Range("A" & i)
.Range("E20").Value = ws.Range("B" & i)
End With
Next i
End Sub