Macro : Filling Data Into Multiple Cell and Different Sheets At Once

[muhammad susanto]

hi all....
i need your help in vba/macro filling in several cell and several sheets
this code work but only in 1 cell , how to adding in the other cells...

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([COLOR=#ff0000]"H13[/COLOR]") = cell.Value
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub[CODE]

i want this code work too in my target e.g cell [COLOR=#ff0000]H13[/COLOR], [COLOR=#ff0000]J13[/COLOR], L13, etc...

i try modify Sheets(i).Range([COLOR=#ff0000]"H13[/COLOR]",[COLOR=#ff0000]"J13"[/COLOR]) = cell.Value but not work

any help greatly appreciated..

.sst

 

[muhammad susanto]

i hope somebody would help me/

 

[My Aswer Is This]

Please explain in words what your wanting.

And give all sheet names.

You only said:

i need your help in vba/macro filling in several cell and several sheets​

What cells and what sheets would help.

 

[muhammad susanto]

my data in sheet1 in range A1:A40 and my target as expected result in other sheets (several sheets) exactly in cell H13,J13,L13.
before it, my code as well done but work ONLY in cell H13..
i want work too in cell H13,J13,L13...

 

[My Aswer Is This]

I cannot tell the script to do this on several sheets.

I need sheet names or something like sheet(1) to sheets(5)



This should do what you want on Sheet(1)

Sub PopulateMacro()
'Modified  8/18/2018  11:48:19 PM  EDT
Application.ScreenUpdating = False
Dim r As Range
Dim x As Long
x = 8
    For Each r In Sheets(1).Range("A1:A40")
        Sheets(1).Cells(13, x).Value = r.Value: x = x + 2
    Next
Application.ScreenUpdating = True
End Sub

 

[muhammad susanto]

hi...i think work but not fully my expected....
your code only work in the same sheet but for another sheet not work....

 

[My Aswer Is This]

Thats why I asked you what other sheet???

You have not said what other sheets.

 

[My Aswer Is This]

If you want this to work in all the sheets in your workbook

And each sheet has a different set of values in Range("A1:A40")

Try this:

Sub PopulateMacro_All_Sheets()
'Modified  8/19/2018  7:40:53 AM  EDT
Application.ScreenUpdating = False
Dim r As Range
Dim x As Long
Dim i As Long
For i = 1 To Sheets.Count
    With Sheets(i)
        x = 8
        For Each r In .Range("A1:A40")
            .Cells(13, x).Value = r.Value: x = x + 2
        Next
    End With
    Next
Application.ScreenUpdating = True
End Sub