Question : Get all sheets row2 till end of data to one sheet. One after the other.

Hi,

Get all sheets row2 till end of data to one sheet. One after the other.

On each run clear the sheet and get a new set

Row 1 is headers and i dont want them copied

One sheet should be excluded its name is "Full List"

Can anyone help with this macro.

Regards
Sharath

Answer : Get all sheets row2 till end of data to one sheet. One after the other.

Sharath,

I've changed the macro to make it easier to add worksheet names to exclude - see below. It's in the attached file.

Patrick
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Sub consolidator()
Dim ws As Worksheet
Dim rng As Range

For Each ws In Worksheets
    Select Case LCase(ws.Name)
        Case Is = "sheet4", "full list" 'add other worksheet names in lowercase on this line
        Case Else
            Set rng = ws.Range(ws.Cells(2, "A"), ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(0, 10))
            With Sheets("Sheet4")
                rng.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
            End With
    End Select
Next ws

End Sub
Random Solutions  
 
programming4us programming4us