Este exemplo ilustra a propriedade End do objeto Range em Excel VBA. Usaremos esta propriedade para selecionar o intervalo da célula ativa até a última entrada em uma coluna.
Situação:
Alguns números de vendas na coluna A. Suponha que você adicionará mais números de vendas ao longo do tempo.
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. Para selecionar a última entrada em uma coluna, basta adicionar a seguinte linha de código:
Intervalo ("A5"). Fim (xlDown) .Selecione
Observação: em vez de Faixa ("A5"), você também pode usar Faixa ("A1"), Faixa ("A2"), etc. Esta linha de código é equivalente a pressionar END + SETA PARA BAIXO.
Resultado quando você clica no botão de comando na planilha:
2. Para selecionar o intervalo da célula A5 até a última entrada na coluna, adicione a seguinte linha de código:
Intervalo (intervalo ("A5"), intervalo ("A5"). Fim (xlDown)). Selecione
Resultado quando você clica no botão de comando na planilha:
3. Para selecionar o intervalo da Célula ativa até a última entrada na coluna, basta substituir Intervalo ("A5") por ActiveCell.
Intervalo (ActiveCell, ActiveCell.End (xlDown)). Selecione
Resultado quando você seleciona a célula A2 e clica no botão de comando na planilha:
Nota: você pode usar as constantes xlUp, xlToRight e xlToLeft para mover nas outras direções. Desta forma, você pode selecionar um intervalo da Célula ativa até a última entrada em uma linha.