Página 1 de 1
PROCV com SEÉRRO no VBA Excel
Enviado: 05 Mar 2016 às 20:41
por 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
PROCV COM SEÉRRO NO VBA EXCEL
Enviado: 05 Mar 2016 às 20:49
por Sandman
boa noite amigo, poste sua planilha pois facilita muito
PPROCV com SEÉRRO no VBA Excel
Enviado: 05 Mar 2016 às 21:02
por jqsm
ok, o código deverá trazer as resposta na sheets procv
Re: PROCV com SEÉRRO no VBA Excel
Enviado: 06 Mar 2016 às 11:30
por Sandman
veja se é isso amigo
Re: PROCV com SEÉRRO no VBA Excel
Enviado: 06 Mar 2016 às 20:54
por 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.
Re: PROCV com SEÉRRO no VBA Excel
Enviado: 07 Mar 2016 às 15:56
por 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 todosSub 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
Re: PROCV com SEÉRRO no VBA Excel
Enviado: 07 Mar 2016 às 23:05
por 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"
Re: PROCV com SEÉRRO no VBA Excel
Enviado: 08 Mar 2016 às 06:44
por 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
Re: PROCV com SEÉRRO no VBA Excel
Enviado: 08 Mar 2016 às 11:00
por alexandrevba
Bom dia!!
Cole valores então...
Código: Selecionar todosSub 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
Re: PROCV com SEÉRRO no VBA Excel
Enviado: 08 Mar 2016 às 20:46
por jqsm
agora sim deu certo!!!!! valeu
