(27/03/2021, 23:50)feraz yazdı: Gifi izleyin olmuşmu yanlış anlamadıysam.
Kodları düzenleyebilirsiniz istediğiniz gibi.
Her iki tablodada Dosya adları sütunundaki karşılıklı veriler aynı olduğu için döngü ile yapmadım.

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

    kalanHesap

    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



Sub kalanHesap()

    Dim son As Long

    Application.ScreenUpdating = False

    With ThisWorkbook.Sheets("özet_tablo")

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

        .Range("K9:K" & Rows.Count).ClearContents

        If son > 8 Then

            .Range("K9:K" & son).Formula = "=SUM(F9)-IF(i9=""Genel Toplam"",0,SUM(j9))"

            .Range("K9:K" & son).Value = .Range("K9:K" & son).Value

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

            If .Range("B" & son).Value = "Genel Toplam" Then

                .Range("K" & son).Value = ""

            End If

        End If

    End With

    Application.ScreenUpdating = True

End Sub