Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Agrupar lineas en un libro

25/04/2005 - 17:04 por reyblack | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta

Preguntas similare

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--
Respuesta Responder a este mensaje
#2 reyblack
25/04/2005 - 17:56 | Informe spam
Ok gracias KL, voy a probar

"KL" escribió:

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--



Respuesta Responder a este mensaje
#3 reyblack
25/04/2005 - 19:25 | Informe spam
Perfecto KL, ya probé la macro, está OK.
Te estoy muy agradecido, con eso me ahorrastes, por lo menos, 3 días de
trabajo.

"reyblack" escribió:

Ok gracias KL, voy a probar

"KL" escribió:

> 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--
>
>
>
Respuesta Responder a este mensaje
#4 KL
25/04/2005 - 19:29 | Informe spam
Y gracias a ti por el "feedback".

Un saludo,
KL

"reyblack" wrote in message
news:
Perfecto KL, ya probé la macro, está OK.
Te estoy muy agradecido, con eso me ahorrastes, por lo menos, 3 días de
trabajo.

"reyblack" escribió:

Ok gracias KL, voy a probar

"KL" escribió:

> 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--
>
>
>
Respuesta Responder a este mensaje
#5 reyblack
26/04/2005 - 03:38 | Informe spam
Ola nuevamente KL.
La Macro me dio muy buenos resultados.
La nueva sintaxis de la macro según tu recomendación es la siguiente

'-Inicio Codigo--
Sub AgruparRangoSeleccionado()
Dim rng As String
rng = Selection.Address
Application.ScreenUpdating = False
For Each Hoja In ThisWorkbook.Worksheets
Select Case Hoja.Name
Case "Hoja25", "Hoja26", "Hoja29", "Hoja30", "Hoja33", "Hoja34", "Hoja36",
"Hoja37"
Case Else: Hoja.Range(rng).Rows.Group
End Select
Next Hoja
Application.ScreenUpdating = True
End Sub
'-Fin Codigo--

Pero cuando corro la macro no me excluye las hojas detalladas, es importante
mencionar que cada una de esas hojas tiene su nombre.
¿Qué error he cometido?



"KL" escribió:

Y gracias a ti por el "feedback".

Un saludo,
KL

"reyblack" wrote in message
news:
> Perfecto KL, ya probé la macro, está OK.
> Te estoy muy agradecido, con eso me ahorrastes, por lo menos, 3 días de
> trabajo.
>
> "reyblack" escribió:
>
>> Ok gracias KL, voy a probar
>>
>> "KL" escribió:
>>
>> > 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--
>> >
>> >
>> >



Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida