Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

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.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png