Cantidad de hojas de un libro por código.

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
<!>

Si solo quieres las hojas de calculo, entonces

cuenta = ThisWorkbook.Worksheets.Count


"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
<!>

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
<!>

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
> <!>
>
>

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
> <!>
>
>