Sayfa Sayfa Toplam Getirme

[yteizme]

.........................

 

[Merhum İdris SERDAR]

Sayfalarınız A1'den itibaren aşağıya doğru yer alıyorsa;

B1 hücresine:

=SUM(INDIRECT(A1&"!"&"E:E"))
=TOPLA(DOLAYLI(A1&"!"&"E:E"))

yazıp, aşağıya doğru yeterince kopyalayın.

NOT:Soru makro sorusu imiş...

.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
Dim I, S, SUT As Long
[A1:B500].Clear
For I = 2 To Sheets.Count
S = S + 1
Cells(S, "A") = Sheets(I).Name
For SUT = 1 To Sheets(I).Cells(65536, "E").End(3).Row
SON = Cells(65536, "A").End(3).Row
If Sheets(I).Name = Cells(SON, "A") Then
Cells(SON, "A").Offset(0, 1) = Cells(SON, "A").Offset(0, 1) + Sheets(I).Cells(SUT, "E")
End If
Next
Next
End Sub

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Sub sayfalari_topla()
Dim sat As Long
Dim syf As Worksheet
Sheets("Sheet1").Select
Range("A2:B65536").ClearContents
sat = 2
For Each syf In Worksheets
    If syf.Name <> "Sheet1" Then
        Cells(sat, "A").Value = syf.Name
        Cells(sat, "B").Value = WorksheetFunction.Sum(syf.Range("E:E"))
        Cells(sat, "B").NumberFormat = "#,##0.00"
        sat = sat + 1
    End If
Next
MsgBox "Sayfa Toplamları tamamlandı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub