Seleccinar varia hojas a partir array definida previamente
publicado
Hola a todos,
actualmente tengo una pequeña macro que oculta o me muestra hojas en fuunción de un valor, pero debido a que cada vez hay mas hojas la macro tarda bastante tiempo. Por lo que me gustaria intentar accelerar la ejecución. Actualmente uso un For para recorrer todas las hojas que hay que modificar (anexo codigo fuente) y creo que si pudiese seleccionar todas las hojas de golpe en lugar de ir una a una reduciria el tiempo de ejecucion de la macro bastante.
Dim DEPTO(42) As Variant
DEPTO(0) = "G. VARIABLES"
DEPTO(1) = "G. VENTA"
DEPTO(2) = "G. PRODUCTO"
DEPTO(3) = "G. PERSONAL"
...
DEPTO(42) = "G. INMUEBLES"
'MOSTRAR LA COLUMNA DEL MES EN LAS PESTAÑAS A REPORTAR
Hola a todos,
actualmente tengo una pequeña macro que oculta o me muestra hojas en fuunción de un valor, pero debido a que cada vez hay mas hojas la macro tarda bastante tiempo. Por lo que me gustaria intentar accelerar la ejecución. Actualmente uso un For para recorrer todas las hojas que hay que modificar (anexo codigo fuente) y creo que si pudiese seleccionar todas las hojas de golpe en lugar de ir una a una reduciria el tiempo de ejecucion de la macro bastante.
Dim DEPTO(42) As Variant
DEPTO(0) = "G. VARIABLES"
DEPTO(1) = "G. VENTA"
DEPTO(2) = "G. PRODUCTO"
DEPTO(3) = "G. PERSONAL"
...
DEPTO(42) = "G. INMUEBLES"
'MOSTRAR LA COLUMNA DEL MES EN LAS PESTAÑAS A REPORTAR
X = 0
For X = LBound(DEPTO) To UBound(DEPTO)
Sheets(DEPTO(X)).Select
Sheets(DEPTO(X)).Columns("D:O").Select
Selection.EntireColumn.Hidden = False
Sheets(DEPTO(X)).Range("E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O").Select
Selection.EntireColumn.Hidden = True
Next X
La idea seria hacer algo como:
Sheets(DEPTO()).Select
Sheets(DEPTO()).Columns("D:O").Select
Selection.EntireColumn.Hidden = False
Sheets(DEPTO()).Range("E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O").Select
Selection.EntireColumn.Hidden = True
Pero no consigo hacer que funcione...
Gracias de antemano