Soru Seçili Alanın Toplamını Almak

[ormann]

İyi günler;
Ekli örnek dosyada istediğim hücreleri mause ile seçtiğimde seçilen hücrelerin toplamını k3 hücresine , adedini ise L3 hücresine alt durum çubuğunda ki gibi yazdırabilir miyiz ?

İndir örnek

Dosyayı indir örnek

dosya.co

 

[kulomer46]

Merhaba

Ekli Program Sayfa1' de fareyle her yeni hücre yada hücre grubu seçtiğinizde,
seçili alan toplamını K3 hücresine, seçili alan hücre adedini L3 hücresine otomatik yazmaktadır.

Kolay Gelsin.
Selamlar...

İlgili Kod

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next  
    hücresay = Selection.Count  
    If hücresay > 25000 Then Exit Sub  
    For i = 1 To hücresay  
        topla = topla + Selection.Item(i)  
    Next  
    Cells(3, 11) = topla  
    Cells(3, 12) = Selection.Count  
    If Rows("3:3").RowHeight > 45 Then Rows("3:3").RowHeight = 45  

End Sub

İlgili Resim

 

[ormann]

Sayın Kulomer çok teşekkür ederim. Sadece L sutunu ile sınırlayabilir miyiz. Yani L sütunun toplatıp saydırabilirmiyiz ?

 

[muratboz06]

Linkteki dosyayı inceleyiniz.
Sayfa1 in kod bölümünde makro kodu yer almaktadır.

ornek.xlsm dosyasını indir - download

ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[ormann]

Çok teşekkür ederim sayın Murat ve Sayın kulomer46

 

[kulomer46]

Çok teşekkür ederim sayın Murat ve Sayın kulomer46

Selamlar...

 

[Seyit Tiken]

Soru hal olmuştur, bu da alternatif olsun;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[K3] = WorksheetFunction.Sum([Selection])
[L3] = WorksheetFunction.Count([Selection])
End Sub

 

[ormann]

Seçme halindeyken yani mausun sol tuşunu bırakmadan toplamı ve adedi göstre bilir mi ?.Alt durum çubuğunda ki gibi

 

[Seyit Tiken]

Şu şekilde deneyebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Text = "" Then Exit Sub
[L3] = Format(WorksheetFunction.Sum([Selection]), "#,##0.00") _
& "-" & WorksheetFunction.Count([Selection])
End Sub

 

[ormann]

Seyit bey mausu bırakmadan toplamı ve adedi göstermiyor

 

[Seyit Tiken]

Mausenin hareketlerini alt barda takip edebilirsiniz.

 

[ormann]

Seyit bey tam ekranda gözükmüyor