A macro to create new spreadsheet and copy data
Closed
Vasu
-
Feb 28, 2014 at 01:36 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Mar 4, 2014 at 11:17 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Mar 4, 2014 at 11:17 AM
Related:
- Macro to create new sheet and copy data
- Create skype account with gmail - Guide
- Excel macro to create new sheet based on value in cells - Guide
- Create new email account yahoo - Guide
- Create snapchat account - Guide
- Little alchemy cheat sheet - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
552
Mar 4, 2014 at 11:17 AM
Mar 4, 2014 at 11:17 AM
Hi Vasu,
Try the following code and let me know if the desired result shows up:
Best regards,
Trowa
Try the following code and let me know if the desired result shows up:
Sub RunMe()
Dim ws As Worksheet
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Result"
For Each ws In Worksheets
If ws.Name <> "Result" Then
ws.Range("A1").CurrentRegion.Copy Sheets("Result").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next ws
Sheets("Result").Activate
Columns("B:B").Replace What:="PT", Replacement:="I", LookAt:=xlPart, SearchOrder:=xlByRows
Columns("C:C").Replace What:="R008", Replacement:="K11", LookAt:=xlPart, SearchOrder:=xlByRows
End Sub
Best regards,
Trowa
