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