Notifications
Clear all

PROCV e contando erro

3 Posts
3 Usuários
0 Reactions
1,597 Visualizações
(@leonnie69)
Posts: 3
New Member
Topic starter
 

Prezados, boa tarde.

Minha macro faz um procv para retornar um valor de uma lista. Porém, quando o valor não é encontrado na lista, aparece o erro:

"Erro em tempo de execução '1004': Não é possivel obter a propriedade VLookUp da classe WorksheetFunction"

Encontrei na internet para alterar o tipo da variável de STRING para VARIANT e ok, funcionou.

Porém, apareceu novo erro:

"Erro em tempo de execução '13': Tipos incompatíveis", pois a variável Endereco tem valor "Erro 2042"; Porém eu preciso de um contador de erro. Alguma sugestão de como corrigir, por gentileza?

    Endereco = Application.VLookup(celly.Offset(0, 3).Value, Sheets("Endereços").Range("A6:B600"), 2, 0)
    If Endereco = "" Then
            ContaEndereço = ContaEndereço + 1

Muito obrigado!

 
Postado : 10/11/2017 2:17 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu sugiro que poste seu arquivo modelo(com o código)!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/11/2017 2:20 pm
(@babdallas)
Posts: 85
Trusted Member
 

Tente assim.

     NumeroErro = Sheets("Endereços").Range("A6:B600").rows.count - Application.countif(Sheets("Endereços").Range("A6:B600"), celly.Offset(0, 3).Value)
    
 
Postado : 10/11/2017 9:21 pm