Macro para selecionar ultima celula ativa em uma coluna

Question

Bom dia!

Tenho uma planilha com muitos dados e preciso de uma macro para selecionar a ultima célula ativa em uma coluna.

Exemplo coluna "M"

Answer 1

Tiago,

O atalho de teclado para isso é: Ctrl + Seta para baixo

Depois era só gravar a macro para obter o resultado:

    Range("M1").Select
    Selection.End(xlDown).Select

Answer 2

Ok, muito obrigado, me ajudou bastante.

Answer 3

Se houver alguma quebra de continuidade na coluna, isto é, se houver uma célula em branco, sugiro utilizar o código a seguir:

Sub pMain()
  'Altere a coluna abaixo:
  Const cstrCol As String = "A"
  
  Dim wks As Excel.Worksheet
  
  Set wks = ActiveSheet
  With wks
    .Cells(.Rows.Count, cstrCol).End(xlUp).Select
  End With
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br