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 Respuesta
Respuesta de Dante Amor
1
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
