problema con array

[eposse]

Hola a todos:

Por favor me podeís ayudar en lo siguiente:

quiero sustituir en esta macro la "w" por la referencia al array:


Sub prueba()
Dim myarray As Variant
myarray = Array(W, Y)

For j = 0 To 1
Columns("W :W").ColumnWidth = 14.57
Next j
End Sub

He probado a hacer lo siguiente pero no me funciona:

Sub prueba()

Dim myarray As Variant
myarray = Array(W, Y)
For j = 0 To 1
Columns("" & myarray(j) & " :" & myarray(j) &").ColumnWidth = 14.57
Next j



Muchas Gracias

[David]

Lo cierto es que no estoy entendiendo lo que quieres hacer ya que estás colocando las variables W e Y al crear el Array cuando esas variables están vacías. ¿No será que querías decir "W" e "Y"?

[eposse]

W e Y son las columnas.

Quiero que el array que esta dentro del bucle me haga el ancho de columna que estoy definiendo para las columnas W e Y.

Muchas Gracias David

[3pies]

No te compliques la vida con arrays. Puedes solucionarlo de esta forma:

Código:

Sub prueba()
columna_inicial = "W"
columna_final = "Y"
Columns(columna_inicial & ":" & columna_final).ColumnWidth = 14.57
End Sub

Salu2

[eposse]

lo que pasa es que necesito poder hacerlo con intervalos discontinuos por ejemplo para la columna w, para la Y y para la AB. He pensado en hacerlo con el array porque de esta forma asigno un orden a estas tres columnas:

El elemento 0 del array sería la W, el 1 la Y y el 2 la AB. Así, si cambio estas tres columnas por otras que yo quiera la macro debería seguir funcionando en la medida en que tengo un array que establece ese orden.

Gracias

[David]

Aún sigo sin entender lo que quieres hacer, ¿Por qué no simplemente pides un parámetro en la función y modificas la columna?. Así, solo llamas a la función con la columna que quieres cambiar y listo. Por ejemplo:

Código PHP:

  Sub ChangeColWidth(ColFirst As String, ColLast As String)
Columns(ColFirst & ":" & ColLast).ColumnWidth = 14.57
End Sub 
   

Y después para llamarlo:

Código PHP:

  ChangeColWidth "W", "Y"
ChangeColWidth "A", "B"