ERROR CON UN ARRAY AL AGRUPAR COLUMNAS

[jesuspg]

Hola a todxs,

 

Quiero depurar el siguiente código:

...
    Columns("F:F").Columns.Group
    Columns("J:J").Columns.Group
    Columns("M:M").Columns.Group
    Columns("Q:S").Columns.Group
...

 

Y se me ha ocurrido aplicando un Array:

...
    Dim Columna As Range
    Set Columna = Array("F:F", "J:J", "M:M", "Q:S")
    For Columna = 0 To UBound(Columna)
        Columns(Columna).Columns.Group
    Next Columna
...

 

Pero me da error. No logro identificar qué estoy haciendo mal.

Necesito orientación... Gracias de antemano por vuestro tiempo.

[Leopoldo Blancas]

Hola @paikerr,

Te explico:

Dim Columna As Range'ESTAS DECLARANDO COLUMNA COMO RANGO
    Set Columna = Array("F:F", "J:J", "M:M", "Q:S")'AQUI LA USAS COMO UN ARRAY
    For Columna = 0 To UBound(Columna)'NO PUEDES PONER LA VARIABLE COLUMNA COMO UNA VARIABLE DE CONTEO
        Columns(Columna).Columns.Group
    Next Columna

No confundas Declarar primero como RANGE y despues como ARRAY y después la utilizas como contador. ???

Dale una leída de como manejar Arrays en VBA.

Quieres Correr antes de saber Caminar, Solo un consejo.

 

Sub Prueba()
Dim Columna, n&' DECLARAS COLUMNA COMO UNA VARIABLE DEL TIPO VARIANT Y la variable "n" para tu contador
    Columna = Array("F:F", "J:J", "M:M", "Q:S")'AHORA A TU VARIABLE Columna LA CONVIERTES EN ARRAY con STRING
    For n = 0 To UBound(Columna) - 1' EL FOR DESDE n=0 HASTA UBound(Columna) - 1, ya que empieza tu array en "0"
        Columns(Columna(n)).Columns.Group'RECORRES TU ARRAY
    Next n
End Sub

Recuerda que puedes iniciar tu ARRAY desde 1 si pones al inicio de modulo "Option Base 1".

Saludos.
 

[Leopoldo Blancas]

Creo que sobra el -1... lo respondí sin probar.

Saludos.

[Antoni]

Set Columnas = Range("F:F, J:J, M:M, Q:S")

Y como nunca explicas lo que pretendes hacer, pues no se puede decir mas.

[jesuspg]

Hace 1 hora, Leopoldo Blancas dijo:

Dale una leída de como manejar Arrays en VBA.

Muchas gracias @Leopoldo Blancas, tu explicación era precisamente lo que necesitaba.

De todos modos, me estás retando cuando en realidad sólo he cometido un pequeño error, del cual no me daba cuenta.

...
    Columns(Columna(n)).Columns.Group
...

Porque la declaración de variables podría haberlo hecho desde el principio con un tipo Variant, y ahorrarme ese problema. De hecho, así lo suelo hacer la mayoría de las veces.

 

Hace 26 minutos , Antoni dijo:

como nunca explicas lo que pretendes hacer

Creí que no sería necesario explicarlo, @antoni.
Pues ya se sobreentiende con el siguiente código:

...
    Columns("F:F").Columns.Group
    Columns("J:J").Columns.Group
    Columns("M:M").Columns.Group
    Columns("Q:S").Columns.Group
...

Es decir, agrupar las columnas anteriormente indicadas.

Gracias a los dos.


*** TEMA CERRADO ***

[Leopoldo Blancas]

Hace 39 minutos , paikerr dijo:

De todos modos, me estás retando cuando en realidad sólo he cometido un pequeño error, del cual no me daba cuenta.

No te estoy retando... si te fijas son varios errores de concepto. Solo te invito a que los aclares para ti.

Saludos.