aynı hücrede toplam

[Hacı Bayram ÖZKAN]

arkadaşlar istegimi ekte anlattım, aynı hücreye yazılan verileri üst üste toplasın
hepinize teşekkürler.

 

[hamitcan]

Public deger As Long
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a1:a15,b1:b15,c1:c15]) Is Nothing Then Exit Sub
       Application.EnableEvents = False
       Target = Target + deger
       Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       deger = Target.Value
End Sub

 

[Hacı Bayram ÖZKAN]

hamit bey eline sağlık teşekkürler dua ile kalın. abiciğim birde bu değerleri sıfırlamak için nasıl bir makro yazılır, yani daha sonra verileri silemiyorum. teşekkürler.

 

[Hacı Bayram ÖZKAN]

arkadaşlar ikinci isteğime bakarmısınız. Teşekkürler.

 

[hamitcan]

Silmek yerine sıfır(0) koysanız...

Public deger As Long
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [a1:a15,b1:b15,c1:c15]) Is Nothing Then Exit Sub
       Application.EnableEvents = False
      [color=red] If Target.Value = 0 Then deger = 0: Target = 0[/color]  
      Target = Target + deger
       Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [a1:a15,b1:b15,c1:c15]) Is Nothing Then Exit Sub
       deger = Target.Value
End Sub