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
 

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

Preguntas similares