Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
#74130
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.
#74131
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
_______________________________________________________________________________________________
#74144
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...
Você não está autorizado a ver ou baixar esse anexo.
#74146
alancarlosssantos escreveu: 23 Fev 2024 às 13:26 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"
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord