Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 contar linhas

Ir para baixo 
2 participantes
AutorMensagem
serbar




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

contar linhas Empty
MensagemAssunto: contar linhas   contar linhas EmptySex 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,
Ir para o topo Ir para baixo
GabrielRR




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

contar linhas Empty
MensagemAssunto: Re: contar linhas   contar linhas EmptyTer 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.
Ir para o topo Ir para baixo
GabrielRR




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

contar linhas Empty
MensagemAssunto: Re: contar linhas   contar linhas EmptyTer 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
Ir para o topo Ir para baixo
Conteúdo patrocinado





contar linhas Empty
MensagemAssunto: Re: contar linhas   contar linhas Empty

Ir para o topo Ir para baixo
 
contar linhas
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Contar linha
» CONTAR VALORES
» Contar valores
» Comparação de linhas
» ocultar linhas

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: