Crear Macro que copie una hoja
Hola! Tengo una hoja de excel con un formato determinado. Lo que necesito es copiar esa hoja cada vez que pulse un botón (en la hoja original) pero que antes me pida el ingreso del nombre para la hoja que voy a crear. Por último, necesito que esa hoja que creo aparezca al final. Gracias!
1 respuesta
Respuesta
1
Prueba este script que soluciona tu pregunta.
Sub insertahoja()
'declaramos la variable para el nombre de la hoja
Dim Nombre As String
'capturamos el valor de Nombre con un cuadro de entrada
Nombre = InputBox("ingrese el nombre de la hoja", "Nombre")
'seleccionamos la hoja a copiar, en tu caso solo modifica ("Original") por el nombre de tu hoja
Sheets("Original").Select
'indicamos que cree una copia en la ultima posicion
Sheets("Original").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Select
'asignamos el nombre a la nueva hoja
ActiveSheet.Name = Nombre
End Sub
Espero sea de ayuda, si es así por favor deja un comentario y cierra la pregunta, en caso contrario no dudes en preguntarme nuevamente.
Sub insertahoja()
'declaramos la variable para el nombre de la hoja
Dim Nombre As String
'capturamos el valor de Nombre con un cuadro de entrada
Nombre = InputBox("ingrese el nombre de la hoja", "Nombre")
'seleccionamos la hoja a copiar, en tu caso solo modifica ("Original") por el nombre de tu hoja
Sheets("Original").Select
'indicamos que cree una copia en la ultima posicion
Sheets("Original").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Select
'asignamos el nombre a la nueva hoja
ActiveSheet.Name = Nombre
End Sub
Espero sea de ayuda, si es así por favor deja un comentario y cierra la pregunta, en caso contrario no dudes en preguntarme nuevamente.