Discussion:
Seleccionar todas las hojas con macro
(demasiado antiguo para responder)
Tony
2009-03-05 13:44:01 UTC
Permalink
Hola a todos:

Necesito una macro que me seleccione todas las hojas del libro activo... El
nombre y el número de hojas es variable... ¿Cómo sería la macro?...

Gracias. Un saludo.
Juan M
2009-03-05 13:50:45 UTC
Permalink
"Tony" escribió
Post by Tony
Necesito una macro que me seleccione todas las hojas del libro activo... El
nombre y el número de hojas es variable... ¿Cómo sería la macro?...
Gracias. Un saludo.
Hola Tony,

Prueba esto:

Sub SeleccionaHojas()
ThisWorkbook.Sheets.Select
End Sub

Un saludo,
Juan
Tony
2009-03-05 16:46:01 UTC
Permalink
Pues muchas gracias Juan... Lo probaré a ver cómo funciona...
Post by Juan M
"Tony" escribió
Post by Tony
Necesito una macro que me seleccione todas las hojas del libro activo... El
nombre y el número de hojas es variable... ¿Cómo sería la macro?...
Gracias. Un saludo.
Hola Tony,
Sub SeleccionaHojas()
ThisWorkbook.Sheets.Select
End Sub
Un saludo,
Juan
Tony
2009-03-07 10:56:02 UTC
Permalink
Juan, siento decir que he probado la rutina pero no funciona porque pone
"Error en el método 'Select' de objeto 'Sheets'

¿Cómo puedo arreglarlo?...

Gracias por anticipado...
Post by Tony
Pues muchas gracias Juan... Lo probaré a ver cómo funciona...
Post by Juan M
"Tony" escribió
Post by Tony
Necesito una macro que me seleccione todas las hojas del libro activo... El
nombre y el número de hojas es variable... ¿Cómo sería la macro?...
Gracias. Un saludo.
Hola Tony,
Sub SeleccionaHojas()
ThisWorkbook.Sheets.Select
End Sub
Un saludo,
Juan
Juan M
2009-03-07 17:08:12 UTC
Permalink
"Tony" escribió
Post by Tony
Juan, siento decir que he probado la rutina pero no funciona porque pone
"Error en el método 'Select' de objeto 'Sheets'
¿Cómo puedo arreglarlo?...
Gracias por anticipado...
Post by Tony
Pues muchas gracias Juan... Lo probaré a ver cómo funciona...
Post by Juan M
"Tony" escribió
Post by Tony
Necesito una macro que me seleccione todas las hojas del libro
activo...
El
nombre y el número de hojas es variable... ¿Cómo sería la macro?...
Gracias. Un saludo.
Hola Tony,
Sub SeleccionaHojas()
ThisWorkbook.Sheets.Select
End Sub
Un saludo,
Juan
Hola Tony,

Como tienes tus hojas? hay alguna que esté protegida / oculta?

Un saludo,
Juan
Tony
2009-03-08 14:21:01 UTC
Permalink
Hola Juan:

Creo que hay alguna protegida, pero tiene que seguir protegida puesto que
hay celdas que los usuarios no tienen por qué tocar...

Espero que no tenga que ver con eso o que haya alguna forma de solucionarlo
sin tener que desproteger o desocultar hojas...

Gracias por anticipado...
Post by Juan M
"Tony" escribió
Post by Tony
Juan, siento decir que he probado la rutina pero no funciona porque pone
"Error en el método 'Select' de objeto 'Sheets'
¿Cómo puedo arreglarlo?...
Gracias por anticipado...
Post by Tony
Pues muchas gracias Juan... Lo probaré a ver cómo funciona...
Post by Juan M
"Tony" escribió
Post by Tony
Necesito una macro que me seleccione todas las hojas del libro
activo...
El
nombre y el número de hojas es variable... ¿Cómo sería la macro?...
Gracias. Un saludo.
Hola Tony,
Sub SeleccionaHojas()
ThisWorkbook.Sheets.Select
End Sub
Un saludo,
Juan
Hola Tony,
Como tienes tus hojas? hay alguna que esté protegida / oculta?
Un saludo,
Juan
Juan M
2009-03-09 09:47:46 UTC
Permalink
Hola Tony,

A mi el único error que me salta es cuando existe alguna hoja oculta (no
visible)
Pero este error que indicas tú no
Post by Tony
Post by Tony
"Error en el método 'Select' de objeto 'Sheets'
¿Puedes escribir la descripción completa del error?

Un saludo,
Juan



"Tony" escribió
Post by Tony
Creo que hay alguna protegida, pero tiene que seguir protegida puesto que
hay celdas que los usuarios no tienen por qué tocar...
Espero que no tenga que ver con eso o que haya alguna forma de
solucionarlo
sin tener que desproteger o desocultar hojas...
Gracias por anticipado...
Post by Tony
"Tony" escribió
Post by Tony
Juan, siento decir que he probado la rutina pero no funciona porque pone
"Error en el método 'Select' de objeto 'Sheets'
¿Cómo puedo arreglarlo?...
Gracias por anticipado...
Post by Tony
Pues muchas gracias Juan... Lo probaré a ver cómo funciona...
Post by Juan M
"Tony" escribió
Post by Tony
Necesito una macro que me seleccione todas las hojas del libro
activo...
El
nombre y el número de hojas es variable... ¿Cómo sería la macro?...
Gracias. Un saludo.
Hola Tony,
Sub SeleccionaHojas()
ThisWorkbook.Sheets.Select
End Sub
Un saludo,
Juan
Hola Tony,
Como tienes tus hojas? hay alguna que esté protegida / oculta?
Un saludo,
Juan
Tony
2009-03-09 18:58:06 UTC
Permalink
Hola Juan:

Me pasa tanto en libros con hojas protegidas u ocultas como en libros
normales... Lo que sí me he dado cuenta de que me ocurre con el Excel 2000,
sin embargo con el 2003 me funciona correctamente...

¿Puede ser problema de la versión?... Si es así lo que necesito es que me
funcione en el 2000 y en el 97...

Gracias de nuevo Juan, espero tu respuesta...
Post by Juan M
Hola Tony,
A mi el único error que me salta es cuando existe alguna hoja oculta (no
visible)
Pero este error que indicas tú no
Post by Tony
Post by Tony
"Error en el método 'Select' de objeto 'Sheets'
¿Puedes escribir la descripción completa del error?
Un saludo,
Juan
"Tony" escribió
Post by Tony
Creo que hay alguna protegida, pero tiene que seguir protegida puesto que
hay celdas que los usuarios no tienen por qué tocar...
Espero que no tenga que ver con eso o que haya alguna forma de solucionarlo
sin tener que desproteger o desocultar hojas...
Gracias por anticipado...
Post by Tony
"Tony" escribió
Post by Tony
Juan, siento decir que he probado la rutina pero no funciona porque pone
"Error en el método 'Select' de objeto 'Sheets'
¿Cómo puedo arreglarlo?...
Gracias por anticipado...
Post by Tony
Pues muchas gracias Juan... Lo probaré a ver cómo funciona...
Post by Juan M
"Tony" escribió
Post by Tony
Necesito una macro que me seleccione todas las hojas del libro
activo...
El
nombre y el número de hojas es variable... ¿Cómo sería la macro?...
Gracias. Un saludo.
Hola Tony,
Sub SeleccionaHojas()
ThisWorkbook.Sheets.Select
End Sub
Un saludo,
Juan
Hola Tony,
Como tienes tus hojas? hay alguna que esté protegida / oculta?
Un saludo,
Juan
Juan M
2009-03-10 15:05:09 UTC
Permalink
Hola Tony,

Las pruebas las realice en las versiones 2003 y 2007.
Prueba el código que indico al final y comenta si funciona.
Por otro lado si explicas para que quieres seleccionar todas las hojas se
puede preparar un proceso para que lo haga hoja por hoja.

Un saludo,
Juan

===Inicio Código

Sub SeleccionaHojas()

Dim a() As String
Dim i As Long

ReDim a(Worksheets.Count - 1)

For i = 0 To Worksheets.Count - 1
a(i) = Sheets(i + 1).Name
Next i
Worksheets(a).Select
End Sub

===FIn Código
Juan M
2009-03-10 15:35:41 UTC
Permalink
Hola de nuevo,

Modifica el código donde dice worksheets debe decir sheets

Sub SeleccionaHojas()

Dim a() As String
Dim i As Long

ReDim a(Sheets.Count - 1)

For i = 0 To Sheets.Count - 1
a(i) = Sheets(i + 1).Name
Next i
Worksheets(a).Select
End Sub

Loading...