Notifications
Clear all

Localizar e selecionar uma celula a partir de uma variável

3 Posts
3 Usuários
0 Reactions
872 Visualizações
(@renatoddd)
Posts: 70
Trusted Member
Topic starter
 

Amigos, boa tarde.

ME ajudem por favor.

Tenho um arquivo com duas abas.

Na aba Plan1, na coluna A, existe uma relação de nomes.
Na aba Plan2, na célula A1, haverá sempre um nome (que vai variar). Será uma lista suspensa.
Ao executar a macro, preciso que o nome exposto na Plan2, na célula A1, seja localizado na aba Plan1

Ou seja, após executar a macro, uma célula da coluna A, da aba Plan1 estará selecionada. No caso, a célula que contiver o nome que está na célula A1 da Plan2.

É como se fosse um Ctrl+L Localizar.
mas não da p fazer pelo gravador pq ele salva o nome pesquisado. Como cada hora vai ser um nome, não da p ser assim.

valeuuu

 
Postado : 28/01/2015 1:02 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Por favor poste seu arquivo modelo compactado!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/01/2015 1:04 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

É como se fosse um Ctrl+L Localizar.
mas não da p fazer pelo gravador pq ele salva o nome pesquisado. Como cada hora vai ser um nome, não da p ser assim.

valeuuu

Dá sim.

Grave a macro, que vai ter essa linha (eu pesquisei por "teste":

Cells.Find(What:="teste", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Depois troque
"teste"

pela célula que tem o que vc quer procurar:
Sheets("Plan2").(Range"A1").Value

Deve ficar assim:

Cells.Find(What:=Sheets("Plan2").(Range"A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 28/01/2015 1:53 pm