Diğer sekmelerden özet bilgi çekmek

[bkr-ylmz]

Selamlar,
Ekte örnek olarak özetlediğim şekilde bir dosyam var. Burada her ay ayın günleri için gelen birkaç dosyam oluyor, rapor sekmesine o ay çalışanların isimlerini özetliyorum, yanlarında da görevleri bulunuyor.
Bu işlemi formül ile veya makro ile yapabilir miyiz, biraz uğraştım ama yol kat edemedim.

 

[askm]

Aşağıdaki kodları deneyin.

Sub ASKM_Sayfaları_Topla()
Dim Son As Long
Dim s As Worksheet
Set s = Sheets("Toplam")
t = 7
For Syf = 1 To Sheets.Count
    If Syf <> "Toplam" Then
    Son = Sheets(Syf).Range("B" & Rows.Count).End(xlUp).Row
        For i = 7 To Son
            Say = WorksheetFunction.CountIf(s.Range("B7:B" & t), Sheets(Syf).Cells(i, 2))
            If Say = 0 Then
                s.Cells(t, 2) = Sheets(Syf).Cells(i, 2)
                s.Cells(t, 3) = Sheets(Syf).Cells(i, 3)
                t = t + 1
            End If
        Next i
    End If
Next Syf
MsgBox "Veriler Aktarıldı...", vbInformation, "ASKM"
End Sub