Jump to content
paikerr

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.

Share this post


Link to post
Share on other sites

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.
 

Edited by Leopoldo Blancas

Share this post


Link to post
Share on other sites
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 ***

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png