Como Contar Linha Com Vba

set 29, 2010 by

Existe várias maneiras entre elas:
_______________________________________________________________________________
>>CODIGO 1 – 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

 

________________________________________________________________________________________
‘>>CODIGO 2 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:

Ver últma linha preenchida: clique aqui
Último a célula alterada: clique aqui

Artigos Relacionados

Compartilhe Isto