Segundo nombre de la hoja

19/06/2004 - 19:40 por Jesús Román | Informe spam
Hola Amigos:
Tengo una macro creada que deseo utilizar en distintos libros
El problema es que en mi macro, que es creada mediante grabacion, denomina a
las hojas por el nombre que tiene en la solapa.
Lo que trato es de que la macro en lugar de ir a la hoja "BBVA" valla a la
primera hoja de la izquierda del libro, pues no en todos los libros esa hoja
se denomina BBVA. Tambien me surgirá el problema de que no todos los libros
tienen la misma cantidad de hojas por lo cual me temo que la macro me
dará error, por lo tanto necesitaria saber la formula de decirle a la macro
que cuando no exista esa hoja que continue sin mostrar error. Para que esto
quede mas claro, la macro va a la primera hoja de la izquierda y luego a la
segunda, etc., en los libros hay distinta cantidad de hojas, cuando llegue a
la última que salte al siguiente paso de la macro olvidandose de seguir
buscando hojas.

He creado distintas macros y me va bien tal como lo llevo, no obstante, como
se que es un trabajo mal hecho, espero que me puedan ayudar y asi aprender
para la proxima macro quede mas maja.
Muchas gracias.
 

Leer las respuestas

#1 Héctor Miguel
19/06/2004 - 23:20 | Informe spam
hola, Jesús !

... que la macro ... vaya a la primera hoja de la izquierda del libro [...]



puedes usar el 'indice' [o 'posicion' de una hoja 'dentro' de un libro [p.e.]...
el objeto 'Worksheets' se refiere 'exclusivamente' a hojas de calculo.
el objeto 'Sheets' incluye [si las hubiera] hojas de grafico y 'otro tipo' de hojas.
[ActiveWorkbook.]Worksheets(1) o 'simplemente' Worksheets(1)

... no todos los libros tienen la misma cantidad de hojas [...]



puedes 'contar' las hojas [Worksheets o Sheets] que hay en el libro con...
Worksheets.Count o... Sheets.Count

... decirle a la macro que ... a la primera hoja ... a la segunda ... cuando llegue a la ultima que salte al siguiente paso [...]



Dim Indice As Integer
For Indice = 1 To Worksheets.Count
Worksheets(Indice)
' aqui lo que haga en cada hoja [Worksheet o... ¿Sheet?] '
Next

saludos,
hector.

Preguntas similares