Hücreye yazdığım sayıyı otomatik toplasın

[halilbay2]

Arkadaşlar birde lütfen son girilen değerin görülmesi açısından C sütununa sayı girildiğinde D sütununda toplasa mümkün mü? Örneğin C2 hücresine her yazılan değeri D2 hücresinde toplamını gösterse mümkün mü acaba İlginize teşekkür ederim.
__________________

 

[halilbay2]

Arkadaşlar lütfen yardımcı olabilirmisiniz

 

[halilbay2]

Her C2 hücresine girilen değerleri D2 hücresibde toplasın

Arkadaşlar lütfen son girilen değerin görülmesi açısından C sütununa sayı girildikçe D sütununda toplasa mümkün mü? Örneğin C2 hücresine her yazılan değeri D2 hücresinde toplamını gösterse mümkün mü acaba? İlginize teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
[d2] = [d2] + Target
End Sub

 

[halilbay2]

Sayın Necdet Yeşertener ve tüm site üyelerine teşekkür ederim Ancak bunu sütuna yaymak mümkün mü? Yani (C ve D sütununa)
Saygılarımla

 

[Necdet]

Merhaba,

Sorunuzu tam olarak anlamadım, Tüm C ya da D sütunundaki değerler nerede toplanmalı? Açıklık getirirseniz yada bir örnek verirseniz çözümü kolaylaşacaktır.

 

[halilbay2]

Arkadaşlar lütfen son girilen değerin görülmesi açısından C sütununa sayı girildikçe D sütununda toplasa mümkün mü? Örneğin C2 hücresine her yazılan değeri D2 hücresinde, C3 hücresine her yazılan D3 hücresinde C4 hüc D4 te toplamını gösterse mümkün mü acaba? İlginize teşekkür ederim.

 

[Necdet]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

 

[halilbay2]

Sayın Necdet Yeşertener tam istediğim gibi olmuş ilginize ve emeğinize sağlık çok teşekkür ederim

 

[Necdet]

Merhaba,

Kontrollü olması sanırım daha güzel olur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
[B][COLOR=red]If IsNumeric(Target) Then[/COLOR][/B] Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

 

[halilbay2]

Sayın Necdet Yeşertener birde aynı özellik A sütununa yazdığım değer B sütununa C sütunundaki yazılan değerler D sütununa toplana bilirmi? Yani önceki aynı özelliği ek bir sütuna daha vermek gerkiyor. Sizleri yorduğum için özür dilerim. Her şey için teşekkür ederim.

 

[Necdet]

Tabiki olur. Kodu incelerseniz rahat anlarsınız, sütunları geliştirme olası.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [COLOR=darkred][B][A:A,C:C])[/B][/COLOR] Is Nothing Then Exit Sub
If IsNumeric(Target) Then Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

 

[halilbay2]

Sayın Necdet Yeşertener süpersiniz tam istediğim olmuş elinize emeğinize sağlık

 

[nurhan 48]

merhaba ayhan arkadaşım teşekkür ederim bana yardım ettigin için ama excel in acemisi olduğum için formülünden bişey anlamadım daha açık ve net bir formülün varmı?

 

[ayhan7tr]

Bunun en güzel yolu denemektir yeni bir sayfa açın dediğim kodları visual basicte ilgili sayfaya kopyalayın kodda belirtilen bir hücreye sayı yazın tekrar üstüne gelip yeni sayı yazın entere bastığınızda iki sayının toplanmı olduğunu göreceksin

 

[yarbay]

Nasıl indireceğiz bunu hata veriyor

 

[Korhan Ayhan]

Merhaba,

Foruma yapılan saldırıda bazı dosyalar silindi. Bu sebeple indiremiyorsunuz. Altın üyelik bölümünde bu sıkıntı büyük kırmızı punto ile açıklanmıştır. Sanırım gözünüzden kaçtı.

Yeni başlık açarak yardım talebinde bulunabilirsiniz.

 

[excel12312]

Selamlar, Sadece belli sütunları değil de benim belirleyeceğim hücrelere bu işlemi yapsası için kodda nasıl bir değişiklik yapmam lazım? örneğin C4 hücresine yazılanı K10 da toplasın, D5 hücresine yazılanı ise ikinci bir sayfada A1 de toplasın. Bu şekilde çalıştırmak için nasış bir düzenleme lazım ?

Şimdiden teşekkürler. İyi çalışmalar.

 

[excel12312]

Tabiki olur. Kodu incelerseniz rahat anlarsınız, sütunları geliştirme olası.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [COLOR=darkred][B][A:A,C:C])[/B][/COLOR] Is Nothing Then Exit Sub
If IsNumeric(Target) Then Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Selamlar, Sadece belli sütunları değil de benim belirleyeceğim hücrelere bu işlemi yapsası için kodda nasıl bir değişiklik yapmam lazım? örneğin C4 hücresine yazılanı K10 da toplasın, D5 hücresine yazılanı ise ikinci bir sayfada A1 de toplasın. Bu şekilde çalıştırmak için nasış bir düzenleme lazım ?

Şimdiden teşekkürler. İyi çalışmalar.