buena tarde,
tengo la siguiente macro
Workbooks.Open "C:\Users\contrerasma\Desktop\DESBORDE\48\RETENCION48.xlsx"
ActiveSheet.Unprotect ("2611")
ThisWorkbook.Activate
Worksheets(2).Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$U$1").AutoFilter Field:=21, Criteria1:="48"
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("RETENCION48.xlsx").Activate
Worksheets(1).Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll
ActiveSheet.Protect ("2611")
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
ThisWorkbook.Activate
Selection.AutoFilter
la macro corre perfecto copia una informacion de un archivo en excel abre
otro archivo en excel pega y guarda, pero cuando abro el archivo donde se
guardo la informacion el archivo dice que ocurrio error y repara el archivo
dañandolo
michael contreras