Este fórum está sendo desativado

[jqsm]

Como faço para CRIAR uma macro que irá funcionar como procv, sendo que os valor não encontrados devem aparecer como "NÃO ENCONTRADO"? o ideal é que não apareça as formulas na minha planilha e que não seja necessario criar um botão, nesse caso que ela fique automatica

[Sandman]

boa noite amigo, poste sua planilha pois facilita muito

[jqsm]

ok, o código deverá trazer as resposta na sheets procv

[Sandman]

veja se é isso amigo

[jqsm]

Quase isso, Preciso que os nomes não encontrados apareça com a informação "NÃO ENCONTRADO" e na planilha os nomes não encontrados estão aparecendo em Branco na sheets PROCV.

[alexandrevba]

Boa tarde!!

Tente assim

Código: Selecionar todos

=SEERRO(PROCV($A2;main!$A$1:$C$7;COL(B1);0);"NÃO ENCONTRADO")

Código: Selecionar todos

Sub AleVBA_8402()
    Range("B2").Formula = "=IFERROR(VLOOKUP($A2,main!$A$1:$C$7,2,0),""NÃO ENCONTRADO"")"
    Range("C2").Formula = "=IFERROR(VLOOKUP($A2,main!$A$1:$C$7,3,0),""NÃO ENCONTRADO"")"
    Range("B2:C2").AutoFill Destination:=Range("B2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
End Sub

Att

[jqsm]

Então o desafio dessa macro, é exatamente Não ter formulas Alexandrevba, e principalmente não ter que clicar em algum botão para executar a macro, o codigo apresentando pelo Sadman está muito perto do que eu preciso, porem ele não trás no erro a informação de "Não encontrado"

[Kledison]

Bom dia,

verifica no exemplo abaixo, só adaptei a macro do Sandman com a macro do Alexandre.

Ao fazer qualquer alteração no aba PROCV a macro é atualizada.

Att

[alexandrevba]

Bom dia!!

Cole valores então...

Código: Selecionar todos

Sub AleVBA_8402()
    Range("B2").Formula = "=IFERROR(VLOOKUP($A2,main!$A$1:$C$7,2,0),""NÃO ENCONTRADO"")"
    Range("C2").Formula = "=IFERROR(VLOOKUP($A2,main!$A$1:$C$7,3,0),""NÃO ENCONTRADO"")"
    Range("B2:C2").AutoFill Destination:=Range("B2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
    Range("B2:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value = Range("B2:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub

Att

[jqsm]

agora sim deu certo!!!!! valeu