Foro Excel

Señores del foro de manera atenta le solicito me colaboren con una macro que inserta hojas con una numeración consecutiva.

Esta creo que ya estuvo publicada alguna vez en el foro. En verdad es urgente ubicar esta macro.

Agradezco a la persona que me pueda colaborar.

Gracias de antemano.

Sub agregar25hojas()
For i = 1 To 25
Sheets.Add(, Sheets(Sheets.Count)).Name = i
Next
End Sub

Hola!
En base a lo de p@li doy otra alternativa:

Sub AgregarHojas()
Dim Inicio, Fin As Integer
Inicio = Val(InputBox("Ingrese Número inicial", "Sr. Operador"))
Fin = Val(InputBox("Ingrese Número Final", "Sr. Operador"))
If Not Inicio <= Fin Then
MsgBox "Inicio debe ser menor igual a final", vbOKOnly, "Atención"
Exit Sub
End If
For Inicio = 1 To Fin
Sheets.Add(, Sheets(Sheets.Count)).Name = Inicio
Next
End Sub

Atte.

BUENA IDEA, ESO ES TENER EN CUENTA AL USUARIO!! JAJAJA

Hola que tal Adrian

Muchas gracias por su ayuda, la macro esta bien pero tengo una objeción
se trata de que la macro me pide un numero para comenzar y otro para terminar. Hasta hay supér, perfecto.

Pero resulta que no me tiene en cuenta el numero con el que deberia comerzar y siempre comienza desde 1 hasta el numero que yo le pido.

Hay formas de corregir esto?

Nuenvamente muchas gracias por la colaboración y atención prestadas.

Hola Morfeo, solo haz este cambio en tu macro en la parte del For de la macro que te envió el Maestro Adrian:


For Inicio = 1 To Fin

cambialo por:

For Inicio = Inicio To Fin


Espero sea de tu ayuda,

Saludos.

Octavio

la otra opcion,si no quieres escribir la hoja de inicio es utilizar un solo input,que es el que te solocita la cantida de hojas que deseas agragar a tu libro y puede quedar algo basico,como esto:

Código: Seleccionar todo

Sub AgregaHojas_ST()
cantidad = InputBox("Cuantas Hojas desea agregar?", "Insertando Hojas", 1)
For i = 1 To cantidad
Sheets.Add(, Sheets(Sheets.Count)).Name = "Hoja" & Sheets.Count + 1
Next
End Sub

Señores muchisimas gracias...... que bien!!!! la verdad todo me funcionó de maravilla.

Gracias al aporte de cada uno de ustedes logré hacer algo bastante util para mí­ y mi empresa.

nuenvamente muchisimas gracias.