VBA Code Required for Copy one cell and paste in multiple times
Closed
9171158847
Posts
2
Registration date
Wednesday December 27, 2017
Status
Member
Last seen
December 27, 2017
-
Dec 27, 2017 at 11:52 AM
9171158847 Posts 2 Registration date Wednesday December 27, 2017 Status Member Last seen December 27, 2017 - Dec 27, 2017 at 12:03 PM
9171158847 Posts 2 Registration date Wednesday December 27, 2017 Status Member Last seen December 27, 2017 - Dec 27, 2017 at 12:03 PM
Related:
- VBA Code Required for Copy one cell and paste in multiple times
- Samsung keypad reset code - Guide
- Battery reset code - Guide
- Usa country code for whatsapp - Guide
- Samsung volume increase code - Guide
- How to get whatsapp verification code online - Guide
1 response
9171158847
Posts
2
Registration date
Wednesday December 27, 2017
Status
Member
Last seen
December 27, 2017
Dec 27, 2017 at 12:03 PM
Dec 27, 2017 at 12:03 PM
Dear All,
I didn't find any results for this..
I'm trying this but not getting proper answer..
Sub SimpleMacro()
Dim WS As Worksheet
Dim WS1 As Worksheet
Set WS = ThisWorkbook.Sheets("Target")
Set WS1 = ThisWorkbook.Sheets("Soure")
Dim lrow As Integer
lrow = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Source").Select
For Each cell In Range("A2:A" & lrow)
cell.EntireRow.Copy
Sheets(cell.Value).Activate
Range("A" & Rows.Count).End(xlUp).Offset(1, -1).PasteSpecial
Next cell
Application.CutCopyMode = False
I didn't find any results for this..
I'm trying this but not getting proper answer..
Sub SimpleMacro()
Dim WS As Worksheet
Dim WS1 As Worksheet
Set WS = ThisWorkbook.Sheets("Target")
Set WS1 = ThisWorkbook.Sheets("Soure")
Dim lrow As Integer
lrow = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Source").Select
For Each cell In Range("A2:A" & lrow)
cell.EntireRow.Copy
Sheets(cell.Value).Activate
Range("A" & Rows.Count).End(xlUp).Offset(1, -1).PasteSpecial
Next cell
Application.CutCopyMode = False
