aynı hücreye yazılan rakamları diğer sayfada toplattırmak

[ustat]

1.sayfanın a1 hücresine yazdığım her sayıyı 2. sayfanın a1 hücresinde üst üste toplattırmak istiyorum.
1. sayfaya her seferinde değişik sayı gireceğiz 2. sayfadaki hücrede toplamı gözükecek. Yardımlarınız için şimdiden teşekkürler...

 

[Ayhan Ercan]

Merhaba
Sayfa1 in kod penceresine aşağıdaki kodu yazıp deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
Sheets("Sayfa2").Range("A1") = Sheets("Sayfa2").Range("A1").Value + [a1].Value
End Sub

 

[ustat]

teşekkürler çok sağolun

 

[Ayhan Ercan]

teşekkürler çok sağolun

Rica ederim.
İyi çalışmalar....

 

[ustat]

diğer hücrelerdede aynı şekilde yazdırmak için aynı kodu çoğaltmammı gerekir.

 

[ustat]

ayhan bey diğer hücreler için kodu çoğaltmakmı gerkiyor

 

[Ayhan Ercan]

ayhan bey diğer hücreler için kodu çoğaltmakmı gerkiyor

Bu kodda veri girmek için Sayfa1 deki a1 hücresi hedef gösterilmiştir.

If Intersect(Target, [a1]) ........

 

[ustat]

1.sayfanın a1 hücresine yazdığım her sayıyı 2. sayfanın a1 hücresinde üst üste toplattırmak istiyorum.
1. sayfaya her seferinde değişik sayı gireceğiz 2. sayfadaki hücrede toplamı gözükecek.
bu konu hakkındaki yukarıda yazdığınız kod işimize çok yaradı ama halen şöyle bir mesele var.

bu kodu bütün hücrelere veya sayfaya nasıl uygulayabiliriz.

 

[Ayhan Ercan]

bu kodu bütün hücrelere veya sayfaya nasıl uygulayabiliriz.

Tekrar Merhaba,
Yine Sayfa1 in kod penceresine ;

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sayfa2").Range(Target.Address(0, 0)) = Sheets("Sayfa2").Range(Target.Address(0, 0)).Value + Target.Value
End Sub

 

[ustat]

teşekkürler...............