Witam
Czy ktoś wie jak policzyć wyfiltrowane wiersze? Mamy tabelę i jak ustawimy w niej filtr to ilość wierszy zawęzi się tylko do tych spełniających wymagania. Jak policzyć ile tych wierszy jest. Oczywiście chodzi mi o VBA. W arkuszu jak się zaznaczy te wiersze to na dolnym pasku licznik pokazuje poprawną wartość, więc chyba da się też to w makro sprawdzić.
Widoczne wiersze możesz policzyć metodą Range.SpecialCells:
Debug.Print Range("a1:a10").SpecialCells(xlCellTypeVisible).Count 
Dziękuję, pomogło :)
No dobra a teraz pytanie: Jak przejść po tych (tylko widocznych) komórkach i pobrać z nich dane?
Np. pętlą For Each:
Sub nieukryte()
Dim rng As Range, kom As Range
Set rng = Range("a1:a10").SpecialCells(xlCellTypeVisible)
Debug.Print rng.Count
For Each kom In rng
Debug.Print kom.Value
Next
End Sub
