Como insertar varias hojas de cálculo en un libro

Hola Jose

No se si existira una forma de incluir muchas hojas de una sola vez, no la
conozco.
Con VBA aplication podrias hacerlo pero te recomiendo, para salir del paso,
que con solo incluirla la primera ves las otras las puedes crear solo
precionando "F4" (solo inmediatamente despues de crear la primera) y a la
velocidad de la tecla (unas 30 por segundo) o necesitas de mas???

JC

"Excel - José A" wrote:

Desearía saber si se pueden insetar varias hojas de cálculo en un libro, sin
tener que hacerlo una a una

Creo que JC dio en el calvo, jejeje. Se me ocurre algo, asi, rapidito
nomas:

Sub Inshojas()

Dim cantidad As Integer
Dim hojasn As Integer

hojasn = Val(InputBox("Numero de hojas"))
For cantidad = 1 To hojasn
Sheets.Add
Next cantidad

End sub

Obviamente no esta "pulido", pero puede ser lo qeu buscas

Abraham

saludos:

http://www.asap-utilities.com/

el complemento "ASAP Utilities" disponible en esta pagina tiene una opcion,
que si usted pone, por ejemplo,

"A"
UNA
DOS
TRES

y selecciona el rango A1:A3, puede crear tres hojas con los nombres que hay
en dichas celdas, ademas de tener otros adornos y funciones adicionales.


Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"Excel - José A" <Excel - José escribió en el
mensaje news:
| Desearía saber si se pueden insetar varias hojas de cálculo en un libro,
sin
| tener que hacerlo una a una

"Excel - José A" <Excel - José escribió en el mensaje
news:

Desearía saber si se pueden insetar varias hojas de cálculo en un libro, sin
tener que hacerlo una a una

Hola José,
puestos a dar opciones, sabe que cuando ejecutas el menú "Insertar > Hoja de cálculo", se insertan tantas hojas como tengas
seleccionadas.
También puedes crearte tu propia macro para insertar el número de hojas que le indiques. Por ejemplo:

'*********
Sub InsertarHojas(ByVal Count As Integer)
Sheets.Add Count:=Count: After:=Sheets(Sheets.Count)
End Sub
'*********

Por alternativas, que no quede...

Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

"Vinchenzo vinç" escribió en el mensaje news:

Sheets.Add Count:=Count: After:=Sheets(Sheets.Count)

Epa, falta una coma!
Sheets.Add Count:=Count:, After:=Sheets(Sheets.Count)


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn