Pasar de Hoja en Hoja

23/03/2010 - 21:46 por Fernando Restrepo | Informe spam
Buenas tardes. Resulta que tengo un archivo en Excel que no siempre tiene el
mismo numero de pestañas pero quiero que la MACRO corra con N número de
pestañas. En mi caso va pasando por cada pestaña con el comando
"ActiveSheet.Next.Select " pero cuando llega a la última hoja aparece un
error diciendo que no hay más hojas de calculo.

¿Cómo hago para ir de una en un hasta la última hoja de calculo, sin saber
cuál es, pero que nunca me aparezca error y que funcione para N hojas de
calculo; teniendo en cuenta que en cada hoja de cálculo se corre una parte de
la macro? En otras palabras corro una macro, paso a la siguiente hoja de
calculo con "ActiveSheet.Next.Select " y corro otra macro y así
suscesivamente.

Gracias

Preguntas similare

Leer las respuestas

#1 Juan Español
23/03/2010 - 22:11 | Informe spam
Hola Fernando:
Después de:

ActiveSheet.Next.Select

pon:

if ActiveSheet.Name = Sheets(ActiveWorkbook.Sheets.Count).Name then msgbox
"Estas en la última Hoja"

y añade el código necesario para que suceda lo que tú quieras que suceda.

"Fernando Restrepo" <Fernando escribió
en el mensaje de noticias
news:
Buenas tardes. Resulta que tengo un archivo en Excel que no siempre tiene
el
mismo numero de pestañas pero quiero que la MACRO corra con N número de
pestañas. En mi caso va pasando por cada pestaña con el comando
"ActiveSheet.Next.Select " pero cuando llega a la última hoja aparece un
error diciendo que no hay más hojas de calculo.

¿Cómo hago para ir de una en un hasta la última hoja de calculo, sin saber
cuál es, pero que nunca me aparezca error y que funcione para N hojas de
calculo; teniendo en cuenta que en cada hoja de cálculo se corre una parte
de
la macro? En otras palabras corro una macro, paso a la siguiente hoja de
calculo con "ActiveSheet.Next.Select " y corro otra macro y así
suscesivamente.

Gracias
Respuesta Responder a este mensaje
#2 Héctor Miguel
23/03/2010 - 22:19 | Informe spam
hola, Fernando !

... tengo un archivo... que no siempre tiene el mismo numero de pestanas
pero quiero que la MACRO corra con N numero de pestanas.
En mi caso va pasando por cada pestana con el comando "ActiveSheet.Next.Select"
pero cuando llega a la ultima hoja aparece un error diciendo que no hay mas hojas de calculo...



(creo que) la forma mas adecuada es avanzar por la cuenta de hojas en el libro (p.e.)

dim n as byte
for n = 1 to worksheets.count
worksheets(n).select
' el resto de tu codigo aqui ... '
next

saludos,
hector.
Respuesta Responder a este mensaje
#3 Héctor Miguel
23/03/2010 - 22:56 | Informe spam
hola, Fernando !

(creo que) la forma adecuada es avanzar por la cuenta de hojas en el libro
(p.e.)

dim n as byte
for n = 1 to worksheets.count
worksheets(n).select
' el resto de tu codigo aqui ... '
next

saludos,
hector.

(parece que la asincronia sera parte de los grupos hasta su total
desaparicion)
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida