No lee el dato que aparece en la celda con vlook up vba
Tengo el siguiente código:
sour(1) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 2, 0), 0)
sour(2) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 3, 0), 0)
sour(3) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 4, 0), 0)
sour(4) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 5, 0), 0)
sour(5) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 6, 0), 0)
sour(6) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 7, 0), 0)
sour(7) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 8, 0), 0)
sour(8) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 9, 0), 0)
sour(9) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 10, 0), 0)
sour(10) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 11, 0), 0)
sour(11) = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(ref, rango, 12, 0), 0)
El rango está definido correctamente, pero cuando en el fichero de lectura cambio los datos, no lee el número que indica en la celda.
Si me pudierais ayudar os lo agradecería mucho.
1 respuesta
H o la:
¿Y te aparece algún error?
¿Tienes declarada sour como un arreglo?
¿Tienes declarada rango como un rango?
¿A veces si funciona y a veces no?
No entiendo esto: "pero cuando en el fichero de lectura cambio los datos, no lee el número que indica en la celda", ¿significa qué el rango está en otro archivo?
Si quieres envíame tu archivo con la macro y me explicas qué debería hacer el código.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Maria Gonzalez” y el título de esta pregunta.
