• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

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.
__________________
 
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.
 
Merhaba,

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

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
[d2] = [d2] + Target
End Sub
 
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
 
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.
 
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.
 
Merhaba,

Kod: 
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
 
Sayın Necdet Yeşertener tam istediğim gibi olmuş ilginize ve emeğinize sağlık çok teşekkür ederim
 
Merhaba,

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

Kod: 
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
 
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.
 
Tabiki olur. Kodu incelerseniz rahat anlarsınız, sütunları geliştirme olası.

Kod: 
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
 
Sayın Necdet Yeşertener süpersiniz tam istediğim olmuş elinize emeğinize sağlık
 
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ı?
 
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
 
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.
 
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.
 
Necdet Yeşertener' Alıntı:
Tabiki olur. Kodu incelerseniz rahat anlarsınız, sütunları geliştirme olası.

Kod: 
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
Genişletmek için tıkla ...

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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst