Macro Excel crea una nueva hoja y pida el nombre
A tod@s.
¿Alguien sabe como hacer una macro con Excel que cree una nueva hoja pero, antes de ello, pida el nombre que le debe poner?
¿Alguien sabe como hacer una macro con Excel que cree una nueva hoja pero, antes de ello, pida el nombre que le debe poner?
1 Respuesta
Respuesta de ntrrgc
1
¿Cuánto tiempo llevas esperando una respuesta a esa pregunta?
Seguro que ya ni te hace falta, pero te la respondo por si acaso.
Pulsa Alt+F11. Ve a Insertar/Módulo, y escribe el siguiente código (bueno, o pégalo que aguantarás más):
Sub NuevaHoja()
Dim nombreHoja As String
nombreHoja = InputBox("Escriba un nombre para la nueva hoja:")
If nombreHoja = "" Then Exit Sub
Dim hoja As Worksheet
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja
End Sub
Fácil, fácil y rico, rico para toda la familia.
Seguro que ya ni te hace falta, pero te la respondo por si acaso.
Pulsa Alt+F11. Ve a Insertar/Módulo, y escribe el siguiente código (bueno, o pégalo que aguantarás más):
Sub NuevaHoja()
Dim nombreHoja As String
nombreHoja = InputBox("Escriba un nombre para la nueva hoja:")
If nombreHoja = "" Then Exit Sub
Dim hoja As Worksheet
Set hoja = ActiveWorkbook.Sheets.Add
hoja.Name = nombreHoja
End Sub
Fácil, fácil y rico, rico para toda la familia.
Pues sí, en efecto, hace días que busqué una solución alternativa al problema, pero no había encontrado la solución que pedía, así que me ha ido genial.
Muchísimas gracias, muy buena respuesta.
Saludos.
Muchísimas gracias, muy buena respuesta.
Saludos.
De pronto mi pregunta parezca demasiada básica, pero tú código me parece sencillo y fácil de usar, le estoy intentando añadir un código para que si la página ya se encuentra creada con el mismo nombre, no la permita crear, o modificarla para que la cree con base a un rango pero me sale error, me podrías colaborar con la estructura correcta del código, te dejo mis códigos, de golpe esten mal. - Esteban Laverde
Function chequear_hoja(sheetName As String) As BooleanDim wkb As WorksheetOn Error Resume NextSet wkb = Sheets(sheetName)On Error GoTo 0chequear_hoja = IIf(Not wkb Is Nothing, True, False)End Function - Esteban Laverde
Function chequear_hoja(sheetName As String) As BooleanDim wkb As WorksheetOn Error Resume NextSet wkb = Sheets(sheetName)On Error GoTo 0chequear_hoja = IIf(Not wkb Is Nothing, True, False)End FunctionApplication.ScreenUpdating = FalseFor iX = Lista.Count To 1 Step -1If chequear_hoja(Lista(iX)) = False ThenSheets.Add.Name = Lista(iX)End IfNext iXSheets("Hoja1").ActivateApplication.ScreenUpdating = TrueCancelar:End SubApplication.ScreenUpdating = FalseFor iX = Lista.Count To 1 Step -1If chequear_hoja(Lista(iX)) = False ThenSheets.Add.Name = Lista(iX)End IfNext iXSheets("Hoja1").ActivateApplication.ScreenUpdating = TrueCancelar:End Sub - Esteban Laverde