Olá Amigos,
Vou mostrar abaixo como você pode fazer para ir para a última linha vazia de uma planilha, este comando utilizamos muito quando queremos inserir um cadastro de cliente, produto, fornecedor ou qualquer coisa que necessite ser inserida em sua planilha e a partir daí formar uma base de dados ou cadastros.
Abra seu arquivo Excel, posteriormente abra o console de programação do Visual Basic for Applications (Alt + F11), insira um módulo e cole o código abaixo:
Sub ultima_linha_vazia()
Dim Linha As String
'Faz a contagem de linhas e vai para uma linha abaixo
Linha = Sheets("Plan1").Cells(Rows.Count,"A").End(xlUp).Offset(1,0).Row
MsgBox (Linha)
End Sub
Entendendo o que fizemos…
Linha = Sheets(“Plan1″).Cells(Rows.Count,”A”).End(xlUp).Offset(1,0).Row
Linha é a variável que armazenará o valor com a última linha.
Sheets(“Plan1”) Indica qual é a Planilha “Aba” que iremos contar os dados.
.Cells(Rows.Count,”A”) Faz a contagem de linhas (Rows) da coluna “A”.
.End(xlUp) Posiciona o cursor na última linha preenchida da planilha.
.Offset(1,0).Row O comando Offset faz o deslocamento uma linha abaixo.
** Offset(Primeiro_argumento,Segundo_argumento)
Acrescentado Offset(1,0) fazemos referência exatamente uma linha abaixo da última linha preenchida.
O Primeiro Argumento do método Offset identifica o número de linhas que o cursor deverá deslocar para baixo (inteiro positivo) ou para cima (inteiro negativo).
O Segundo Argumento identifica o número de colunas deslocadas para a direita (inteiro positivo) ou para a esquerda (inteiro negativo).
No exemplo deslocamos 1 linha para baixo e zero colunas.
Este é apenas um exemplo de como podemos identificar a última linha da planilha, serve como proposta para você que ainda não conhecia nenhuma forma e estava a procura de como fazer isso.
Caso você conheça alguma outra forma de identificar a última linha da planilha compartilhe, sua opinião é muito importante.
Agradeço pela leitura e fico no aguardo de seus comentários e sugestões.
Um abraço. DG
Deixe um comentário