Guru do Excel e Power BI

Enviado: **30 Mar 2017 às 22:12**

Boa noite!

Estou com uma dúvida ao montar uma regra no VBA que faça as seguintes etapas em uma planilha:

1º - Procure o valor da célula ("O2") na coluna (J:J) ;
2º - Ao encontrar o valor, copie o valor da célula ("P2") e cole na célula encontrada na coluna ("L:L") e linha correspondente ao valor encontrado no passo 1;
3º - Em caso de não encontrar o valor da célula ("O2") na coluna ("J:J"), abrir uma caixa de mensagem informando que "o valor não foi encontrado".

já pesquisei um pouco e tentei utilizar as funções DO until... Loop, poré não consegui.

Agradeço desde já quem puder ajudar.

Att.;

Enviado: **30 Mar 2017 às 22:56**

Veja se te ajuda.

Enviado: **30 Mar 2017 às 23:18**

Considerei que o valor de 'O2' não se repete mais de uma vez na coluna 'J'.

Código: Selecionar todos

Sub Teste()
 Dim r As Range
  Set r = [J:J].Find([O2], lookat:=xlWhole)
  If Not r Is Nothing Then r.Offset(, 2).Value = [P2] Else MsgBox "não encontrado"
End Sub

Enviado: **31 Mar 2017 às 17:33**

Obrigado babdallas e oswaldomp pela ajuda.

Funcionou perfeitamente.

Guru do Excel e Power BI

Buscar Valor e Inserir Valor em VBA

Buscar Valor e Inserir Valor em VBA

Re: Buscar Valor e Inserir Valor em VBA

Re: Buscar Valor e Inserir Valor em VBA

Re: Buscar Valor e Inserir Valor em VBA