muhammad susanto
Well-known Member
- Joined
- Jan 8, 2013
- Messages
- 2,077
- Office Version
- 365
- 2021
- Platform
- Windows
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...
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...
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
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
Last edited: