Excelde toplama

[izleyici]

Başvurulan hücredeki (a1) değer değişse veya silinse dahi formülün yazıldığı hücre (b1) toplamaya devam edecek bu konuda yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[mustafaine1]

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

bu kodu denermisiniz..

 

[izleyici]

sayın mustafaine yardımın için çok teşekkür ederim. kod değil de bu toplamı excel formülü ile yapabilirmiyiz ilgine şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Döngüsel başvuru yöntemini kullanarak formülle çözüm uygulayabilirsiniz.

İlk olarak ARAÇLAR-SEÇENEKLER-HESAPLAMA menüsünü açın.
"Yineleme" seçeneğini aktif hale getirin. Hemen altındaki "En fazla yineleme" kutucuğuna 1 değerini yazıp işlemi tamamlayın.

B1 hücresine aşağıdaki formülü uygulayın.

=B1+A1

Gelen uyarı mesajına tamam diyerek devam edin.

Artık A1 hücresine yazacağınız değer B1 hücresindeki değerin üzerine eklenerek devam edecektir.

 

[izleyici]

Sayın Mustafa ASLAN ilgine çok teşekkür ederim. bu kod işime yaradı ancak kod yazmadan excel formülü ile bu toplamı yapma imkanı varmı yardım edersen çok sevinirim.

 

[Korhan Ayhan]

Selamlar,

#4 nolu mesajımı incelediniz mi?

 

[izleyici]

Sayın Korhan bey ilgine çok teşekkür ederim sorun çözüldü

 

[izleyici]

Sayın Korhan bey sorun çözüldü dedim ama sonradan farkettim a1 hücresini boşaltmadan diğer hücrelere yazılan değerlerden b1 hücresi etkileniyor. hatta ilgisiz bir hücredeyken del tuşuna bassanız bile hesaplama yapıyor. b1 hücresi sadece a1 e girilen değerlerden etkilenmeli bunun için bir formül varmı

 

[Mahir64]

Sayın Korhan bey sorun çözüldü dedim ama sonradan farkettim a1 hücresini boşaltmadan diğer hücrelere yazılan değerlerden b1 hücresi etkileniyor. hatta ilgisiz bir hücredeyken del tuşuna bassanız bile hesaplama yapıyor. b1 hücresi sadece a1 e girilen değerlerden etkilenmeli bunun için bir formül varmı

Merhaba
Bunun için makro kullanmanız gerekli
Sayfanın kod bölümüne uygulayın ve deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
[B1] = [A1] + [B1]
End If
End Sub

Düzeltme: Sn:Mustafaine aynı cevabı vermiş.

 

[izleyici]

Sayın Mahir Bey ilginize çok teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Excelin hesaplama kuralına göre sayfadaki her değişimde hesaplamalar yeniden yapılmaktadır.

Eğer işinize yarayacaksa A1 hücresi dışındaki hücreleri kilitledikten sonra sayfanızı korumaya alırsanız sadece A1 hücresine veri girişi yapabilirsiniz.

Bunun dışında en kullanışlı çözüm makro kullanmanız olacaktır. Zaten arkadaşlarımızda size gereken kodu önermişler.