About automatic population?

[aswag74]

Not even sure if that is the correct verbage. Realtively new to XL. I searched for some answers/threads, but I think I was using the wrong words.

Simple simple dumb question, I am sure.

I receive a spread sheet from a vendor that is broken down into 5 cities/sheets inside a work book.

Lets say column A, in all sheets, is INVOICE NUMBER.

How do I create a sheet at the end of the workbook that takes the info from all cloumn A's in all five sheets and makes one long column A with all the Invoice numbers?

Ignorantly,

Liberal Arts Major

 

[erik.van.geit]

Hi, aswag74
Welcome to the Board !!!!!

perhaps a search for "consolidate" will provide you more useful links

one of many routes to go

Option Explicit

Sub consolidate()
'Erik Van Geit
'060914

Dim cnt As Integer
Dim I As Integer
Dim LR1 As Long
Dim LR2 As Long
cnt = Sheets.Count

Sheets.Add after:=Sheets(cnt)

        For I = 1 To cnt
            With Sheets(I)
            LR1 = .Cells(Rows.Count, "A").End(xlUp).Row
            LR2 = Sheets(cnt + 1).Cells(Rows.Count, "A").End(xlUp).Row
            .Range("A1:A" & LR1).Copy Sheets(cnt + 1).Range("A" & LR2 + 1)
            End With
        Next I

End Sub

kind regards,
Erik
possibly without internet-connection within 2 hours till 22th sept