Macro para copiar hoja sin botón y macros q
La siguiente macro me copia la hoja en otro libro, pero al copiarlo se copia con el botón que contiene esa hoja y su macro. ¿Qué líneas se puede agregar para que copie sin el botón y su macros? Gracias.
Private Sub cmdguardar_Click()
Application.ScreenUpdating = False
Worksheets("Caja").Activate
Worksheets("Caja").Visible = True
Worksheets("Caja").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Caja N°" & ThisWorkbook.Worksheets("Caja").Range("I1")
ActiveWorkbook.Close
Worksheets("Caja").Visible = False
Application.ScreenUpdating = True
End Sub
2 Respuestas
Respuesta de Dante Amor
2
Te anexo la macro actualizada
Private Sub cmdguardar_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.CopyObjectsWithCells = False
Worksheets("Caja").Activate
Worksheets("Caja").Visible = True
Worksheets("Caja").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Caja N°" & _
ThisWorkbook.Worksheets("Caja").Range("I1") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Worksheets("Caja").Visible = False
Application.CopyObjectsWithCells = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Respuesta de Programar Excel
1
