array con intervalo discontinuo

[eposse]

Hola a Todos:

Por favor me podeis ayudar en lo siguiente:
Tengo una macro con un bucle para que me copie los valores de las columnas de otro fichero.

Cuando lo hago para un intervalo continuo me funciona perfectamente el array ( por ejemplo desde 1 hasta 5, es decir, desde la columna 1 hasta la 5) pero cuando le pongo que la siguiente a la cinco no sea la seis, sino la 7 no lo reconoce. ¿ Por qué puede ser?

Sub macrito()


Dim myarray As Variant
myarray = Array(1, 2, 3, 4, 5, 7)


Dim j As Long

For j = 1 To UBound(myarray)

Cells(2, j).FormulaR1C1 = "=IF([novale.xls]LISTADO!RC" & j & "="""","""",[novale.xls]LISTADO!RC" & j & ")"


Next j

[3pies]

Sí que funciona, solo que no has planteado correctamente el problema. El primer elemento de un array, por defecto siempre es cero, y no uno.

Prueba a cambiar esto:

Código:

For j = 1 To UBound(myarray)

Por esto otro:

Código:

For j = 0 To UBound(myarray)

Y luego, llama al valor correspondiente que haya en el elemento X del array (no llames al elemento sino al dato que hay en ese elemento, ...en el caso que te preocupa, con el último elemento, al poner "j", estás llamando al elemento que ocupa la posición 6, cuando en realidad debes llamar al valor que hay en esa posición, es decir, al 7). Para eso, cambia esto:

Código:

Cells(2, j).FormulaR1C1

Por esto otro:

Código:

Cells(2, myarray(j)).FormulaR1C1

Salu2

[eposse]

muchisimas gracias, funciona perfectamente