Seleccionar hojas

No dices cual es el criterio de la selección de hojas.
Como ejemplo, vamos a suponer que se tratara de seleccionar todas las hojas cuyo nombre comience por "Hoja". El código podría ser:

Sub SeleccionarHojas()
Dim wksH As Worksheet
Dim mtr(), n

For Each wksH In Worksheets
If Left(wksH.Name, 4) = "Hoja" Then
n = n + 1
ReDim Preserve mtr(1 To n)
mtr(n) = wksH.Name
End If
Next
Worksheets(mtr()).Select

Set wksH = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Jose A. Domínguez" escribió en el mensaje news:%23i4zrmS$

Como puedo seleccionar varias hojas de calculo a la vez si estas son
variables. A veces necesito seleccionar 3 otras 5 , etc..
Ahora mismo lo estoy haciendo de la siguiente manera Sheets(Array("Hoja1",
"Hoja2")).Select
pero esto solo me sirve para seleccionar la hoja1 y la hoja2. Como puedo
hacer para que el argumento de Array sea variable.

Gracias.

Pulsando Ctrl + nombre de la hojas que necesites, irán
quedando seleccionadas. Si estuvieran contiguas, basta
pinchar la primera, Mayúsc + la última.

:-)

Como puedo seleccionar varias hojas de calculo a la vez

si estas son

variables. A veces necesito seleccionar 3 otras 5 , etc..
Ahora mismo lo estoy haciendo de la siguiente manera

Sheets(Array("Hoja1",

"Hoja2")).Select
pero esto solo me sirve para seleccionar la hoja1 y la

hoja2. Como puedo

hacer para que el argumento de Array sea variable.

Gracias.


.

Gracias por el ejemplo. Me ha servido de mucha ayuda para ver el
funcionamiento.

Un saludo.

"Fernando Arroyo" escribió en el mensaje
news:eMX2ZxS$
No dices cual es el criterio de la selección de hojas.
Como ejemplo, vamos a suponer que se tratara de seleccionar todas las hojas
cuyo nombre comience por "Hoja". El código podría ser:

Sub SeleccionarHojas()
Dim wksH As Worksheet
Dim mtr(), n

For Each wksH In Worksheets
If Left(wksH.Name, 4) = "Hoja" Then
n = n + 1
ReDim Preserve mtr(1 To n)
mtr(n) = wksH.Name
End If
Next
Worksheets(mtr()).Select

Set wksH = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Jose A. Domínguez" escribió en el mensaje
news:%23i4zrmS$

Como puedo seleccionar varias hojas de calculo a la vez si estas son
variables. A veces necesito seleccionar 3 otras 5 , etc..
Ahora mismo lo estoy haciendo de la siguiente manera Sheets(Array("Hoja1",
"Hoja2")).Select
pero esto solo me sirve para seleccionar la hoja1 y la hoja2. Como puedo
hacer para que el argumento de Array sea variable.

Gracias.