Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
contar ultima linha...
 
Notifications
Clear all

contar ultima linha e ultima coluna em listas com filtro

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
932 Visualizações
RSS
 4ntunes
(@4ntunes)
Posts: 0
New Member
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. :roll:

 
Postado : 16/03/2016 12:32 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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
 
Postado : 16/03/2016 6:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico