Tüm Sayfalardaki verileri tek sayfada toplamak

[happynightmare]

Herkese Merhaba,

Elimde 8-9 sayfadan oluşan bir excel var. Tüm sayfalardaki format aynı. (A-Proje, B-Türü, C-Tutar, D-SY, E-Açıklama vb..)

Bu sayfalar her hafta güncelleniyor.

Ben her hafta sonu bir makro ile tüm sayfalardaki verileri bir sayfada toplamak istiyorum.

Bunu nasıl yapabilirim?

Teşekkürler şimdiden.

 

[apocalyt]

bir örnek dosya yüklerseniz çözüm üretcek arkadaşlar için kolaylık olur diye düşünüyorum..

 

[happynightmare]

Dosyayı ekledim. Sadece 2 sayfa var. Ancak bu sayfalar her hafta güncellenecek ve daha fazla sayfa olabilir.

 

[Orion1]

dosyanız ektedir.

Sub rapor()
Dim sat As Long, sat2 As Long, i As Long
Sheets("RAPOR").Select
Range("B2:I" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
    If Sheets(i).Name <> ActiveSheet.Name Then
        Sheets(i).Range("B1").AutoFilter
        sat = Sheets(i).Cells(Rows.Count, "B").End(xlUp).Row
        sat2 = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Sheets(i).Range("B2:I" & sat).Copy
        Range("B" & sat2).PasteSpecial (xlPasteValuesAndNumberFormats)
        Application.ScreenUpdating = False
        Sheets(i).Range("B1").AutoFilter
    End If
Next i
Application.ScreenUpdating = True
Range("A1").Select
MsgBox "İşlem Bitti." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub