archivo guardado con macro queda dañado

1 post / 0 nuevos
DudaPorEmail
Imagen de DudaPorEmail
Offline
última acción: Hace 1 año 6 meses
Nivel 1 - 200 puntos
alta: 15/10/2013 - 07:56
Puntos: 823
archivo guardado con macro queda dañado

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


 

Etiquetas: