Related:
- Transfer data between excel sheets
- How to transfer data between excel sheets - How-To - Excel
- Automatically transfer data from one sheet to another in excel - How-To - Excel
- Automatically transfer data from one sheet to another ✓ - Forum - Excel
- Excel - Transfer data between several sheets - How-To - Excel
- How to transfer data from one sheet to another in excel using macros - How-To - Excel
1 reply
TrowaD
- Posts
- 2693
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- January 18, 2021
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
Subscribe To Our Newsletter!
