Feraz bey çok teşekkür ederim,
çok güzel olmuş bu kodu düğmeye atamadan  çalıştırmamız mümkün mü acaba
AYRICA ÇOK ÖNEMLİ bir SORUN OLUŞTU.
ALTTOPLAM FORMÜLÜ İLE TOPLAM ALINMADIĞINDAN TOPLAM ÜTÜNDEKİ SON VERİDEN TAB TUŞU VEYA ENTER TUŞU İLE İLE GEZİLDİĞİNDE TOPLAM ÜZERİNDE YENİ SATIŞ AÇMASI LAZIM AÇMIYOR, TOPLAM HÜCRESİNDEN TAB TUŞU İLE ALT SATIRA GEÇİLDTİĞİNDE ALT SATIRA TABLO OLARAK GEÇİYOR
ÇÜNKÜ DENEDİM ELLE ALT TOPLAM OLUŞTURDUĞUMUZ ZAMAN TABLO  DÜZGÜN ÇAMIŞIYOR.

(27/02/2021, 16:13)ercansahiner61 yazdı: kodu düğmeye atamadan  çalıştırmamız mümkün mü acaba

Rica ederim.
Kod nasıl çalışsın istiyorsunuz?
Yani veri felan değişincemi çalışacak?

Resimdeki gibi yeride açsanız olur aslında sarıya boyadığım.

Sizin kod yerine alttaki gibi deneyiniz.
ve
ve
burayı Tr karakterden dolayı düzeltiniz.

Sub alttoplamlar()

    With Sheets("Paylaþým").ListObjects("Tablo81731")

        .ShowTotals = True

        .ListColumns("Alacak Tutarý").TotalsCalculation = xlTotalsCalculationSum

        .ListColumns("Paylaþým tutarý").TotalsCalculation = xlTotalsCalculationSum

    End With

    MsgBox "Ýþlem tamamlandý", vbInformation, "antonio"

End Sub

Sanırım Gifteki gibi istiyorsunuz.C ve D sütunua veri girip Tab tuşuna basınız.Otomatik olarak B sütununa geçer.

Yada D ve E sütunlarında alttıopları açarsanız alttaki gibide yeterli olur.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 4 And Target.Row >= 9 Then

        If Target.Offset(1, -2).Value = "Toplam" Then

            If Target.Value <> "" Then

                Rows(Target.Row + 1).Insert Shift:=xlDown

            End If

        End If

    End If

    End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 5 And Target.Row >= 9 Then

        Target.Offset(1, -2).Select

    End If

End Sub