Tengo una primera solucion y es que la formula aplicada no me da ningún error excepto con los valores 13 y 013.
Finalmente he puesto este codigo
Código:
Dim a As String
a = Trim(Range("B" & intFilaToCopy).Value)
ActiveCell.FormulaR1C1 = "=VLOOKUP(" & a & ",'[Base de datos.xls]DataBase Deuda'!R3C1:R1754C9,6,FALSE)"
pero no me funciona bien con los valores que he comentado.
Para el valor 13 me devuelve DIA, pero para el 013 me tendria que devolver EROSKI, que puedo hacer?
Gracias