Üstüne toplamak

[Mdemir63]

Günaydın Arkadaşlar

Ekteki dosyamda Sayfa1 deki A1 hücresindeki veriyi Sayfa2 deki B1 hücresinin üstüne topluyor. Burada bir problem yok. Ancak Ben dosyayı açıp kapattığımda A1 hücresini her defasında topluyor. Halbuki ben ne zaman veri girersem o zaman üstüne toplasın istiyorum. Acaba formülüm mü yanlış Bu konuda yardımlarınızı bekliyorum.

Saygılar sunarım

 

[AS3434]

Sayın komutan63

Aşağıdaki kodu Sayfa1 in kod sayfasına yazın.

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

 

[Mdemir63]

Hocam merhabalar.

1- Dosyayı kaydedip çıkarken ve her kaydet dediğimizde tekrar tekrar üstüne topluyor
2- Burada sizin verdiğiniz kodlar sadece 2 hücre için halbuki ben bu tip toplamaları diğer başka hücrelerde de yaptıracağım.

Saygılar

 

[AS3434]

Sayın komutan63

Ne derece işinize yarar bilemem ama, Araçlar/ Seçenekler/Hesaplamayı El ile yapın. Ve altındaki kutucukdaki (Kaydetmeden Yeniden Hesapla) onayı kaldırın.

Hesaplama işlemi için F9 tuşuna basın.

Yada hangi hücreleriniz hesaplanacakca makroyu ona göre ayarlayın.

Başka bir yöntem şu an aklıma gelmiyor.

 

[Mdemir63]

Hocam teşekkürler

Saygılar

 

[Mdemir63]

Hocam verdiğiniz kodlarda 2, ve daha çok hücreler için ne yapmalıyım

Saygılar

 

[AS3434]

İşlem yapacağınız hücrelerle ilgili küçük bir örnek eklerseniz, düzenlemesini yapmaya çalışayım.

 

[Mdemir63]

İşlem yapacağınız hücrelerle ilgili küçük bir örnek eklerseniz, düzenlemesini yapmaya çalışayım.

Hocam merhaba,

Dosya ekte

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S2.[B1] = S2.[B1] + s1.[A1]
S2.[B2] = S2.[B2] + s1.[A2]
S2.[B3] = S2.[B3] + s1.[A3]
s1.[a1:a3].Clear
Set s1 = Nothing
Set S2 = Nothing
End Sub

 

[Mdemir63]

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S2.[B1] = S2.[B1] + s1.[A1]
S2.[B2] = S2.[B2] + s1.[A2]
S2.[B3] = S2.[B3] + s1.[A3]
s1.[a1:a3].Clear
Set s1 = Nothing
Set S2 = Nothing
End Sub

Merhabalar,

Hocam değişik bir çözüm sağolun
Saygılar