Notifications
Clear all

Macro Localizar (CTRL-L)

3 Posts
2 Usuários
0 Reactions
1,671 Visualizações
(@adryano10)
Posts: 2
New Member
Topic starter
 

Boa tarde Pessoal,
Meu conhecimento e quase nada de Excel porem sempre me esforço através do fórum para não incomodar mas dessa vez esta muito difícil.

Tentei gravar um macro realizando a seguinte atividade:

1-Copia um numero na celula B1
2- Abre o localizar
3- Cola o numero para localizar
4- Localizar
5- Fecha o localizar

A finalidade disso é que eu quero que corra pelo numero de forma automática.
1
2
3
4
5
No modelo acima caso apareça na célula B1 o numero 3 que ele copie da B1 cole no localizar e me mostre em qual numeração está. Dessa forma eu não preciso ficar movimentando para saber onde esta porem quando eu faço isso ele não grava como por exemplo abrir o localizar.

Se caso alguém puder me ajudar só nisso já ficaria extremamente satisfeito. Mas se existir a possibilidade do mundo perfeito que seria o seguinte:
1-Copia um numero na celula B1
2- Abre o localizar
3- Cola o numero para localizar
4- Localizar
5- Fecha o localizar
Que ele pudesse realizar essa tarefa por um tempo determinado por mim. Tipo de 1 em 1 minuto ou menos.
Segue modelo da planilha em anexo.

Pessoal agradeço desde ja a ajuda de vocês e forte abraço!

 
Postado : 24/09/2017 1:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Adriano

Na próxima vez, compacte o arquivo antes de anexar, conforme as regras do fórum.

Como você é novato no fórum, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Sobre a tua dúvida, segue abaixo um código VBA que abre o Localizar.

Copie e cole o código abaixo no módulo da Planilha que você irá usar, por exemplo Plan1:

Sub Localizar()

  ''Desvia o foco do botão para a célula A1, pode ser qualquer célula...

  Range("A1").Select

  ''Envia a combinação de teclas CTRL+L para o EXCEL

  SendKeys "^l"

End Sub

Créditos da macro para o spielmann

Se foi útil, clique na mãozinha, que fica do lado da ferramenta Citar.

[]s
Patropi - Moderador

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

 
Postado : 24/09/2017 1:46 pm
(@adryano10)
Posts: 2
New Member
Topic starter
 

Boa tarde Adriano

Na próxima vez, compacte o arquivo antes de anexar, conforme as regras do fórum.

Como você é novato no fórum, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Sobre a tua dúvida, segue abaixo um código VBA que abre o Localizar.

Copie e cole o código abaixo no módulo da Planilha que você irá usar, por exemplo Plan1:

Sub Localizar()

  ''Desvia o foco do botão para a célula A1, pode ser qualquer célula...

  Range("A1").Select

  ''Envia a combinação de teclas CTRL+L para o EXCEL

  SendKeys "^l"

End Sub

Créditos da macro para o spielmann

Se foi útil, clique na mãozinha, que fica do lado da ferramenta Citar.

[]s
Patropi - Moderador

Boa tarde, Obrigado pelo links vou dar um olhada!

Referente a so abrir o localizar eu ja consegui. O problema esta sendo abrir copiar, colar e fechar.

 
Postado : 27/09/2017 12:39 pm