[VBA] – Diferentes maneiras de encontrar a última linha de uma tabela automaticamente

Tempo de leitura: menos de 1 minuto

Manipular tabelas utilizando o VBA no Excel, sem sobra de dúvidas é uma tarefa desafiadora, portanto, localizar a ultima linha com dados em uma tabela automaticamente é imprescindível para o sucesso de processo. Mas em qual situação isso é importante? Geralmente temos localizar a ultima linha quando queremos inserir um novo registro na tabela.  Portanto, seguem algumas maneiras que utlizo para localizar a última linha.

[sourcecode highlight=”” language=”vb”]
Sub EncontrarUltimaLinha()

Dim sht As Worksheet
Dim UltimaLinha As Long

Set sht = ThisWorkbook.Worksheets(Plan1.Name)

‘Opçao 1 – Utlizando o ‘Ctrl + Shift + End do Teclado
UltimaLinha = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

‘Opçao 2 – Utilizando o método UsedRange
UltimaLinha = sht.UsedRange.Rows.Count

‘Opçao 3 – Utilizando o método ListObjects em um tntervalo configurado como tabela
UltimaLinha = sht.ListObjects("Tabela1").Range.Rows.Count

‘Opçao 4 – Encontrando a ultima linha utlizando o intervalo configurado com Gerenciamento de Nomes
UltimaLinha = sht.Range("MeuIntervalo").Rows.Count

‘Opçao 5 – – Utlizando o ‘Ctrl + Shift + Down do Teclado
UltimaLinha = sht.Range("A1").CurrentRegion.Rows.Count

End Sub
[/sourcecode]

Pratiquem!

Você achou este post útil? Ao compartilhar este post no Facebook, Twitter, você não está apenas ajudando os outros com muita informação, você está criando exposição para o blog excelsemlimites.com. Aprendendizado é a principal a razão pela qual este blog existe! Se você quer ajudar a compartilhar o blog, basta clicar no botão Compartilhar logo abaixo deste texto. Muito obrigado pela leitura e esperamos continuar fornecendo grandes conteúdos no futuro!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *