¿Cómo crear una hoja si no existe en el libro de trabajo?

Supongamos que tiene un libro de trabajo que contiene varias hojas de trabajo, ahora, debe determinar si existe un nombre de hoja de trabajo específico. Si el nombre de la hoja de trabajo no existe, créelo. Si existe, envíe un mensaje rápido para informarle que la hoja existe. ¿Cómo podrías resolver esta tarea en Excel?

Cree una hoja si no existe en el libro de trabajo con código VBA

---

Cree una hoja si no existe en el libro de trabajo con código VBA

El siguiente código de VBA puede ayudarlo a verificar un nombre de hoja de trabajo específico si existe en el libro de trabajo; de lo contrario, el código puede crear la hoja según lo necesite.

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: cree una hoja si no existe en el libro de trabajo:

Sub TestSheetCreate()
'Updateby Extendoffice
    Dim newSheetName As String
    Dim checkSheetName As String
    newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet4", , , , , 2)
    On Error Resume Next
    checkSheetName = Worksheets(newSheetName).Name
    If checkSheetName = "" Then
        Worksheets.Add.Name = newSheetName
        MsgBox "The sheet named ''" & newSheetName & _
        "'' does not exist in this workbook but it has been created now.", _
        vbInformation, "Kutools for Excel"
        
    Else
        MsgBox "The sheet named ''" & newSheetName & _
        "''exist in this workbook.", vbInformation, "Kutools for Excel"
    End If
End Sub

3. Y luego presione F5 para ejecutar este código, aparece un cuadro emergente para recordarle que ingrese el nombre de la hoja que desea verificar, vea la captura de pantalla:

4. Luego haga clic OK botón:

(1.) Si la hoja existe, aparecerá un cuadro emergente para recordarle como se muestra en la siguiente captura de pantalla:

(2.) Si la hoja no existe, se creará de inmediato, vea la captura de pantalla: