Tek hücre ile hesap yapma

[Yek_Mc]

Arkadaşlar merhaba
ben tek hücre kullanarak toplama ve çıkarma işlemini yapmak istiyorum
örneğin a1 hücresini kullanarak bu hücre içine +10 gibi değerler girecem
ve yeni bir değer gireceğim zaman hücre boş gibi görünecek
ve o hücre içine tekrardan +10 veya -5 gibi değerler girerek hesaplama yapacağım

not=+ bir değer toplama - bir değer çıkarma anlamına geliyor

 

[Korhan Ayhan]

Merhaba,

Bu işlemi yapmak istediğiniz sayfanızın adı üzerinde sağ klik yapın.
"Kod görüntüle" seçeneğini seçin.
Açılan beyaz pencereye aşağıdaki kodu uygulayın.

Option Explicit
Dim Veri As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target = Target + Veri
10  Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Veri = Target
End Sub

A1 hücresine veri girip deneyin.

 

[Yek_Mc]

Teşekkür ederim

 

[Yek_Mc]

Dostum senden bir ricam daha olacak
yazmayı unuttuğum birşey
a1 hücresine değer giriyoruz yaa hücre sadece değer girmek için ama toplam değeri görmek içini ise b1 hücresini kullanmak istiyorum.
Yani ben a1 hücresine +10 yazdığımda b1 hücresinde 10 değerini görmek istiyorum,gene a1 hücresine +5 yazdığımda ise b1 hücresinde 15 değerini görecem.
Kısacası a1 hücresini tahta gibi düşünelim ben girecem değeri a1 e o işlemli yapıp b1 hücresinde son halini gösterecek ve tahtat işlemden sonra temiz bir biçimde yeni veriler igirmeye hazır bekleyecek

 

[Seyit Tiken]

Buyrun....

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
[b1] = [b1] + [a1]
End Sub

 

[Yek_Mc]

çooook teşekkür ederim sağolun