hücredeki sayının üstüne ekleme

[mpinal]

Arkadaşlar zaman zaman lazım olan fakat çözemediğim bir sorunum var.basit mantıkla a1 hücresine girdiğim sayıyı bir butona tıkladığımda b1 hücresindeki sayının üstüne toplasın ve b1 e yazsın istiyorum.Tabiki bunu geliştirebilmem için biraz açıklama yaparak yazarsanız çok sevinirim.geliştirmekten kastım a1 de a2 de a3 de... olan verileri bir buton ile b1,b2,b3... daki sayıların üzerine toplamasını istiyorum.Yardımlarınız için şimdiden teşekkürler...

 

[bedersu]

Sayın mpinal,
Şu kodları dener misiniz?

Sub topla()
For i = 1 To 10
Cells(2, i).Value = Cells(2, i).Value + Cells(1, i).Value
Next
End Sub

 

[tahsinanarat]

Sayfanın Kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target <> "" Then Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Target
End Sub

 

[mpinal]

teşekkürler

Sayın mpinal,
Şu kodları dener misiniz?

Sub topla()
For i = 1 To 10
Cells(2, i).Value = Cells(2, i).Value + Cells(1, i).Value
Next
End Sub

Sayın bedersu yazdığınız kod bana tahminimden daha çok şey öğretti çok teşekkür ederim emeğinize sağlık.

 

[mpinal]

teşekkürler

Sayfanın Kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Target <> "" Then Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) + Target
End Sub

Sayın Tahsinanarat verdiğiniz kodu yazdım ama sanırım seviyemin üzerinde bu yüzden eğer mümkünse biraz açıklama yapabilirmisiniz çünkü yazdığınız kodu uyguladım gayet güzel çalışıyor ama kendime uyarlayabilmem için çözmem gerekir maalesef çok iyi anlayamadım mümkün olursa basit bir iki cümleyle açıklama yazabilirseniz çok sevinirim.Ancak yine de ilginize ve emeğinize çok teşekkür ederim.