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,
GabrielRR
Mensagens : 5 Data de inscrição : 28/08/2012
Assunto: 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.
GabrielRR
Mensagens : 5 Data de inscrição : 28/08/2012
Assunto: 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