Hücrede toplama

[acd]

Herkeze merhaba

a1 hücresine bir sayı girdiğimde, zaten bir sayı olan c1 hücresine ilave etmesini planlıyorum..
Ancak a1 deki sayı daha sonra silinerek , başka bir sayı yazılacak,her seferinde a1'e yazdığım sayının , c1 de toplayarak devam etmesi.Biraz daha açarsam, a1'e 5 yazdım c1 5 oldu,a1'e daha sonra 3 yazdım c1 8 oldu , a1'e daha sonra 10 yazdım , c1 18 oldu..
Bu bana tek satır , tek satır tuttuğum stok programım için gereki.

Cevap vereceklere teşekür ederim.
Saygılar..

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. A1 hücresine değer girip entere bastığınızda kod kendiliğinden çalışacaktır.

[vb:1:15bf7c8bb9]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [c1] = [c1] + [a1]
End Sub
[/vb:1:15bf7c8bb9]

 

[ahkan]

Bunu bi incele bakalım........

 

[acd]

Merhabalar..

Bilgiler için çok teşekkür ederim..Ama

Tabii bu işlem 1 satırla sınırlı değil,A1,A2,A3 . . sürüp gidiyor..
Biraz uğraştım ama formülü "her satır" için uygulayamadım..

Çaresi var ise rica ediyorum..

Teşekkürler..

 

[acd]

Merhaba,

Yukarıda sorduğuma çözüm bulamadım
Aşağıdaki formülün nasıl kısaltılacağı hakkında yardım rica ediyorum.
Saygılar..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [c1] = [c1] + [a1]
If Target.Address = "$A$2" Then [c2] = [c2] + [a2]
If Target.Address = "$A$3" Then [c3] = [c3] + [a3]
If Target.Address = "$A$4" Then [c4] = [c4] + [a4]
If Target.Address = "$A$5" Then [c5] = [c5] + [a5]
If Target.Address = "$A$6" Then [c6] = [c6] + [a6]


If Target.Address = "$A$1000" Then [c1000] = [c1000] + [a1000]

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:3ea597b66b]Private Sub Worksheet_Change(ByVal Target As Range)
If intersect(Target,[a:a]) is nothing then exit sub
sat=target.row
cells(sat,"c")=cells(sat,"c")+cells(sat,"a")
End Sub [/vb:1:3ea597b66b]

 

[acd]

Çok teşekkür ederim Levent Bey..
Saygılar..