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

Preguntas similare

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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida