Este fórum está sendo desativado

[FelipeNarukami]

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

[babdallas]

Veja se te ajuda.

[osvaldomp]

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

[FelipeNarukami]

Obrigado babdallas e oswaldomp pela ajuda.

Funcionou perfeitamente.