Este fórum está sendo desativado

[wesleyribeiro123]

Pessoal
Boa tarde,

Estou com problema com a seguinte instrução:

Código: Selecionar todos

    VlrProc = WorksheetFunction.IfError(BD.Cells(uLinBD, 5) * 1 & BD.Cells(uLinBD, 6) * 1, BD.Cells(uLinBD, 5) * 1 & BD.Cells(uLinBD, 6))

Este comando "VlrProc" será o Arg1 de um Vlookup, fiz questão de destacá-lo em uma variável devido ao erro que está apresentando.

O campo referente a "BD.Cells(uLinBD, 5)" é o Código do Cliente e o campo "BD.Cells(uLinBD, 6)" é referente a Loja, porém existem grandes redes de com inúmeras lojas ai o código saiu da sequencia (01, 02, 03, ... 99, A1, A2, ...).
Quando faço a procv sem multiplicar por 1 (BD.Cells(uLinBD, 6) * 1) o Vlookup reconhece o número como texto e nao faz a procv, porém quando chega na sequencia com letra ele obviamente não aceita multiplicar...
Coloquei um IFERROR na esperança de resolver o problema mas ele persiste em informar "Tipos Incompatíveis".

Como faço para contornar este erro? Me ajudem, rsrs

[gfranco]

Boa tarde.
Eu consideraria a hipótese de fazer uma concatenação direta e carregar os dados do BD numa matriz. Depois, fazer um laço for percorrer a matriz utilizando a sintaxe if ucase( cstr(resultado da sua concatenaçao) )= ucase(cstr(matriz(linha,coluna)) then .... Para retornar o resultado.
At
Gfranco