sayfa toplamları

[sakalein]

yaklaşık 80 sayfa dan veri derleyip toplamını almam gerekiyo eke bakarsanız daha rahat anlarsınız.
Bu arada arama yaptım forumda ama bulamadım.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

 

[Orion1]

Dosyanız ektedir.

Sub sayfa_toplamları_59()
Dim sh As Worksheet, sat2 As Long, k As Byte
Sheets("genel toplam").Select
Application.ScreenUpdating = False
Range("B2:B5").ClearContents
For Each sh In Worksheets
    If sh.Name <> ActiveSheet.Name Then
        sat2 = sh.Cells(65536, "A").End(xlUp).Row
        For k = 2 To 5
            Cells(k, "B").Value = Cells(k, "B").Value + _
            WorksheetFunction.SumIf(sh.Range("A1:A" & sat2), Cells(k, "A").Value, sh.Range("B1:B" & sat2))
        Next k
    End If
Next
Application.ScreenUpdating = True
MsgBox "Sayfa toplamları çıkarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[sakalein]

ARkadaşlar verdiğiniz cevaplar için teşekür ederim ama size dosyayı eksik gönderimişim.
Dosyayı incelerseniz genel toplam da arada farklı sütünlar olduğunu görürsünüz. Buna uygun bir kod yazabilirseniz çok sevinirim.

Bu araa o yazdığın makroyu çözecem ilk fırsatta

 

[sakalein]

ARkadaşlar gönderdiğim ikinci dosyaya bir daha baksanız

 

[Merhum İdris SERDAR]

ARkadaşlar verdiğiniz cevaplar için teşekür ederim ama size dosyayı eksik gönderimişim.
Dosyayı incelerseniz genel toplam da arada farklı sütünlar olduğunu görürsünüz. Buna uygun bir kod yazabilirseniz çok sevinirim.

Bu araa o yazdığın makroyu çözecem ilk fırsatta

.

3B - 3D formülleri

Tabloların Konsolide edilmesi


Buradaki örnekleri inceleyin.

.

 

[sakalein]

Yine uyduramadım asıl dosyayı gönderiyorum bi bakabilrseniz tekrar sevinirim.

 

[sakalein]

ARkadaşlar son kez şuna dosyaya bakabilecek biri varmı.bütün sütünlara tek tek toplam yapmaya başladım.

 

[Korhan Ayhan]

Selamlar,

Ekteki dosyanız üzerinde gerekli düzenlemeyi yaptım. İncelermisiniz.

 

[ozguraltunhisar]

Arkadaşlar Merhabalar benim birkaç sorum olacak şimdi benim 15 sayfa uzunluğunda bir tablom var ve her sayfanın en altında genel toplam ve sayfa toplamı almam gerekiyor, yalnız bu yapılacak formülün baki kalması gerekiyor yani tablo her defasında değişebiliyor 15 sayfa oluyor 10 sayfa.
diğer bir sorum ise bu formülü uyguladıktan sonra ben tabloda filtreleme yapacağım bu işlem sırasında formüllerin kaybolmamasını istiyorum ve filtrelemeyi otomatik yapan yani hareket görmeyen satırları göstermeme gibi bir şey varmı şimdiden teşekkür ederim.