Llevo un tiempo con un problema en el siguiente código, y no sé cómo solucionarlo.
Private Sub Worksheet_Activate()
Cells().Columns().Ungroup ' 1
Columns(4).Group ' 2
Columns(5).Group ' 3
Me.Outline.ShowLevels ColumnLevels:=1 ' 4
End Sub
Me gustaría insertar un condicional en la primera sentencia tal que "If Cells().Columns().Group = True Then Cells.Columns.Ungroup", para de este modo ejecutar el resto de las sentencias (la segunda, tercera y cuarta) sin problemas. Pero esa instrucción me da problemas...
En otras palabras, un evento tal que al activar la hoja, se agrupen la cuarta y quinta columna.
Hola compañeros,
Llevo un tiempo con un problema en el siguiente código, y no sé cómo solucionarlo.
Private Sub Worksheet_Activate() Cells().Columns().Ungroup ' 1 Columns(4).Group ' 2 Columns(5).Group ' 3 Me.Outline.ShowLevels ColumnLevels:=1 ' 4 End Sub
Me gustaría insertar un condicional en la primera sentencia tal que "If Cells().Columns().Group = True Then Cells.Columns.Ungroup", para de este modo ejecutar el resto de las sentencias (la segunda, tercera y cuarta) sin problemas. Pero esa instrucción me da problemas...
En otras palabras, un evento tal que al activar la hoja, se agrupen la cuarta y quinta columna.
Adjunto fichero para que vean mejor el problema.
PRUEBA.xlsm
Muchísimas gracias de antemano por vuestro tiempo.