
Hace ya varias semanas me hicieron una consulta, en la cual me preguntaban, como podían hacer una copia de hoja varias veces de manera automática.
Paso 1: Estando en Excel presionamos la tecla ALT+F11, para activar el Visual Basic.
Paso 2: Presionamos el menú Insertar, y seleccionamos la opción Modulo.
Paso 3: Copiamos el siguiente código:
Sub CopiaHoja()
On Error Resume Next
nombreHoja = InputBox("Indique el nombre de la Hoja que desea copiar")
For x = 1 To Sheets.Count
If ActiveWorkbook.Sheets(x).Name = nombreHoja Then
ExisteHoja = True
IndiceHoja = x
End If
Next x
If ExisteHoja = True Then
NumeroDeCopias = InputBox("Indique cuantas veces lo desea copiar")
For y = 1 To NumeroDeCopias
Nombre = Val(nombreHoja) + y
Sheets(IndiceHoja).Select
Sheets(IndiceHoja).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Nombre
Next y
Else
MsgBox "La hoja no existe"
End If
End Sub
Paso 4: Cerramos el Visual Basic y regresamos al Excel.
Estando ya en el Excel, seleccionamos la etiqueta Vista, luego hacemos clic en el botón Macros, ver Macros.
En la ventana de Macro, seleccionamos CopiaHoja, y presionamos el botón Ejecutar.
Luego de presionar el botón ejecutar, aparece una ventana donde nos solicita escribir el nombre de la hoja que queremos copiar. En este caso colocaremos "100"
Después de indicar el nombre de la hoja, nos pregunta cuantas veces lo deseo copiar, en este caso colocaremos 10.
Luego nos aparecerá 10 hojas adicionales que son copia de la hoja 100, y los nombres de las hojas han cambiado correlativamente.
Espero que les sirva
Saludos
Ing. Enrique Neciosup Morales
GRACIAS ME SERVIO MUCHO
ResponderEliminarMuchas gracias, me fue de gran ayuda
ResponderEliminarGracias capo!
ResponderEliminarExcelente...muchas gracias
ResponderEliminarMUY BUENO GRACIAS!!
ResponderEliminarMuy útil, muchas gracias!
ResponderEliminarGracias, excelente aporte. Me sirvió muchísimo.
ResponderEliminarMuchas gracias, muy buen aporte.
ResponderEliminaruff....master......gracias, excelente explicación. funciona 100 %
ResponderEliminarExcelente información.
ResponderEliminarMe ahorro muchisimo tiempo!
GRACIAS!!!! ME SALVASTES EL "PELLEJO" :)
ResponderEliminarGRACIAS ME SIRVIO DE MUCHO
ResponderEliminarme sirvir demaciado , muchas gracias
ResponderEliminar