Notifications
Clear all
2024 - VBA & Macros
2
Posts
2
Usuários
0
Reactions
973
Visualizações
Topic starter
Para achar a ultima linha ou ultima coluna sempre uso :
UltLinha = Cells(Rows.Count,"A").End(xlUp).Row
UltColuna = Cells(1,Columns.Count).End(xlToLeft).Column
Mas como fazer isso se os dados estiverem em autofiltro ?
digamos que o auto filtro liste apenas 4 linhas e a ultima linha seja a 100, o comando acima colocara na variável o numero 100 eu desejo que lê coloque 4 , pois listou apenas 4 itens.
alguma sugestão ?
Obrigado. 
Postado : 16/03/2016 12:32 pm
Veja se é isto :
Sub Counta_Linhas_Visiveis()
Dim sht As Worksheet
Set sht = Sheets("Sheet2")
Dim rng As Range
Set rng = sht.AutoFilter.Range
MsgBox "Total de :- " & rng.Columns(1). _
SpecialCells(xlCellTypeVisible).Count - 1 & " linhas " _
& " de " & rng _
.Rows.Count - 1 & " Linhas"
End Sub
Sub Conta_Col_Visivel()
Dim nbColumns As Long
nbColumns = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox "Total de := " & Range(Cells(1, 1), Cells(1, nbColumns)).SpecialCells(xlCellTypeVisible).Count & " colunas"
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/03/2016 6:54 pm