Bakİye DÜzenleme

[AKTAY27]

GÜNAYDIN ARKADAŞLAR

Borç Alacak Bakiye düzenleme için yine bu siteden aldığım kod var ama ben kendime uyarlayamadım. üstadlarım yardımcı olurmusunuz. teşekkeürler
örnek dosyayı gönderiyorum.

 

[AKTAY27]

örnek dosya

örnek dosya

 

[Zeki Gürsoy]

Sub bakiye()
Dim i As Integer

For i = 3 To [a32000].End(3).Row
    With Cells(i, "G")
        .NumberFormat = "#,##0.00 ""(B)"";-#,##0.00 ""(A)"""
        .Value = WorksheetFunction.Sum(Range("E3:E" & i)) - _
                 WorksheetFunction.Sum(Range("F3:F" & i))
    End With
Next

End Sub

 

[AKTAY27]

harikasın anemos
teşekkür ederim

 

[M@TR@X]

Tekrar upload edebilir misiniz ?