Saltar al contenido

ERROR CON UN ARRAY AL AGRUPAR COLUMNAS


Recommended Posts

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.

Enlace a comentario
Compartir con otras webs

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.
 

Enlace a comentario
Compartir con otras webs

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 ***

Enlace a comentario
Compartir con otras webs

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.

Enlace a comentario
Compartir con otras webs

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.