Página 1 de 1

IfError (Problemas ao Concatenar)

Enviado: 11 Jul 2017 às 14:11
por 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

Re: IfError (Problemas ao Concatenar)

Enviado: 11 Jul 2017 às 15:39
por 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