VBA Code Required for Copy one cell and paste in multiple times
Closed
9171158847
Posts
2
Registration date
Wednesday 27 December 2017
Status
Member
Last seen
27 December 2017
-
27 Dec 2017 à 11:52
9171158847 Posts 2 Registration date Wednesday 27 December 2017 Status Member Last seen 27 December 2017 - 27 Dec 2017 à 12:03
9171158847 Posts 2 Registration date Wednesday 27 December 2017 Status Member Last seen 27 December 2017 - 27 Dec 2017 à 12:03
Related:
- VBA Code Required for Copy one cell and paste in multiple times
- Excel multiple lines in one cell - Guide
- Vba find - Guide
- Cs 1.6 code - Guide
- Vba case like - Guide
- Nitro racing unlock code - Android Forum
1 response
9171158847
Posts
2
Registration date
Wednesday 27 December 2017
Status
Member
Last seen
27 December 2017
27 Dec 2017 à 12:03
27 Dec 2017 à 12:03
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
