toplam aldırma

[mhaluksen]

arkadaşlar, bir çalışma kitabı içerisinde 10'a yakın sayfa var. herbir sayfada 50 sütun ve 2500 satır var. aynı anda 10 sayfanın kendi içerisinde (ayrı ayrı sayfalarda) yan ve alt toplamını (sütun sütun, satır satır) nasıl yaptırabiliriz.normalde toplamı işlemi yapılır ama dosyayı oldukça büyütüyor. bunu bir buton yardımı ile makro yoluyla çözebilirmiyiz. yardım ve fikirleriniz için şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Aynı formatta olan bütün sayfalarınıza toplam aldırır.

Sub TOPLAMLARI_GÜNCELLE()
    For X = 1 To Sheets.Count
    For Y = 2 To 51
    Sheets(X).Cells(2501, Y) = WorksheetFunction.Sum(Sheets(X).Range(Sheets(X).Cells(2, Y), Sheets(X).Cells(2500, Y)))
    Next
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[mhaluksen]

teşekkürler sayın COST_CONTROL. bütün sayfaların alt toplamını aldırdı, ancak alt toplam aldırdığı halde "Worksheetsfunction sınıfının Sum özelliği alınamıyor" uyarısı verdi. excel dosyasının içerisinde bu formata uygun olmayan sayfalar var ondan olabilir mi? ayrıca aynı anda alt toplam gibi 2500 satıra kadar her bir satırın yan toplamını da A:A hücresine aktarabilirmiyiz.

 

[Korhan Ayhan]

Selamlar,

Büyük ihtimalle hata mesajını sayfalarınızın aynı formatta olmamasından dolayı alıyorsunuz. Aşağıdaki kodu denermisiniz.

Sub TOPLAMLARI_GÜNCELLE()
    Application.ScreenUpdating = False
    For X = 1 To Sheets.Count
    Sheets(X).Select
    For Y = 2 To 51
    Cells(2501, Y) = WorksheetFunction.Sum(Range(Cells(2, Y), Cells(2500, Y)))
    Next
    [A2].FormulaR1C1 = "=SUM(RC[1]:RC[50])"
    [A2].AutoFill Destination:=[A2:A2500], Type:=xlFillDefault
    [A2:A2500].Copy
    [A2:A2500].PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    [A1].Select
    Next
    Sheets(1).Select
    Application.ScreenUpdating = True
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[mhaluksen]

çok teşekkür ederim COST_CONTROL COST_CONTROL. emeğinize ve yüreğinize sağlık.verdiğiniz kodları ben kendime göre ayarlarım.