Este fórum está sendo desativado

[alancarlosssantos]

Olá pessoal, boa tarde!

Preciso de um codigo em vba para selecionar um campo até a última célula preenchida, sendo que, não posso parar a seleção por conter células em branco entre as células. Basicamente, preciso selecionar todo o campo até a última célula, tanto para baixo, quanto para a esquerda.

[osvaldomp]

Tentei ver a sua planilha via satélite para entender a seleção desejada, mas ... não consegui.
Então seguem abaixo dois palpites.
_______________________________________________________________________________________________
'seleciona todo o intervalo, a célula ativa ficará no canto superior direito
Sub TesteSeleçãoV1()
Dim FC As Long, LR As Long
FC = IIf(Cells(ActiveCell.Row, 1).Value <> "", 1, Cells(ActiveCell.Row, 1).End(2).Column)
LR = Cells(Rows.Count, ActiveCell.Column).End(3).Row
Range(Cells(ActiveCell.Row, FC), Cells(LR, ActiveCell.Column)).Select
End Sub
_______________________________________________________________________________________________
'a partir da célula ativa, seleciona a linha para a esquerda e a coluna para baixo
Sub TesteSeleçãoV2() 'seleciona a linha e a coluna
Dim FC As Long, LR As Long, r1 As Range, r2 As Range
FC = IIf(Cells(ActiveCell.Row, 1).Value <> "", 1, Cells(ActiveCell.Row, 1).End(2).Column)
LR = Cells(Rows.Count, ActiveCell.Column).End(3).Row
Set r1 = Range(Cells(ActiveCell.Row, FC), ActiveCell)
Set r2 = Range(ActiveCell, Cells(LR, ActiveCell.Column))
Union(r1, r2).Select
End Sub
_______________________________________________________________________________________________

[alancarlosssantos]

Nobre, muito obrigado pelo apoio.

O seu código me ajudou para pegar todas as linhas para baixo, porém preciso que ele pegue até a última linha da direita (até a coluna P).

Poderia me ajudar com mais esse código?

Para facilitar eu anexei a planilha em questão com os código feitos nela.

Desculpe ter feito vc acessar a planilha via satelite da Starlink kkkkk...

[osvaldomp]

Basicamente, preciso selecionar todo o campo até a última célula, tanto para baixo, quanto para a esquerda.

... porém preciso que ele pegue até a última linha da direita (até a coluna P)

No primeiro post você comentou que quer selecionar para baixo e para a esquerda, no segundo você disse que quer selecionar até a coluna P.
A referência para a seleção é a célula ativa, e os códigos que passei fazem a seleção para a esquerda e para baixo a partir da célula ativa, conforme você pediu.
Então se você quer selecionar "até" a coluna P, obviamente você precisa selecionar qualquer célula não vazia na coluna P e executar os códigos que passei, um por vez, e ver os resultados.

dica: não faz sentido dizer "a última linha da direita"