DELETE Yapınca 0 Gibi İşlem Yapsın

[baydeniro]

Merhaba Arkadaşlar,
Aşağıdaki sayfa kodu ile B-C-D sütunlarına bir rakam girildiğinde 2.satıra o sütunun toplamını alıyor. Gayet güzel çalışıyor. Ama şöyle bir durum var : Mevcut bir rakamı DELETE ile sildiğmde aynı sütundaki toplamı değil 1 sol sütundaki toplamı revize ediyor.
DELETE yapılan hücreye 0 (sıfır) yazması nasıl sağlanır ? Örnek dosya ektedir.

 

[Necdet]

Merhaba,

Böyle bir şeyi neden makro ile yaptığınızı anlamadım, ama aşağıdaki gibi dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B:D]) Is Nothing Or Target.Row < 3 Then Exit Sub
    Cells(2, Target.Column) = "=SUM(INDIRECT(ADDRESS(3,COLUMN())&"":""&ADDRESS(1000000,COLUMN())))"
    Cells(2, Target.Column).Value = Cells(2, Target.Column).Value

End Sub


End Sub

 

[baydeniro]

Merhaba,

Böyle bir şeyi neden makro ile yaptığınızı anlamadım, ama aşağıdaki gibi dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B:D]) Is Nothing Or Target.Row < 3 Then Exit Sub
    Cells(2, Target.Column) = "=SUM(INDIRECT(ADDRESS(3,COLUMN())&"":""&ADDRESS(1000000,COLUMN())))"
    Cells(2, Target.Column).Value = Cells(2, Target.Column).Value

End Sub


End Sub

Necdet üstadım çok teşekkür ederim. Harika çalışıyor. Sağlıcakla kalın