Loop through sheets until blank sheet.

[Mayank1502]

Hello everyone,
I have 20 sheets in my workbook and I need to consolidate the first 13 sheets one below the other, However, those are monthly sheets and data in those sheets will be pasted every month.
for e.g-
I have 13 sheets named as January, February, March, April, May … and there is no data in sheet 'June'. Hence the loop should only compile sheets till may and then exit the loop.
Request if anybody can help me with the code for this.

 

[alansidman]

Consolidate Multiple Excel Sheets Using Power Query Append

Power Query Amend in Excel is an easy way to consolidate multiple Excel worksheets. Click here for the free tutorial and start learning!

www.myexcelonline.com

 

[mumps]

This code simply checks to see if cell A1 in each of the first 13 sheets contains data. Any sheet with a blank A1 is ignored.

Sub test()
    Application.ScreenUpdating = False
    Dim x As Long
    For x = 1 To 13
        If Sheets(x).Range("A1") <> "" Then
            'your code here
        End If
    Next x
    Application.ScreenUpdating = True
End Sub