sütunda kaç farklı veri var??

[keniken]

Filtreleme (autofilter) yaptıktan sonra aşağı açılan kutudaki verileri saydırabilir miyim makro ya da başka bir yolla?

Yani sütun içinde kaç farklı değer var, onu öğrenmek istiyorum..Forumu inceledim ama bulamadım..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Bu kod A2 hücresinden başlayarak tüm A kolonunda kaç farklı veri olduğunu bulacaktır.

[vb:1:67e8f6d2b8]Sub say()
For a = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("a2:a" & a), Cells(a, 1)) = 1 Then c = c + 1
Next
MsgBox c
End Sub[/vb:1:67e8f6d2b8]

 

[Haluk]

Alternatif ektedir.

(2 değişik formulle)

 

[Levent Menteşoğlu]

Formüllerle çözüm çok mükemmel, yeni bir şey daha öğrendim. Teşekkürler Sn Raider

 

[keniken]

İkinize de çok teşekkür ederim arkadaşlar..Çok faydalı oldu.. :hey:

 

[keniken]

Sn.leventm,

Makroyu autofilter açıkken filtrelenmiş veriler üstünde kullanamıyorum.. Bu işin çözümü var mı?

 

[Haluk]

Aşağıdaki işinize yarar mı ?

(A1 hücresinde, A sütunu için filtreleme uygulandığında)

[vb:1:e9d68c7514]Sub Test()
NoA = Cells(65536, 1).End(xlUp).Row
MsgBox ActiveSheet.Range("A1:A" & NoA).Cells.SpecialCells(xlCellTypeVisible).Count
End Sub
[/vb:1:e9d68c7514]

 

[keniken]

Olmadı Sn.Raider.. Þöyle bişi denedim ama yemedi

Sub say()
For a = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A2:A" & a).Cells.SpecialCells(xlCellTypeVisible), Cells(a, 1)) = 1 Then c = c + 1
Next
MsgBox c
End Sub

 

[bahadir70]

Merhaba,

Haluk bey in gonderdigi formulleri goremiyorum acaba neden?

 

[Korhan Ayhan]

Merhaba,

Foruma yapılan saldırıda belli bir tarihten önceki mesaj eklerine maalesef ulaşılamıyor. Farklı bir başlık açarak yardım talebinde bulunabilirsiniz.

Merhaba,

Haluk bey in gonderdigi formulleri goremiyorum acaba neden?