Cantidad de hojas de un libro por código.

Perfecto, KL. Gracias.
Y ¿cómo hago para que una macro esté presente en todos los libros que yo
abra?

Saludos
"KL" escribió en el mensaje
news:eM7P#m$

Hola Esteban,

Prueba esto:

Sheets(1).Select

Saludos,
KL

"Esteban Dido" wrote in message
news:eliXcV$
> Hola,
> Se me quedó una parte de la pregunta en el tintero, ¿cual es el código
> para
> seleccionar la primera hoja de un libro, cualquiera sea su nombre?. Si
> utilizo
> Sheets("Hoja1").Select
> no me resulta pues necesito previamente saber el nombre de la hoja.
>
> Saludos
> "Esteban Dido" escribió en el mensaje
> news:
>> Muchas gracias.
>> E.D.
>>
>> Saludos
>> "Sergio A Campos H" escribió en el
>> mensaje news:
>> > Que tal Esteban ¡¡
>> >
>> > Utiliza la siguiente macro:
>> >
>> > Sub cuentaHojas()
>> > Dim cuenta As Integer
>> > Dim nombrelibro As String
>> > cuenta = ThisWorkbook.Sheets.Count
>> > nombreArchivo = ThisWorkbook.Name
>> > MsgBox "El total de hojas en " & nombreArchivo & " es " & cuenta
>> > End Sub
>> >
>> > <!>
>> > Tec. Inf. Sergio A Campos H
>> >
>> > ¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias

de

>> > contenido, ! se acepta de todo tipo !
>> > http://mx.geocities.com/sergioacamposh
>> > http://sergioacamposh.mundopc.net
>> > <!>
>> >
>> >
>>
>>
>
>

Que tal Esteban ¡¡

Para que esté presente en todos lo libros que abras, debes grabarla /
escrirla en libro de macros Personal.
Da >>Menú > Ventana > Mostrar ... elige PERSONAL, de ahí entrar al
editor de VB y edita tus macros.

Lo que también puedes hacer es :

Menú > Herramientas > Grabar nueva macro > Grabar en libro de macros
personal.

No ilvides volver a ocultar y guardar el libro.

<!>
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"Esteban Dido" escribió en el mensaje
news:OkFMkz$

Perfecto, KL. Gracias.
Y ¿cómo hago para que una macro esté presente en todos los libros que yo
abra?

Saludos
"KL" escribió en el mensaje
news:eM7P#m$

Hola Esteban,

Prueba esto:

Sheets(1).Select

Saludos,
KL

"Esteban Dido" wrote in message
news:eliXcV$
> Hola,
> Se me quedó una parte de la pregunta en el tintero, ¿cual es el código
> para
> seleccionar la primera hoja de un libro, cualquiera sea su nombre?. Si
> utilizo
> Sheets("Hoja1").Select
> no me resulta pues necesito previamente saber el nombre de la hoja.
>
> Saludos
> "Esteban Dido" escribió en el mensaje
> news:
>> Muchas gracias.
>> E.D.
>>
>> Saludos
>> "Sergio A Campos H" escribió en el
>> mensaje news:
>> > Que tal Esteban ¡¡
>> >
>> > Utiliza la siguiente macro:
>> >
>> > Sub cuentaHojas()
>> > Dim cuenta As Integer
>> > Dim nombrelibro As String
>> > cuenta = ThisWorkbook.Sheets.Count
>> > nombreArchivo = ThisWorkbook.Name
>> > MsgBox "El total de hojas en " & nombreArchivo & " es " & cuenta
>> > End Sub
>> >
>> > <!>
>> > Tec. Inf. Sergio A Campos H
>> >
>> > ¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias

de

>> > contenido, ! se acepta de todo tipo !
>> > http://mx.geocities.com/sergioacamposh
>> > http://sergioacamposh.mundopc.net
>> > <!>
>> >
>> >
>>
>>
>
>

Gracias Sergio. Ya KL me habia contestado algo similar en otro hilo.

Saludos
"Sergio A Campos H" escribió en el
mensaje news:#

Que tal Esteban ¡¡

Para que esté presente en todos lo libros que abras, debes grabarla /
escrirla en libro de macros Personal.
Da >>Menú > Ventana > Mostrar ... elige PERSONAL, de ahí entrar al
editor de VB y edita tus macros.

Lo que también puedes hacer es :
>> Menú > Herramientas > Grabar nueva macro > Grabar en libro de macros
>> personal.

No ilvides volver a ocultar y guardar el libro.

<!>
Tec. Inf. Sergio A Campos H

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
<!>


"Esteban Dido" escribió en el mensaje
news:OkFMkz$
> Perfecto, KL. Gracias.
> Y ¿cómo hago para que una macro esté presente en todos los libros que yo
> abra?
>
> Saludos
> "KL" escribió en el mensaje
> news:eM7P#m$
>> Hola Esteban,
>>
>> Prueba esto:
>>
>> Sheets(1).Select
>>
>> Saludos,
>> KL
>>
>> "Esteban Dido" wrote in message
>> news:eliXcV$
>> > Hola,
>> > Se me quedó una parte de la pregunta en el tintero, ¿cual es el

código

>> > para
>> > seleccionar la primera hoja de un libro, cualquiera sea su nombre?.

Si

>> > utilizo
>> > Sheets("Hoja1").Select
>> > no me resulta pues necesito previamente saber el nombre de la hoja.
>> >
>> > Saludos
>> > "Esteban Dido" escribió en el mensaje
>> > news:
>> >> Muchas gracias.
>> >> E.D.
>> >>
>> >> Saludos
>> >> "Sergio A Campos H" escribió en

el

>> >> mensaje news:
>> >> > Que tal Esteban ¡¡
>> >> >
>> >> > Utiliza la siguiente macro:
>> >> >
>> >> > Sub cuentaHojas()
>> >> > Dim cuenta As Integer
>> >> > Dim nombrelibro As String
>> >> > cuenta = ThisWorkbook.Sheets.Count
>> >> > nombreArchivo = ThisWorkbook.Name
>> >> > MsgBox "El total de hojas en " & nombreArchivo & " es " &

cuenta

>> >> > End Sub
>> >> >
>> >> > <!>
>> >> > Tec. Inf. Sergio A Campos H
>> >> >
>> >> > ¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus

sugerencias

> de
>> >> > contenido, ! se acepta de todo tipo !
>> >> > http://mx.geocities.com/sergioacamposh
>> >> > http://sergioacamposh.mundopc.net
>> >> > <!>
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>