Bakiye

[loxka]

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1
Target.Offset(0, 4).Value = IIf(Target = Empty, Empty, "=SUM(R[-1]C-RC[-1])")
End Select
End Sub

şeklinde bakiyeye istediğimi yansıtabiliyorum ama bir sütundan daha sonuç almam gerekiyor
Target.Offset(0, 4).Value = IIf(Target = Empty, Empty, "=SUM(R[-1]C-RC[-2])")

şeklinde yukarıdaki koda ilave yapınca işlemi gerçekleştirmiyor.
bu kodu nasıl yukarıdaki koşula ilave edebilirim yardımlarınız için teşekkür ederim

 

[hamitcan]

Dosyanızı ekleyin.

 

[loxka]

dosya ektedir

 

[loxka]

sıkıştım biraz cevaplarınızı sabırsızlıkla bekliyorum

 

[meslan]

Merhaba Sn. loxka
Şu kodları sayfanıza uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a6:d65536]) Is Nothing Then Exit Sub
If Cells(Target.Row, "c").Value <> "" Or Cells(Target.Row, "d").Value <> "" Then
Cells(Target.Row, "e").FormulaR1C1 = _
"=IF(RC[-2]+RC[-1]>0,SUBTOTAL(9,R6C3:RC[-2])-SUBTOTAL(9,R6C4:RC[-1]),0)"
Cells(Target.Row, "f").FormulaR1C1 = "=IF(RC[-1]>0,""(B)"",IF(RC[-1]<0,""(A)"","" ""))"
With Range("a5:f" & [a65536].End(3).Row).Borders
.LineStyle = xlContinuous
.ColorIndex = 1
.Weight = xlThin
End With
End If
End Sub