Question : Attendance Tracker - Data consolidation

I have an attendance tracker which has month on month data in various spreadsheets and I have included a spreadsheet named " Summary " , which should basically give me the sum of the leaves for each employee ( pulled from various sheets ) . Please help me .. Thank you

Attachments:

Attendance-Tracker2010.xls (470 KB) (File Type Details)

Attendance Tracker

Answer : Attendance Tracker - Data consolidation

Here is an update addressing point 1. For point 2, you just have to copy the formula across.

Thomas

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

           
           
             Function GetLeave(empNo As String, strType As String)
Dim sht As Worksheet, rowFound As Long, colFound As Long, lgResult As Long

On Error Resume Next

For Each sht In ActiveWorkbook.Worksheets

    If sht.Name <> "Summary" Then
        rowFound = sht.Columns(2).Find(what:=empNo, after:=sht.Cells(1, 2), LookIn:=xlValues, LookAt:= _
                    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
                    , SearchFormat:=False).Row
        colFound = sht.Rows(9).Find(what:=strType, after:=sht.Cells(9, 1), LookIn:=xlValues, LookAt:= _
                    xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
                    , SearchFormat:=False).Column
    
    
        If Err.Number = 0 Then
            lgResult = lgResult + sht.Cells(rowFound, colFound)
        Else
            Err.Clear
        End If
    
    End If
    
Next

GetLeave = lgResult

End Function

           
         