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

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Agrupar líneas

Leer las respuestas

#6 KL

26/04/2005 - 09:58 | Informe spam

Hola reyblack,

En el macro que te pase debes poner los nombres de las hojas como aparecen
en las pestañas de la parte de abajo de la ventana de Excel. Si prefieres
usar los numeros de hojas usa el codigo que te pongo abajo.

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.Index
Case 25, 26, 29, 30, 33, 34, 36, 37
Case Else: Hoja.Range(rng).Rows.Group
End Select
Next Hoja
Application.ScreenUpdating = True
End Sub
'-Fin Codigo--

Responder a este mensaje

#7 reyblack

26/04/2005 - 17:52 | Informe spam

Gracias KL.
Abusando un poco de tu tiempo, siempre sobre el mismo tema:
Cómo sería la sintaxis para: teniendo este libro abierto me corra la macro
en otro libro, porque veo que sólo es para el libro donde está escrita la
macro.
Te estoy áltamente agradecido.

"KL" escribió:

Hola reyblack,

En el macro que te pase debes poner los nombres de las hojas como aparecen
en las pestañas de la parte de abajo de la ventana de Excel. Si prefieres
usar los numeros de hojas usa el codigo que te pongo abajo.

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.Index
Case 25, 26, 29, 30, 33, 34, 36, 37
Case Else: Hoja.Range(rng).Rows.Group
End Select
Next Hoja
Application.ScreenUpdating = True
End Sub
'-Fin Codigo--

Responder a este mensaje

#8 KL

26/04/2005 - 18:17 | Informe spam

Hola reyblack,

Copia este macro a un Modulo estandar de un libro que permaneceria abierto
mientras realizas la operaciones.

Saludos,
KL

'-Inicio Codigo--
Sub AgruparRangoSeleccionado()
Dim rng As String
rng = Selection.Address
Application.ScreenUpdating = False
For Each Hoja In ActiveWorkbook.Worksheets
Select Case Hoja.Index
Case 25, 26, 29, 30, 33, 34, 36, 37
Case Else: Hoja.Range(rng).Rows.Group
End Select
Next Hoja
Application.ScreenUpdating = True
End Sub
'-Fin Codigo--

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida