suzulmuş satırların sayısı

[hayalbert]

selam
veri sayfası makro ile süzdükten sonra kalan satırların sayısını yine makro yolu ile nasıl bulabilirim ?
çünkü worksheetfunction.countA metodunu kullandığımda tüm satırlar sayılıyor

 

[Levent Menteşoğlu]

Aşağıdaki kod A1:A100 aralığındaki görünen hücrelerin sayısını verir, kendinize uyaralayabilirsiniz.

say = [a1:a100].SpecialCells(xlCellTypeVisible).Count

Eğer hücrelerin hepsinde veri varsa aşağıdaki gibide olabilir.

say= WorksheetFunction.Subtotal(103, [a:a])

 

[hayalbert]

çok teşekkür ederim
ilk satırdaki kod işe yaramadı
ikinci sıradaki ise dediğim işi yaptı