Macros copiar solo la hoja activa de entre tantas a una carpeta en disco d
Necesito una macro que me permita copiar sin macros la hoja activa del libro Ya q tendré más de 20 hojas y deseo que se guarde en el disco d
Respuesta de Dante Amor
1
Te anexo la macro. Guarda la hoja activa como archivo de excel y le poner nombre el mismo que tiene la hoja
Sub Macro1() ' Por Dante Amor ' Guarda hoja activa como arhivo de excel ' Application.ScreenUpdating = False Application.DisplayAlerts = False nombre = ActiveSheet.Name ruta = "D:\" ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=ruta & nombre & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close MsgBox "Hoja activa guardada" End Sub
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
