Toplamın üzerine aynı hücreden sayı eklemek

[gunaygergin]

Sevgili Forum üyeleri;
Öncelikle Yeni arayüzümüz hayırlı olsun.
Bu soruyu Makrolar bölümünden mi sormam gerekir di bilemiyorum.

Ekteki dosya da da göreceğiniz üzere bir hücreden yaptığım girişleri diğer hücrede üzerine ekletmek. Yardımlarınız için şimdiden teşekkürler.

 

[mehmett]

Benim verdiğim cevap hatalı, Zafer'in ki doğru cevap olduğundan benimkini sildim.

 

[zafer]

Merhaba

F4 hücresine sayı girin ...İnceleyiniz...

 

[Korhan Ayhan]

Selamlar,

Sayfa1 in kod bölümüne aşağıdaki kodları uygulayınız. "F4:F8" hücre aralığında çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [F4:F8]) Is Nothing Then Exit Sub
    Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

 

[gunaygergin]

Teşekkürler

sevgili zafer in verdiği cevap çalışıyor ancak ilk veri girişinde iki katını alıyor.
sevgili cost_control un cevabı düzgün çalışıyor çooook teşekkürleeer.