Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 contar linhas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
serbar



Mensagens : 19
Data de inscrição : 07/02/2011

MensagemAssunto: contar linhas   Sex Jun 29, 2012 5:06 pm

Preciso de um comando que conte quantas linhas existem na planilha onde a coluna A esteja preenchida.

Vou usar o número apurado para montar um loop

Agradeço antecipadamente,
Voltar ao Topo Ir em baixo
Ver perfil do usuário
GabrielRR



Mensagens : 5
Data de inscrição : 28/08/2012

MensagemAssunto: Re: contar linhas   Ter Ago 28, 2012 3:55 pm

Sub TotalLinhas()


xLinhas = Range("A65536").End(xlUp).Row

MsgBox "Número de Registros: " & xLinhas

End Sub


OBS: Conta também as linhas em branco, portanto, retire os espaços em branco ou incremente.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
GabrielRR



Mensagens : 5
Data de inscrição : 28/08/2012

MensagemAssunto: Re: contar linhas   Ter Ago 28, 2012 4:16 pm

Outra Possibilidade:


Sub ExitForDemo()
Linha_Coluna = Application.WorksheetFunction.Max(Range("A:A"))
For linha = 1 To 65536
Set celula = Range("A1").Offset(linha - 1, 0)
If celula.Value = Linha_Coluna Then
MsgBox "Quantidade = " & linha

celula.Activate

Exit For
End If
Next linha
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: contar linhas   Hoje à(s) 8:55 am

Voltar ao Topo Ir em baixo
 
contar linhas
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Linhas Diagonais
» linhas na diagonal
» Aula 3 - Nossas primeiras linhas
» Contar pixels andados
» Como colocar essas linhas separando cada um membro do rank

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: