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.
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
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