Hücrelere Ardışık Değer Atama

[amenejist]

Arkadaşlar aktif hücreye değer girerken bu girdiğimiz değerle bir üst hücredeki değeri toplayıp aktif olan hücreye nasıl yazdırabilirim acaba?
Yani diyelim ki A1=3 iken A2 hücresine geçip 5 yazıp hücreden çıktığımızda A2=A1+A2=3+5=8 olsun.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.
Sütun olarak A sütunu seçilmiştir, siz değiştirebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Or IsNumeric(Target.Offset(-1, 0)) = False Then Exit Sub
Application.EnableEvents = False
With Target
    .Value = .Value + Target.Offset(-1, 0)
    Application.EnableEvents = True
 End With
End Sub

 

[dragon44760]

kod bölümü derken nereye kopyalayacağız

 

[Korhan Ayhan]

Selamlar,

Sayfanın kod bölümüne ulaşmak için;

Mouse işaretçisi Sayfa isminin üzerinde iken sağ klik yapın ve açılan menüden Kod Görüntüle seçeneğini seçin. Karşınıza boş beyaz bir pencere gelecektir. Burada verilen kodu o pencereye uygulayın.