Filtrelenen Veri Sayısını Bulma

[Sa.NaL]

Merhaba arkadaşlar,

Ör/Diyelimki A1:A1225 e kadar verilerimiz var ben onları istediğim duruma göre filtreliyorum aşağıdaki kod ile filtreledikten sonra a sütununda kalan veri sayısını bulmam gerekiyor, nasıl bir kod işimi görür.


ActiveSheet.Range("$A$1:$N$366").AutoFilter Field:=9, Criteria1:="MÜLK S."

 

[Orion1]

Merhaba arkadaşlar,

Ör/Diyelimki A1:A1225 e kadar verilerimiz var ben onları istediğim duruma göre filtreliyorum aşağıdaki kod ile filtreledikten sonra a sütununda kalan veri sayısını bulmam gerekiyor, nasıl bir kod işimi görür.


ActiveSheet.Range("$A$1:$N$366").AutoFilter Field:=9, Criteria1:="MÜLK S."

MsgBox WorksheetFunction.Subtotal(103, Range("A2:A65536"))

 

[Sa.NaL]

Teşekkür Ederim...