Macro To Extract Data

[vbabeginner92]

I have a workbook that houses detailed metrics by project. In the front of the work is a summary tab with subsequent worksheets for the individual projects. I want to write a macro that will extract information from the individual project worksheets into the summary tab.

Example:

Row 1 Summary Worksheet - macro pulls certain information from worksheet 2 and puts in the summary worksheet
Row 2 Summary Worksheet - macro pulls same information as above but from worksheet 3 and puts in the next row in the summary worksheet
So on...until no more worksheets.

I know that I will need to use a loop. Anyone know how to write a macro will do as I describe above?

Sub UpdateData()
Dim WS_Count As Integer
Dim I As Integer


WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count

'Insert Data Extraction Macro


Next I
End Sub

 

[mumps]

What information/range do you want to pull from each worksheet? Do you want to pull the same range from each sheet?

 

[vbabeginner92]

What information/range do you want to pull from each worksheet? Do you want to pull the same range from each sheet?

It comes from various cells throughout a worksheet and it is consistent for each worksheet (every worksheet is formatted the same and data are in the same cells).

 

[mumps]

What are those various cells?

 

[Steve_]

I have a workbook that houses detailed metrics by project. In the front of the work is a summary tab with subsequent worksheets for the individual projects. I want to write a macro that will extract information from the individual project worksheets into the summary tab.

Example:

Row 1 Summary Worksheet - macro pulls certain information from worksheet 2 and puts in the summary worksheet
Row 2 Summary Worksheet - macro pulls same information as above but from worksheet 3 and puts in the next row in the summary worksheet
So on...until no more worksheets.

I know that I will need to use a loop. Anyone know how to write a macro will do as I describe above?

Sub UpdateData()
Dim WS_Count As Integer
Dim I As Integer


WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count

'Insert Data Extraction Macro


Next I
End Sub

With the information provided this is the best i can do for now but I think it should get you going.

Sub Go()
    sCell = "A1"            'Edit this to be your data source
    shSummary = "Summary"   'Edit this to be the name of your Summary tab
    sRow = Sheets(shSummary).UsedRange.Rows.Count
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> shSummary Then
            Sheets(shSummary).Cells(sRow, 1) = ws.Range(sCell)
            sRow = sRow + 1
        End If
    Next ws
End Sub