VBA: Encontrar a próxima célula vazia

VBA: Encontrar a próxima célula vazia

Costumeiramente necessitamos localizar a próxima célula vazia em nossas planilhas, para inserirmos novos dados ou ainda para sabermos o tamanho do Range que teremos para trabalhar.

Sempre utilizei o código abaixo:

    Dim I As Integer

    

    I = 1

    Do While Range("A" & I).Value <> ""

        I = I + 1

    Loop

    Range("A" & I).Select

Porém descobri recentemente que basta utilizarmos o código abaixo para termos o mesmo resultado, poupando um pouco de processamento e bastante os dedos:

    'Localiza a próxima célula vazia
    Range("A1048576").End(xlUp).Offset(1, 0).Select

Análise do código:

• Range("A1048576")à corresponde a última célula da coluna A
• .End(xlUp)à localiza a próxima célula preenchida para cima (xlUp)
• .Offset(1, 0)à significa que a seleção estará uma linha abaixo e na mesma coluna da célula selecionada.

Espero que tenha sido útil, qualquer dúvida ou sugestão de assunto a ser abordado mantenha contato pelos comentários. quem precisar de algo na área do VBA estou a disposição.

J. Magno

Técnologo em Analise de sistemas

magnoalh1@gmail.com

83988596239 - whattszap