Contar hojas de un libro

"BLACIO" escribió en el mensaje news:

Salud2 a toda la comunidad de Excelsos
Existe la posibilidad de contar el numero de hojas de un libro, lo anterior
en virtud de que tengo el codigo que hace una hoja por cada subtotal de 168
cuentas o sea que se deben crear 168 hojas, si existe la posibilidad de
contar las hojas, sería mas facíl que se hallan creado todas las hojas que
necesitaba.
De antemano muchas gracias y que tengan un buen día

Sheets.Count devuelve el número de hojas del libro en total.
Worksheets.Count devuelve el número de hojas de cálculo.
Charts.Count devuelve el número de hojas de gráfico.

Un saludo.


Fernando Arroyo
MS MVP - Excel

Fer. Gracias
pero como lo aplico, en el codigo o en dondé ????

"BLACIO" escribió:

Salud2 a toda la comunidad de Excelsos
Existe la posibilidad de contar el numero de hojas de un libro, lo anterior
en virtud de que tengo el codigo que hace una hoja por cada subtotal de 168
cuentas o sea que se deben crear 168 hojas, si existe la posibilidad de
contar las hojas, sería mas facíl que se hallan creado todas las hojas que
necesitaba.
De antemano muchas gracias y que tengan un buen día

1er Paso. Vas al VBA Editor, creas un nuevo modulo y pegas ahi el codigo que
te pongo abajo

Function ContarHojasCharts()
Application.Volatile
ContarHojas = ThisWorkbook.Sheets.Count
End Function

Function ContarHojas()
Application.Volatile
ContarHojas = ThisWorkbook.Worksheets.Count
End Function

Function ContarCharts()
Application.Volatile
ContarHojas = ThisWorkbook.Cahrts.Count
End Function

2do Paso. Vuelves a la hoja de calculo e introduces las siguientes formulas
en cualquier celda:

=ContarHojasCharts() - para contar las hojas y los charts juntos

=ContarHojas() - para contar las hojas solamente

=ContarCharts() - para contar las charts solamente

Estas formulas no necesitan parametros.
Saludos,
KL


"BLACIO" wrote in message
news:

Fer. Gracias
pero como lo aplico, en el codigo o en donde ????

"BLACIO" escribio:

Salud2 a toda la comunidad de Excelsos
Existe la posibilidad de contar el numero de hojas de un libro, lo
anterior
en virtud de que tengo el codigo que hace una hoja por cada subtotal de
168
cuentas o sea que se deben crear 168 hojas, si existe la posibilidad de
contar las hojas, seria mas facil que se hallan creado todas las hojas
que
necesitaba.
De antemano muchas gracias y que tengan un buen dia

KL, Gracias
Funciono correctamente

"KL" escribió:

1er Paso. Vas al VBA Editor, creas un nuevo modulo y pegas ahi el codigo que
te pongo abajo

Function ContarHojasCharts()
Application.Volatile
ContarHojas = ThisWorkbook.Sheets.Count
End Function

Function ContarHojas()
Application.Volatile
ContarHojas = ThisWorkbook.Worksheets.Count
End Function

Function ContarCharts()
Application.Volatile
ContarHojas = ThisWorkbook.Cahrts.Count
End Function

2do Paso. Vuelves a la hoja de calculo e introduces las siguientes formulas
en cualquier celda:

=ContarHojasCharts() - para contar las hojas y los charts juntos

=ContarHojas() - para contar las hojas solamente

=ContarCharts() - para contar las charts solamente

Estas formulas no necesitan parametros.
Saludos,
KL


"BLACIO" wrote in message
news:
> Fer. Gracias
> pero como lo aplico, en el codigo o en donde ????
>
> "BLACIO" escribio:
>
>> Salud2 a toda la comunidad de Excelsos
>> Existe la posibilidad de contar el numero de hojas de un libro, lo
>> anterior
>> en virtud de que tengo el codigo que hace una hoja por cada subtotal de
>> 168
>> cuentas o sea que se deben crear 168 hojas, si existe la posibilidad de
>> contar las hojas, seria mas facil que se hallan creado todas las hojas
>> que
>> necesitaba.
>> De antemano muchas gracias y que tengan un buen dia

BLACIO,

La ultima funcion tiene una pequena falta ortografica y tiene q leer asi:

Function ContarCharts()
Application.Volatile
ContarHojas = ThisWorkbook.Charts.Count
End Function


Saludos,
KL

"BLACIO" wrote in message
news:

KL, Gracias
Funciono correctamente

"KL" escribio:

1er Paso. Vas al VBA Editor, creas un nuevo modulo y pegas ahi el codigo
que
te pongo abajo

Function ContarHojasCharts()
Application.Volatile
ContarHojas = ThisWorkbook.Sheets.Count
End Function

Function ContarHojas()
Application.Volatile
ContarHojas = ThisWorkbook.Worksheets.Count
End Function

Function ContarCharts()
Application.Volatile
ContarHojas = ThisWorkbook.Cahrts.Count
End Function

2do Paso. Vuelves a la hoja de calculo e introduces las siguientes
formulas
en cualquier celda:

=ContarHojasCharts() - para contar las hojas y los charts juntos

=ContarHojas() - para contar las hojas solamente

=ContarCharts() - para contar las charts solamente

Estas formulas no necesitan parametros.
Saludos,
KL


"BLACIO" wrote in message
news:
> Fer. Gracias
> pero como lo aplico, en el codigo o en donde ????
>
> "BLACIO" escribio:
>
>> Salud2 a toda la comunidad de Excelsos
>> Existe la posibilidad de contar el numero de hojas de un libro, lo
>> anterior
>> en virtud de que tengo el codigo que hace una hoja por cada subtotal
>> de
>> 168
>> cuentas o sea que se deben crear 168 hojas, si existe la posibilidad
>> de
>> contar las hojas, seria mas facil que se hallan creado todas las hojas
>> que
>> necesitaba.
>> De antemano muchas gracias y que tengan un buen dia