AccessTr.neT
Tablolarda Alt Toplam Aldırma Vba İle - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablolarda Alt Toplam Aldırma Vba İle (/konu-tablolarda-alt-toplam-aldirma-vba-ile--88108.html)

Sayfalar: 1 2 3 4 5 6 7

RE: Tablolarda Alt Toplam Aldırma Vba İle - ercansahiner61 - 27/02/2021

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.

RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 27/02/2021

(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?

RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 27/02/2021

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

[Resim: do.php?img=10734]

Re: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 27/02/2021

Sizin kod yerine alttaki gibi deneyiniz.
Kod:
Alacak Tutarý
ve
Kod:
Paylaþým tutarý
ve
Kod:
Paylaþým
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


Re: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 27/02/2021

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.

[Resim: do.php?img=10736]

Kod:
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
                If IsNumeric(Target.Value) Then
                    Rows(Target.Row + 1).Insert Shift:=xlDown
                    alttoplamlar
                End If
            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

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


RE: Tablolarda Alt Toplam Aldırma Vba İle - feraz - 27/02/2021

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