Üzerine toplama

[magnesia]

Arkadaşlar selam.
P sütununda herhangi bir hücreye rakam giriyorum. Tekrar aynı hücreye rakam girdiğimde bir önceki rakamın üzerine toplasın istiyorum.
Örneğin; P44 hücresinde 32 yazıyorsa. Ben bu hücreye 4 yazarsam sonuç 36 olsun.
Şimdiden teşekkürler.

 

[turist]

VBA sayfasında sayfa koduna aşağıdaki kodu uygulayıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 16 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If IsNumeric(Target.Value) = False Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Sayı değeri girilmedi , P sütununda  sadece Sayı girilebilir."
Exit Sub
End If
Dim eski As Double, yeni As Double
yeni = Target.Value
Application.EnableEvents = False
Application.Undo
eski = Target.Value
Target.Value = eski + yeni
Application.EnableEvents = True
End Sub

 

[magnesia]

Tam istediğim gibi.
İlginize, bilginize ve emeğinize sağlık.
Teşekkürler.

 

[turist]

Sağolun, iyi çalışmalar.

 

[ka_55]

VBA sayfasında sayfa koduna aşağıdaki kodu uygulayıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 16 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If IsNumeric(Target.Value) = False Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Sayı değeri girilmedi , P sütununda  sadece Sayı girilebilir."
Exit Sub
End If
Dim eski As Double, yeni As Double
yeni = Target.Value
Application.EnableEvents = False
Application.Undo
eski = Target.Value
Target.Value = eski + yeni
Application.EnableEvents = True
End Sub

Sayın turist, bu konuya yakın olduğunu düşünerek yazıyorum, sayfa1'deki A1 hücresi ve sayfa2'deki A1 hücrelerini sayfa3'deki A1 hücresine toplatıyorum. sayfa1 ve 2 deki hücrelerin verileri değişken. verdiğiniz kod'dan yola çıkarak her veri değişiminde sayfa3'de eski toplamın üzerine toplatabilir miyiz? Teşekkürler..