Taralı alanı bir hücreye toplama

[askhamali]

Bir alanı sol tıkla tarayınca sağ alt köşede alanın toplamını gösteriyor. Bu tamam. Ancak;

Ben exceli, ekranın sağ altında tek sütununun 11 satırını görecek kadar bir kutucuk halinde kullanıyorum. (O sütunla işim bitince yön tuşuyla sonraki sütuna geçiyorum.)
Yazdığım 10 satırın bir kısmını sol tıkla tarayarak (sadece taradığım kısmının) toplamını 11.satıra otomatik yazmasını istiyorum.
10.satırda ilk 9 satırın toplam formülü zaten var ama ben yine de seçtiğim kadarının toplamının da 11.satıra kaydolmasını istiyorum.

Tarayınca sağ alt köşedeki toplamı görebilmem için kutuyu büyütmem gerekiyor. Büyütmek istemiyorum. Büyütsem bile sadece görebiliyorum.Tarayınca 11.satıra kaydetmesini de istiyorum.

Yardımcı olacak hocalarıma teşekkürü borç bilirim.

 

[turist]

Örnek excel dosyanızı ekleyip, tarifinizi de excel sayfası üzerinde yaparsanız; daha hızlı ve doğru cevap alabilirsiniz.

 

[Necdet]

Merhaba,

Sorunu tam anlamamakla birlikte seçimi yaptıktan sonra aşağıdaki kodları deneyiniz.

seçilen hücre sayısı önemli değil, seçildiği kadarını toplar ve seçimin son hücresinden sonraki hücreye toplamını yazar.

Sub Toplam()

    Dim i As Long
    
    i = Selection(1).Row + Selection.Rows.Count - 1
    Range(Selection(1).Address).Offset(i, 0) = Application.WorksheetFunction.Sum(Selection)
    
End Sub

 

[askhamali]

Mesela a1 ile a9 arasında değerler var. a10 da =Topla(a1:a9) formülü var. Bunda sıkıntı yok
Ancak sol tıkla a1 a5 arasını tarayınca, içindeki değerlerin toplamı, sağ alt köşede excel in çubuğunda toplam olarak yansımıyor mu ?
İşte bu taramayı yapınca ben otomatik olarak a11 e -sadece taradığım alanı- mesela a1 ile a5 arasının toplamını kaydetmesini istiyorum.
Başka bir sütunda mesela b1 ile b7 arasını sol tıkla tarayınca b11 e taradığım alanın toplamını kaydetmesini istiyorum.

İlginiz için teşekkürler.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodları boş bir modül içerisine kopyalayıp deneyiniz.

Sub Auto_open()
Application.OnKey "{F9}", "AltaTopla"
End Sub
Sub AltaTopla()
Cells(11, Selection.Column).Value = WorksheetFunction.Sum(Selection.Columns(1))
End Sub

İsterseniz Auto_open kodunu bir kere çalıştırdıktan sonra F9 tuşu ile de işlemi gerçekleştirebilirsiniz.

 

[askhamali]

Ömer Hocam çok teşekkür ederim. Necdet hocama da teşekkür ederim ilgisi için ancak kodunu uygulayamadım.

Ömer hocamın kodu işime yaradı.