Este fórum está sendo desativado

[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 !!!

[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.

[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