Macro que guarde a "mis documentos" un archivo excel
EXPERTOS, estoy buscando una macro que copie rangos, genere un nuevo libro, pegue los datos del rango copiado y lo guarde de frente a "MIS DOCUMENTOS".
1 Respuesta
Echa una mirada a este código y modifica a tu gusto o necesidades...
Saludo y recuerda VALORAR la respuesta... (Y)
Sub Macro1()
'
' Macro1 Macro
'
'
Application.ScreenUpdating = False
Range("D1:F35").Select
Range("F35").Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
archivo = CreateObject("wscript.shell").SpecialFolders("mydocuments") & "\"
ActiveWorkbook.SaveAs Filename:=archivo & "libro1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, OpenAfterSave:=False
End Sub
Gracias por tu tiempo, pero me sale "error de compilación"
El código esta guardado como Macro o módulo... Si quieres usarlo como acción o botón usalo a partir del
Application.ScreenUpdating = False hacia abajo...
