Página 1 de 1

PESQUISAR CÉLULA POR MACRO

Enviado: 17 Ago 2018 às 13:39
por tulioh1
Boa tarde,

Gostaria de saber se poderiam me ajudar em uma macro que pesquise um valor.

O que eu preciso:

Tenho duas abas: "Formulários" e "Clientes"

Na célula L2, digito o que procuro (parte dele)
Ele pesquisa essa palavra na aba "Clientes" (tentei gravando macro com CTRL+L)
Ela localiza a célula e a seleciona
Na hipótese dela surgir em C5, ou D8, E1 ... ela selecione essa linha, na coluna A (sempre na coluna A). Ex.: A5, A8, A1...
Esse valor (somente valor) será copiado e colado em: "Formulários" - célula O2

No caso, esse seria o código do cliente...
Eu tentei tudo isso gravando a macro, mas não consegui deslocar a célula selecionada pela pesquisa para a coluna A.

Muito obrigado !!!

PESQUISAR CÉLULA POR MACRO

Enviado: 17 Ago 2018 às 14:04
por gfranco
Boa tarde.
Sugiro postar um modelo de sua planilha (com dados fictícios mas mesma estrutura)
Poste um modelo em excel (não uma imagem) de preferencia com uma demonstração manual do resultado pretendido.
Para anexar o arquivo, clique em +Resposta e localize a opção abaixo da janela de digitação de mensagens.

Re: PESQUISAR CÉLULA POR MACRO

Enviado: 17 Ago 2018 às 15:42
por osvaldomp
Experimente:
Código: Selecionar todos
Sub Pucuia()
 Dim c As Range
  Set c = Cells.Find([L2], after:=[L2], lookat:=xlPart)
  If Not c Is Nothing Then Sheets("Formulários").[O2] = Cells(c.Row, 1)
End Sub