Умная таблица. Фильтр. После фильтра остается одна строка (видимая). Как в VBA определить номер видимой строки в DataBodyRange? Не номер строки Листа, а номер строки DataBodyRange. Спасибо
Sub TabFVS()
With ActiveSheet.ListObjects(1)
MsgBox .DataBodyRange.SpecialCells(xlCellTypeVisible).Cells(1).Row + 1 - .DataBodyRange.Row
End With
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!