Hücre değişimini hesaplama

[vakitsiz67]

Bir arkadaşım bugün şöyle bir soruyla geldi.

Örneğin bir hücrede sayı var onu değiştirdiğimizde ilk değeri ile arasındaki farkı bir başka hücreden çıkarmak istiyor.

Örneklemek gerekirse.

Örneğin
a1 hücresinin değeri 90 olsun.
b1 de 20 yazsın.

20 sayısını 35 yaptığım anda 35-20=15
15 otomatik olarak a1 hücresindeki değerden eksilecek. 90-15=75 olacak.

 

[vakitsiz67]

Ama neden

Yarım lütfen

 

[Necdet]

Merhaba,

Ayrıntıyı fazla düşünmedim, kodları deneyiniz.

Kodlar ilgili sayfanın kod bölümünde olmalı.

Public EskiDeger As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    Range("A1") = Range("A1") - (Range("B1") - EskiDeger)
    
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then EskiDeger = Target.Value
    
End Sub