Birden Fazla Değişkenli sayfalardan veri almak

[nunikmakarios]

Sevgili Dostlarım

Ekte örneğini göreceğiniz bir tablo var. Bu tablonun 7 sayfasında da uzunluğu ve boyutu değişebilen gider grupları ve giderler var. Bunlar hez zaman aynı tür ve sayıda olamaya biliyorlar. 8. Sayfada ise bir özet tablo var. Bu tabloda 7 tablonun gider grupları ve giderler bazında ve iki ayrı para biriminde toplanması gerekir.

yardımlarınızı rica ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub hesapla()
Sayfa8.[b3:m28].Clear
Application.ScreenUpdating = False
    For i = 1 To 7
    For sut = 2 To 7
    For sat = 2 To Sheets(i).Cells(65536, "a").End(xlUp).Row
    For sat8 = 2 To Sayfa8.Cells(65536, "a").End(xlUp).Row
        If Sheets(i).Cells(sat, "b") = Sayfa8.Cells(sat8, "a") And Sheets(i).Cells(sat, "a") = Sayfa8.Cells(2, sut) Then
            Cells(sat8, sut) = Cells(sat8, sut) + Sheets(i).Cells(sat, "c")
            End If
    Next: Next: Next: Next
    
     For i = 1 To 7
    For sut = 8 To 13
    For sat = 2 To Sheets(i).Cells(65536, "a").End(xlUp).Row
    For sat8 = 2 To Sayfa8.Cells(65536, "a").End(xlUp).Row
        If Sheets(i).Cells(sat, "b") = Sayfa8.Cells(sat8, "a") And Sheets(i).Cells(sat, "a") = Sayfa8.Cells(2, sut) Then
            Cells(sat8, sut) = Cells(sat8, sut) + Sheets(i).Cells(sat, "d")
            End If
    Next: Next: Next: Next
Application.ScreenUpdating = True
End Sub