Agrupar lineas en un libro

25/04/2005 - 17:04 por reyblack | Informe spam
Tengo un libro con +o- 30 hojas de Balances y Estados de resultados, cada una
con 900 lineas y 30 columnas, todas con un mismo formato, por ejemplo en la
linea 235 está la cuenta "BANCOS" y esta totaliza en todas las hojas el
detalle de los bancos, el comando agrupar lineas no funciona si tengo
agrupadas todas las hojas y hacerlas una por una pues me llevará bastante
tiempo. ¿Como hago para: teniendo agrupadas todas las hojas me funcione el
comando agrupar un rango o selección de lineas
 

Leer las respuestas

#1 KL
25/04/2005 - 17:45 | Informe spam
Hola reyblack,

Podrias usar macros para esto. Prueba los siguiente:
1) Con tu libro abierto haz clic-derecho sobre el nombre de tu hoja en una
de las pestañas de la parte de abajo de la ventana de Excel.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo
4) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion (abajo del todo).
5) Ahora pulsa Alt+F11 para volver a la hoja.
6) Seleccion el rango que quieres agrupar (unas celdas o filas enteras)
7) Pulsa Alt+F8
8) Haz doble-clic sobre "AgruparRangoSeleccionado"

Saludos,
KL


'-Inicio Codigo--
Sub AgruparRangoSeleccionado()
Dim rng As String
rng = Selection.Address
Application.ScreenUpdating = False
For Each hoja In ThisWorkbook.Worksheets
Select Case hoja.Name
'Aqui van los nombres de hojas a excluir
Case "Hoja2", "Hoja3"
Case Else: hoja.Range(rng).Rows.Group
End Select
Next hoja
Application.ScreenUpdating = True
End Sub
'-Fin Codigo--

Preguntas similares