Macro para exportar una hoja dependiendo del contenido de una celda

Hola, nuevamente acudo a ustedes, tengo una rutina de exportación en formato xlsm, pero las hojas que exporta están determinadas en la misma rutina, necesito q estas sean selectivas de acuerdo al contenido de una celda, los nombres de las hojas se encuentran en la columna E, la primera es E1 y de ahí hasta E30, y la macro debe seleccionar la de hoja que esta nombrada en E1. Y exportar esta hoja a un Excel nuevo.

Sub Exportar_entregable()
Application.ScreenUpdating = False
    Sheets(Array("Proy1")).Select
    Sheets(Array("Proy1")).Copy
    Windows( _
        "Proyecto X.xlsm"). _
        Activate
    Sheets("Menu").Select
    Sheets("Menu").Activate
    Range("I4").Select
Application.ScreenUpdating = True
End Sub

1

1 Respuesta

3.696.550 pts. Si me amas, siempre voy a estar en tu corazón; si me...

Te anexo la macro

Sub CopiarHoja()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each h In Sheets
        If UCase(h.Name) = UCase([E1]) Then
            existe = True
            Exit For
        End If
    Next
    If existe Then
        Sheets([E1].Value).Copy
        ThisWorkbook.Activate
        MsgBox "Hoja copiada", vbInformation
    Else
        MsgBox "La hoja no existe", vbExclamation
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas