seçili satır sayısı

[akavak]

Merhaba,
Sayfa1 de 1800 satırımız var. VBA de satır sayısını saydırabiliyoruz. Ancak sadece seçili hücrelerin sayısını almak istiyorum.
Örnek : say = WorksheetFunction.CountA(Range("b1:b65536")) dediğimizde hepsinin sayısını veriyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.


Seçili alandaki hücrelerin sayısını verir.

Option Explicit
 
Sub HÜCRE_SAY()
    Dim SAY
    SAY = Selection.Cells.Count
    MsgBox SAY
End Sub

Seçili alandaki satır sayısını verir.

Option Explicit
 
Sub SATIR_SAY()
    Dim SAY
    SAY = Selection.Rows.Count
    MsgBox SAY
End Sub

 

[akavak]

Selam,

ilginize teşekkür ederim öncelikle.
Seçili hücre derken tam anlatamadım sanırım. Filtre ile seçtiğimizde ekranda görünün satır sayısına ihtiyacım var. Örnek "Ankara" olanları seçtiysek kaç tane Ankara var o lazım.
Teşekkürler

 

[Orion1]

Selam,

ilginize teşekkür ederim öncelikle.
Seçili hücre derken tam anlatamadım sanırım. Filtre ile seçtiğimizde ekranda görünün satır sayısına ihtiyacım var. Örnek "Ankara" olanları seçtiysek kaç tane Ankara var o lazım.
Teşekkürler

A2:A65536 aralığının filtre edildiği varsayılmıştır.

Sub alttoplam()
MsgBox "Görünür hücre sayısı : " & WorksheetFunction.Subtotal(103, Range("A2:A65536"))

End Sub

 

[ataman55]

Görünür hücre sayısını makro kullanmadan yapabilir miyiz?

 

[Orion1]

Görünür hücre sayısını makro kullanmadan yapabilir miyiz?

Sorunuzu makaro vba bölümünde sormuşsunuz.
Formül ile de aşağıdalki gibi.

=ALTTOPLAM(103;A2:A65536)

 

[akavak]

çok teşekkür ederim

 

[ataman55]

çok teşekkürler.

 

[emsey]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.


Seçili alandaki hücrelerin sayısını verir.

Option Explicit

Sub HÜCRE_SAY()
    Dim SAY
    SAY = Selection.Cells.Count
    MsgBox SAY
End Sub

Seçili alandaki satır sayısını verir.

Option Explicit

Sub SATIR_SAY()
    Dim SAY
    SAY = Selection.Rows.Count
    MsgBox SAY
End Sub

Selamlar üstad bu kodda her şekilde hep 1 veriyor.

 

[Korhan Ayhan]

Kodun sonuç vermesi için mouse ile alan (hücre) seçimi yaptıktan sonra kodu çalıştırmalısınız.