Macro copiar hoja en otra carpeta
Tengo una macro que me copia los campos que necesito en otra hoja del mismo libro (la hoja en la que copia se llama IMP.TRABAJO), esta macro a su vez hace que se imprima esta hoja (IMP. TRABAJO), hasta ahí todo funciona bien.
Lo que quiero hacer es guardar esta ultima hoja en una carpeta distinta llamada "RESPALDO TRABAJO" que se encuentra en la ruta "C:\Users\Amelie Black\Desktop\TALLER\RESPALDO TRABAJOS\", inserte después de la instrucción de impresión el ejem. Que vi de "Luismondelo", la primera vez que lo ejecute funciono sin problema, pero después me daba un error en: 'ActiveWorkbook. SaveAs ruta & nombre, diciendo que no encontraba la ruta, o que el arch estaba siendo utilizado.
Ahora la idea es que cuando realice la copia, vuelva a la hoja de origen llamada "ingreso trabajos" y el cursor se ubique en la celda B5.
Aquí es en donde quiero que ejecute la copia.
ActiveWindow. SelectedSheets. PrintPreview
ExecuteExcel4Macro "PRINT(1,,, 1,,,,,,,, 2,,, TRUE,, FALSE)"
Aqui deberia ir incerto el parrafo copiar para después volver a la hoja de origen.
Sheets("ingreso trabajos").Select
Range("C5").Select
Espero me puedan ayudar.....Gracias
Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
nombre=range("d11").value
ruta = "D:\Mis documentos\PADRE\MIS TRABAJOS\PRESUPUESTOS\factura mano de obra\"
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Range("a3:k62").Copy
workbooks(otro).activate
Sheets(1).select
Range("a1").select
activesheet.paste
activeworkbook.saveas ruta & nombre
activeworkbook.close false
msgbox "Se ha grabado el siguiente archivo:" & chr(13) & nombre
End Sub
1 respuesta
H o l a:
Te anexo la macro actualizada.
Según la macro que pusiste, en la celda D11 vas a poner el nombre del archivo, si la celda está vacía te va a enviar un mensaje.
Sub Macro()
ActiveWindow. SelectedSheets. PrintPreview
ExecuteExcel4Macro "PRINT(1,,, 1,,,,,,,, 2,,, TRUE,, FALSE)"
'Aqui deberia ir incerto el parrafo copiar para después volver a la hoja de origen.
'
'Act. Por. Dante Amor
Application.ScreenUpdating = False
Set l = ThisWorkbook
Set h = Sheets("IMP.TRABAJO")
ruta = "C:\Users\Amelie Black\Desktop\TALLER\RESPALDO TRABAJOS\"
ruta = "C:\trabajo\"
nombre = h.Range("D11").Value
If nombre = "" Then
MsgBox "Pon el nombre en la celda D11"
Exit Sub
End If
h.Copy
Set l2 = ActiveWorkbook
l2.SaveAs ruta & nombre
l2.Close
'Fin.Act.Por.Dante Amor
'
Sheets("ingreso trabajos").Select
Range("C5").Select
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
