Agrupar celdas

30/07/2004 - 19:01 por Lilia | Informe spam
Tengo un rango de filas que deseo agrupar en forma automática en caso de que no contengan valores y desagrupar si se tienen valores. ¿es posible?

Preguntas similare

Leer las respuestas

#1 Anonimo
30/07/2004 - 19:14 | Informe spam
Tendrías que seleccionar las filas vacias y despues
ocultarlas. mediante código es claro que se puede hacer,
manualmente no encuentro una forma fácil de hacerlo.



Tengo un rango de filas que deseo agrupar en forma


automà¡tica en caso de que no contengan valores y
desagrupar si se tienen valores. ¿es posible?
.

Respuesta Responder a este mensaje
#2 Héctor Miguel
31/07/2004 - 12:57 | Informe spam
hola, Lilia !

... rango de filas ... agrupar ... automatica en caso ... no contengan valores y desagrupar si tienen valores.



suponiendo que el rango es 'A2:A20', copia las siguientes lineas
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Calculate()
Dim Celda As Range
With Range("a2:a20")
.Rows.OutlineLevel = 1
For Each Celda In .SpecialCells(xlCellTypeBlanks)
Celda.Rows.OutlineLevel = 2
Next
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida