Macro para crear hoja nueva
De nuevo estoy por aca en esta su magnifica pagina solicitándoles ayuda.
Tengo el siguiente código para crear una hoja nueva copiando una ya existente y me funciona bien, el problema surge cuando le doy un nombre a la hoja nueva y este nombre de hoja ya existe. Lo que deseo si me pueden ayudar es que cuando el nombre de la hoja ya exista me salga un msgbox "hoja existente"y no ejecute la macro.
Espero me halla hecho entender.
Sub hoja_nueva()
Application.ScreenUpdating = False
nombre = InputBox("Ingrese el nombre dela nueva hoja")
If nombre = "" Then Exit Sub
Sheets("formato").Select
range("D8").Value = nombre
Sheets("formato").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nombre
Sheets("formato").Select
range("D8").Value = Empty
Sheets("Panel").Select
Application.ScreenUpdating = True
End Sub
1 Respuesta
Te regreso la macro.
Sub hoja_nueva()
Application.ScreenUpdating = False
nombre = InputBox("Ingrese el nombre dela nueva hoja")
If nombre = "" Then Exit Sub
For Each hoja In ThisWorkbook.Worksheets
If nombre = hoja.Name Then
MsgBox "hoja existente"
Exit Sub
End If
Next
Sheets("formato").Select
Range("D8").Value = nombre
Sheets("formato").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nombre
Sheets("formato").Select
Range("D8").Value = Empty
Sheets("Panel").Select
Application.ScreenUpdating = True
End Sub
