üstüne toplama

[Ayhan Ercan]

selam arkadaşlar. sorum biraz karışık ama umarım anlatmayı başarırım..

kısaca şöyle diyeyim:

sayfa1 deki a1 hücresine "10" yazdım. buraya yazdığım "10" rakamı otomatik olarak sayfa2 deki a1 hücresinede yazılsın.
sonra sayfa1 deki a1 hücresine "11" yazdım. bu sefer sayfa2 deki a1 hücresine birönceki (10) rakamın üstüne toplasın yani "21" yazsın.
sonra her sayfa1deki a1 hücresine yazdığım yeni bilgi otomatik olarak sayfa2 deki a1 hücresine toplayarak devam etsin.

umarım anlatabilmişimdir. yardımlarınızı bekliyorum. şimdiden teşekkürler...

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
[sayfa2!a1] = [sayfa2!a1] + [sayfa1!a1]
End Sub

Şeklinde deneyiniz.

 

[Ayhan Ercan]

bu kodu bir command düğmesine nasıl atayabilirim?

 

[Ali]

Worksheet_Change olayında Sayfa1'de bir hücreye çift tıkladığınızda
Change olayı gerçekleşeceğinden her seferinde A1'i üstüne ekler bunu engellemek için;

Benim tavsiyem şu şekildedir.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Worksheets("Sayfa2").Range("A1").Value = Worksheets("Sayfa2").Range("A1").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub

 

[Ali]

bu kodu bir command düğmesine nasıl atayabilirim?

Private Sub CommandButton1_Click()
Worksheets("Sayfa2").Range("A1").Value = Worksheets("Sayfa2").Range("A1").Value + Worksheets("Sayfa1").Range("A1").Value
End Sub

 

[Ayhan Ercan]

çok teşekkürler....