Hücre değerini hafızasına alıp işlem yapmak

[sukruyilmaz1]

Merhabalar Sayın Üstatlarım,

Bir tabloda veriler mevcut. Hücredeki veriler için her seferinde 1 sütun veya satır eklemek yerine, var olan hücreye yeni değer girince, bir önceki değeri toplayarak hücreye yazabilir miyiz? Yani a1 hücresinde 100 yazıyor sonra gelip a1 hücresine 200 yazdığınızda bize a1 hücresini 300 olarak güncelleyebilir mi ?

Teşekkür ederim,

 

[dEdE]

Merhaba,
Bir Modüle yapıştırarak dener misiniz?

Dim OncekiDeger As Double

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If IsNumeric(Target) Then Target = Target + OncekiDeger
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsNumeric(Target) Then OncekiDeger = Target
End Sub

 

[sukruyilmaz1]

Merhaba,
Bir Modüle yapıştırarak dener misiniz?

Dim OncekiDeger As Double

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If IsNumeric(Target) Then Target = Target + OncekiDeger
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If IsNumeric(Target) Then OncekiDeger = Target
End Sub

çok teşekkür ederim çözümünüz için.