Aynı hücreye devamlı toplama

[kayaisilak]

A1 hücresine girilen değerleri b1 hücresi devamlı sayı değiştikçe toplayacak böyle bir macro veya formül varmı. selamlar. Formda araştırdım ancak bulamadım.

 

[Leoncio]

Merhaba;
Aşağıdaki kodları deneyin..

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
a = Range("B1").Value + Range("a1").Value
Range("a1").ClearContents
Range("B1").Value = a

End Sub

 

[Necdet]

Merhaba, ekli dosyayı inceleyiniz

 

[Orion1]

Merhaba.
Aşağıdaki kodları Sayfanın kod bölümüne yapıştırınız.
A1 Hücresine değer girildikçe B1 hücresindeki değerle A1 hücresindeki değeri topluyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error GoTo hata
Range("B1").Value = Range("A1").Value + Range("B1").Value
Exit Sub
hata:
End Sub

 

[baydeniro]

Merhaba Necdet Yesertener. Dosyadaki olayı çözmedim. Güzel bir işlem var ama biraz açıklar mısınız.

 

[Necdet]

Merhaba Sayın serdarokan,

Araçlar--> Seçenekler--> Hesaplama--> yinelemeyi 1 yapınca çalışıyor. Çok bilimsel bir açıklama getiremedim ama idare edin artık

 

[Ali]

Aşağıdaki linktede buna benzer bir soru mevcuttur.

http://www.excel.web.tr/showthread.php?t=19435

 

[Leoncio]

Dikkat ederseniz sayfanın herhangi biryerine ne yazarsanız yazın B1 hücresine topluyor.

 

[Levent Menteşoğlu]

Araçlar--> Seçenekler--> Hesaplama--> yinelemeyi 1 yapınca çalışıyor. Çok bilimsel bir açıklama getiremedim ama idare edin artık

Ben bir açıklama getireyim. Döngüsel bir işlemde eğer yineleme ile sınırlama getirmezseniz, sonsuz işlem yapılır yani kısır döngüye girer. Bu sebeple yineleme değeri işlemin kaç kere yapılacağını belirler, bu değer bir ise işlem bir kere, iki ise iki kere yapılır. Bu değeri değiştirerek sonucunu sayfa üzerinde görebilirsiniz.