Veri Alttoplam

[yakup70]

Ekteki dosyada A sütunundaki hesap kodu değişiminde E ve F sütunlarında alttoplam almak istiyorum.Makro ile bunu nasıl yaparım yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Yapacağınız işlem çok basit.

A-E sütun aralığını seçin.
VERİ-ALTTOPLAM menüsünü açın.
Gelen uyarıya tamam diyerek geçin. (B-C sütunlarında başlık olmadığı için uyarı veriyor.)
Açılan ekranda "Alttoplam ekleme yeri" penceresinden "SATIŞ" ve "TAHSİLAT" seçeneklerini seçin ve tamam diyerek işlemi tamamlayın.

 

[yakup70]

Makroyu çalıştırdığınızda onay istiyor.Onay kısmı olmadan işlemi yaptıramazmıyız.Bu makroyu daha uzun bir makro içinde kullanacağım.Bundan önce işlemler var.Bu kısma geldiğinde onay bekliyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub ALT_TOPLAM_AL()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    With Columns("A:E")
        .RemoveSubtotal
        .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 5), _
         Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[yakup70]

Çok teşekkürler.Çalıştı.