Copiar y guardar dos hojas desde documento para macros a xlsx

Tengo en un documento habilitado para macros el siguiente código en la hoja de calculo "REPORTE MENSUAL":

1 Respuesta

Respuesta
1

Te anexo la macro con los cambios
Sub CREAREPORTE()'Modificado.Por.DAMSheets("CAPTURA").ActivateMiReporte = Range("O7")Set l1 = ThisWorkbookSheets("REPORTE MENSUAL").Copy Cells.Copy Range("A1:E100").Select Selection.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=FalseSet l2 = ActiveWorkbook l1.Activate Sheets("BITACORA DE RECIBOS").Copy After:=l2.Sheets(l2.Sheets.Count) Cells.Copy Range("A1:M1000").Select Selection.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.DisplayAlerts = FalseActiveWorkbook.SaveAs Filename:=MiReporte & " REPORTE MENSUAL.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=Falsel1.ActivateMsgBox "COPIA TERMINADA", vbInformation, "COPIAR"End Sub
Saludos. DAM
No olvides finalizar la pregunta.

La pregunta no admite más respuestas

Más respuestas relacionadas