Üstüne toplamak

[Xflood]

Merhaba Arkadaşlar

A1
Sayı1 5
Toplam 5

Bu şekilde bir hücre yapısında sayı 1 i 7 yaptıgımda 5+7 şeklinde nasıl yapabilirim.Yani üstteki sayı değiştiğinde toplama ekleyecek.


Teşekkürler

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/showthread.php?t=45085

 

[Xflood]

Teşekkürler ancak şu mantıgı çözemedim

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A,C:C]) Is Nothing Then Exit Sub
If IsNumeric(Target) Then Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Burada değerleri alt alta gelmesini nasıl saglarım buarada a hücresindeki degeri b ye yazıyor bir yanındaki hücreye degilde bir alta inmesini saglamak istiyorum.

Yapım şu şekilde
A B C
Sayı 3 2 3
tOPLAM 5 7 10
Sayı 3 2 3
tOPLAM 5 7 10
Sayı 3 2 3
tOPLAM 5 7 10

 

[hamitcan]

Target.Offset(0, 1) yerine

Target.Offset(1, 0) yazın.

 

[İhsan Tank]

Target.Offset(0, 1) yerine

Target.Offset(1, 0) yazın.

hocam verdiklerinizi denedim olmuyor. değiştirdiğim zaman tüm sayfaya yazıyor

 

[hamitcan]

hocam verdiklerinizi denedim olmuyor. değiştirdiğim zaman tüm sayfaya yazıyor

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

şeklinde deneyin.

 

[Xflood]

Bu şekilde oluyor ancak toplamıyor,yukarıda ne varsa onu yazıyor alt hücreye

 

[hamitcan]

Bu şekilde oluyor ancak toplamıyor,yukarıda ne varsa onu yazıyor alt hücreye

Siz, örnek bir dosya ekleyin. Galiba verdiğim örneği kendinize uyarlayamadınız.

 

[İhsan Tank]

Siz, örnek bir dosya ekleyin. Galiba verdiğim örneği kendinize uyarlayamadınız.

hocam örnek ekte

 

[hamitcan]

Kodun mantığı; a2 = a1+b1 dir. Siz, b sütununu boş bıraktığınızdan sadece a1 değerini a2 değerine getirmektedir.

 

[Xflood]

İlk kodda ise mantık

A1 = 3
A2 = 3

daha sonra a1 5 yapınca a2=8 oluyor yani a1+a2 olarak çalışıyor o şekilde gerekiyor, onu çözemedim