aynı hücreye toplama

[güven]

Merhabalar
a1 hücresine rakam girdikçe b1 hücresine toplamı alsın yani a1 hücresindeki rakam değiştikçe b1 e yazılan ilk önceki rakamın üstüne toplasın İnşallah anlatabilmişimdir. a1 hücresine rakam girip enterledikçe b1 toplatıyorum b1 de çıkan rakamın üstüne topluyor.Bu benim sitedeki ilk sorum buna benzer sorular çıktıysa özür dilerim
güven

 

[veyselemre]

[vb:1:92a411171d]Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Address <> "$A$2" Then Exit Sub
If [b1] = Empty Then [b1] = "="
If IsNumeric([a1]) And [a1] <> 0 Then [b1].Formula = [b1].Formula & "+" & [a1]

End Sub[/vb:1:92a411171d]

 

[SGM020]

a1 hücresine rakam girdikçe b1 hücresine toplamı alsın

Çalışmanızda yardımcı olur kanısı ile bir örnek dosya ekliyorum.

Kolay gelsin.

 

[güven]

hepinize çok teşekkür ederim sağolun

 

[Necdet]

Sayın güven,
Bende makrosuz örneğini yaptım, dosyada açıkladım, umarım bu da işinize yarar.
İyi Çalışmalar