¿Cómo copiar una hoja oculta en Excel? 

En Excel, podemos mover y copiar una hoja al libro de trabajo actual u otro libro rápidamente y con facilidad, pero ¿has intentado alguna vez copiar una hoja oculta al libro de trabajo activo? En este artículo, te presentaré un código VBA para copiar una hoja oculta específica al archivo de Excel activo.

Copiar una hoja de cálculo oculta al libro de trabajo activo con código VBA

Copiar una hoja de cálculo oculta al libro de trabajo activo con código VBA

Para copiar una hoja oculta de un libro de trabajo y darle un nombre, el siguiente código VBA puede ayudarte:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Copiar una hoja de cálculo oculta al libro de trabajo activo:

Sub DupSheet()
'Updateby Extendoffice 20161109
    Dim Actsheet As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("Sheet12").Visible = True
    ActiveWorkbook.Sheets("Sheet12").Copy _
    after:=ActiveWorkbook.Sheets("Sheet12")
    ActNm = ActiveSheet.Name
    ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
    Sheets(ActiveSheet.Name).Visible = True
    ActiveWorkbook.Sheets("Sheet12").Visible = False
    Application.ScreenUpdating = True
End Sub

Nota: En el código anterior, Hoja 12 es la hoja oculta que deseas copiar, por favor cámbiala según tus necesidades.

3. Luego presiona la tecla F5 para ejecutar este código, aparecerá un cuadro de diálogo para recordarte que especifiques un nombre para la nueva copia de la hoja de cálculo oculta, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y la hoja oculta se habrá copiado con el nuevo nombre en el libro de trabajo activo de inmediato.