Contador de linha

Existe várias maneiras entre elas:
_______________________________________________________________________________
>>O problema do código abaixo é o tempo para verificar (dependendo da qtde) e complexidade.
Sub Macro1()
varColuna = 1 ‘ Coluna que será verificado
varLinha = 1 ‘ Linha inicial que será verificado
varConteudo = 1
Do While varConteudo <> Empty ‘continua a verificar se conteudo for diferente de vazio
varLinha = varLinha + 1 ‘contador de linha
varConteudo = Cells(varLinha, varColuna).Value ‘grava o valor da celula
Loop
MsgBox “A qtde. de linhas é: ” + CStr(varLinha – 1)
End Sub

________________________________________________________________________________________
‘>>O problema deste código abaixo que se tiver uma linha vazia no meio dos registros ele vai contar junto
Sub Contador()

numeroRegistros = Range(“A65536”).End(xlUp).Row
MsgBox “Número de Registros: ” & numeroRegistros, vbOkOnly, “Número de registros em: ” & now()

End Sub
‘Este ultimo código é visto pelo site msdn

____________________________________________________

Veja  também:
Último a célula alterada: clique aqui

Última linha vazia ou preenchida (com fórmulas)

Sub Macro1()

UltimaLinha = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

End Sub

Última Célula Alterada

Para capturar a última célula alterada de uma planilha, use o código abaixo:

Cells(1, 1).Select
ActiveCell.SpecialCells(xlLastCell).Select
num_linha = ActiveCell.Cells.Row
num_coluna = ActiveCell.Cells.Column

Ultima linha / Linha em branco

Pessoalmente não gosto de utilizar este tipo de código (já tive problemas).
Mas visualmente é mais fácil que o uso do while.
Exemplo:

Range(“a20“).Select ‘….Seleciona primeira linha preenchida
Selection.End(xlDown).Select ‘….vai até última linha preenchida
x = Selection.Row ‘….grava na variavel a última linha

x = x + 1 ‘ …pega a célula em branco.

Verificar linha em branco – com ‘Do While’

Como um exemplo podemos verificar qual a célula vazia de uma planilha:

Imagem Exemplo Macro

Sub teste()

contaLinha = 1 ‘Esta variavel irá servir para pular de linha
verificaCel = Cells(contaLinha, 1).Value ‘Variável para gravar o conteúdo da célula
Do While verificaCel <> “”         ‘Faça enquanto conteudo da celula diferente de  vazio
contaLinha = contaLinha + 1 ‘soma ela mesma, pula para próxima linha
verificaCel = Cells(contaLinha, 1).Value  ‘verifica novo conteudo
Loop ‘volta para o while
MsgBox “A linha vazia é ” + CStr(contaLinha) ‘Mostra mensagem, qual linha é a vazia

End Sub

____________
Veja também: Outro código
__________ Praticando Exercício 2