Extract Data Number to 40 Sheets Placing Only in Cell H12

[muhammad susanto]

hi all..

i am looking for macro to extract data from sheet1 to multiple sheets (40 sheets) in range/cell H12 for each sheet

Excel 2007
	A
1	654
2	10.000
3	1.000
4	762
5	345
6	112
7	200
8	678
9	456
10	324
11	234
12	etc
Sheet1

after macro :
in sheet 2 :

Excel 2007
	H
12	654
Sheet2

any help thanks in advance..

m.susanto

 

[Joe4]

Try this:

Sub PopulateMacro()

    Dim cell As Range
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For Each cell In Sheets(1).Range("A1:A40")
        i = cell.Row + 1
        Sheets(i).Range("H12") = cell.Value
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

 

[muhammad susanto]

thanks but not working...
i want extract to 40 sheets in cell H12 for each sheet..
i must insert new sheet before running your macro...
how to automatically insert sheet too....

 

[Joe4]

i must insert new sheet before running your macro...
how to automatically insert sheet too....

Ah, you left that important detail out in your original post! I thought you already had all 40 sheets.
No, matter. Just need to add one line to the code.

Sub PopulateMacro()

    Dim cell As Range
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For Each cell In Sheets(1).Range("A1:A40")
        i = cell.Row + 1
[COLOR=#ff0000]        Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Sheets" & i[/COLOR]
        Sheets(i).Range("H12") = cell.Value
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

 

[muhammad susanto]

hello Joe4..

amazing...working well..!!!

thanks alot

 

[Joe4]

You are welcome!