Agrupar o desagrupar con una misma macro

28/05/2008 - 20:34 por Cecilia | Informe spam

Hola de nuevo a todos
Tengo varios botones con macros que muestran filas o columnas, lo que
quiero es que si pico en el botón y estan agrupadas las desagrupe y si
estan desagrupadas las agrupe. Me trato de explicar con este ejemplo:
Celda A5: Tiene el titulo del desglose de las celdas A6:A13 y esta
visible
Celdas A6:A13: Desglose del título A5 y estan agrupadas
Celda A14: Tiene el título del desglose de las celdas A15:A19 también
visible
Celdas A15:A19: Desglose del título A14 y estan agrupadas
En la celda A5 he colocado un boton con la siguiente macro para que
despliegue las celdas A6:A13 (la he realizado con la grabadora de
macros).
Sub DesagruparV1()
Rows("6:13").Select
Selection.EntireRow.Hidden = False
Range("a5").Select
End Sub
Esta macro lo que hace es desagrupar si esta agrupado ¿como puedo
agrupar si esta desagrupado?¿que tendría que añadir-modificar?.
Cuando grabé la macro me ignoró cuando piqué en el signo + de
desagrupar y entonces la creé seleccionando las filas y mostrandolas :-
((, estoy perdida...
En la celda A14 he colocado otro boton con la misma macro cambiando
los rangos, decir que tengo mas rangos hacia abajo agrupados y en
todos necesito la misma acción.
Muchas gracias por vuestra atención
Un saludo
Cecilia

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Macro para agrupar y desagrupar todo con una misma macro o por separado...

Leer las respuestas

#1 Cecilia

29/05/2008 - 20:05 | Informe spam

On 29 mayo, 07:48, "Héctor Miguel"
wrote:

hola (de nuevo), Cecilia !

> Me contesto yo sola ya que ni lo habia intentado (vagueza mananera) :))

prueba la siguiente adaptacion
-> haciendo referencia a "celdas" no contiguas (separadas por una coma) y "afectando" sus columnas

Sub VerAAObjFEB()
With Range("b1,d1").EntireColumn
.Hidden = Not .Hidden
End With
End Sub

saludos,
hector.

__ nueva consulta __

> ... me queda una duda... En esta macro:
> Sub VerAAObjFEB()
> Columns("B:D").Select
> Selection.EntireColumn.Hidden = False
> Range("C3").Select
> Tengo la columna C visible y las columnas B y D ocultas, funciiona bien para desocultar pero si la cambio a:
> Sub VerAAObjFEB()
> With Columns("B:D").EntireColumn
> .Hidden = Not .Hidden
> End With
> End Sub
> Logicamente me oculta tambien la C, la solucion que le he dado es cambiar la columna C que pase a ser de
> y dejar las ocultas correlativas, de tal manera que ahora he cambiado las columnas en la macro (B:C) y asi si que funciona.
> Pero se podria hacer con columnas correlativas? Aunque puedo dejarlo así prefiero el orden anterior ya que visualmente queda mejor.- Ocultar texto de la cita -

- Mostrar texto de la cita -

Muchas gracias Hector, como siempre funciona perfecto :-)
Saludos
Cecilia

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida