Vba procv no excel

cris.baiano · 1 de dezembro de 2016

Boa noite pessoal,

Estou quebrando minha cabeça a dias preciso de uma macro onde eu faça a procura de um determinado valor via procv e quando eu não encontrar o resultado a celular fica "limpa" sem nada, eu consigo fazer a célula ficar fazia mas com a formula nela, o que eu quero é realmente que ela fique fazia sem nada..

Se alguém souber agradeço desde já,

o cód que fiz foi esse

Range("K3").Select

    ActiveCell.Formula = "=IF(VLOOKUP(I3,b:G,6,0),0,VLOOKUP(I3,b:G,6,0)"
    Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault

End Sub

Basole · 1 de dezembro de 2016

Veja se é isso que precisa:

 ActiveSheet.Range("K3").Select

    ActiveCell.Formula = "=IF(VLOOKUP($I3,$B:$G,6,0),0,VLOOKUP($I3,$B:$G,6,0))"

    On Error GoTo clear

    If Application.WorksheetFunction.VLookup([I3], [B:G], 6, 0) Then
        Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault
    End If

    Exit Sub

clear:     Selection.clear
    Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault

cris.baiano · 1 de dezembro de 2016

1 hora atrás, Basole disse:

Veja se é isso que precisa:


 ActiveSheet.Range("K3").Select

    ActiveCell.Formula = "=IF(VLOOKUP($I3,$B:$G,6,0),0,VLOOKUP($I3,$B:$G,6,0))"

    On Error GoTo clear

    If Application.WorksheetFunction.VLookup([I3], [B:G], 6, 0) Then
        Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault
    End If

    Exit Sub

clear:     Selection.clear
    Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault

Boa tarde Basole,

Apliquei seu código porém ele me retorna tudo vazio, os valores a serem encontrados também estão sendo limpos

Basole · 1 de dezembro de 2016

Provavelmente está retornando #N/D, pois não está encontrando o valor procurado.

A formula que voce postou retorna 0 (zero) caso o valor da celula "I3" seja encontrado na matriz B:G.

Pelo que entendi, seria isso que voce quer.

Faça um teste com este codigo alterado:

Sub Teste()

 ActiveSheet.Range("K3").Select

    ActiveCell.Formula = "=IF(VLOOKUP($I3,$B:$G,6,0),0,VLOOKUP($I3,$B:$G,6,0))"    
        Selection.AutoFill Destination:=Range("K3:K13"), Type:=xlFillDefault    


End Sub

cris.baiano · 1 de dezembro de 2016

Basole, eu devo estar aplicando algo errado, pois ele limpa tudo até as buscar verdadeiras, poderia upar uma planilha exemplo com seu código?

Basole · 1 de dezembro de 2016

Seria melhor voce enviar sua planilha original, ou um exemplo com alguns dados ficticios, para tentar entender melhor o que está ocorrendo, através do dados e o cenario.