Transfer data between excel sheets
Closed
Bridge
-
Nov 23, 2016 at 01:54 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Nov 24, 2016 at 11:31 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Nov 24, 2016 at 11:31 AM
Related:
- Transfer data between excel sheets
- Free fire transfer - Guide
- Transfer data from one excel worksheet to another automatically - Guide
- Tmobile data check - Guide
- Excel date format dd.mm.yyyy - Guide
- How to screenshot excel sheet - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
552
Nov 24, 2016 at 11:31 AM
Nov 24, 2016 at 11:31 AM
Hi Bridge,
For the code below to work I assumed the following:
Altering the code:
Give the code a try and see if it yields the desired result.
Best regards,
Trowa
For the code below to work I assumed the following:
- There is data in cell A1 and the rest of the data is connected to it. By which I mean that there is data to the cell next to the cell with data in it. When you have data in range A1:A10 and C1:C10, then column C won't get copied.
- The total amount of data rows doesn't exceed the maximum number of rows of a single sheet.
Altering the code:
- I named the sheet where all the data is copied to "Master". Change this to match your destination sheet name on code line 5.
- When you want an empty row between the data from each sheet then change Offset(1, 0) into Offset(2, 0) on code line 11.
Give the code a try and see if it yields the desired result.
Sub RunMe()
Dim sh As Worksheet
Dim dSheet As String
dSheet = "Master"
For Each sh In Worksheets
If Not sh.Name = dSheet Then
sh.Select
Range("A1").CurrentRegion.Copy _
Sheets(dSheet).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
Next sh
Sheets(dSheet).Select
End Sub
Best regards,
Trowa
