¿Cómo crear una copia de una hoja escondida a un libro nuevo?
Quisiera a través de una macro hacer todo esto:
* Copiar una hoja ("MasterDATA") veryhidden, todas las tablas que tiene menos una llamada TablaUsuarios
* A un libro nuevo llamado BackUp
* Copiando el nombre de la hoja también ("MasterDATA").
1 respuesta
Respuesta de Dante Amor
1
Prueba la siguiente macro:
Sub Macro1()
Dim sh As Worksheet
Dim oj As ListObject
Dim rng As String
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set sh = Sheets("MasterDATA")
Set oj = sh.ListObjects("TablaUsuarios")
rng = oj.Range.Address
sh.Visible = xlSheetVisible
sh.Copy
sh.Visible = xlSheetVeryHidden
'
ActiveSheet.Range(rng).Clear
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "BackUp.xlsx"
ActiveWorkbook.Close False
'
Application.DisplayAlerts = True
MsgBox "Respaldo guardado"
End Sub
