(27/03/2021, 18:37)feraz yazdı:

Sayfa kodu;

Sub hesaplaTablo(alan1 As String, alan2 As String, alanSon As String)

    Dim son As Long

    Application.ScreenUpdating = False

    With ThisWorkbook.Sheets("özet_tablo")

        son = .Range(alanSon & Rows.Count).End(3).Row

        .Range(alan1 & Rows.Count).ClearContents

        If son > 8 Then

            .Range(alan1 & son).Formula = "=Sum(" & alan2 & ")"

            .Range(alan1 & son).Value = .Range(alan1 & son).Value

        End If

    End With

    Application.ScreenUpdating = True

End Sub



Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)

    hesaplaTablo "G9:G", "C9:F9", "B"

    hesaplaTablo "k9:k", "j9:j9", "i"

End Sub

Teşekkürler olmuş, ancak her bir satır için vek.ücrt.toplamı-Ödenen toplam=Kalanı görmem gerekiyor.