|
|
Si, pero por favor indicame en esta macro donde inserto la linea y que tendria que quitar de esta macro.-
Sub GuardaHistPre()
'Copia a otro archivo la hoja de presupuesto ya terminado con los valores sin formulas
Carp_dest = "c:\temp"
Arch_Desd = "historial"
Hoja_orig = "Datos"
With Application
.StatusBar = "Actualizando historial. Un momento, por favor"
.ScreenUpdating = False
.Calculate
Carp_dest = Carp_dest & IIf(Right(Carp_dest, 1) = "\", "", "\")
Arch_Desd = Arch_Desd & IIf(Right(Arch_dest, 4) = ".xls", "", ".xls")
Workbooks.Open Carp_dest & Arch_Desd
ActiveWindow.ActivatePrevious
Sheets(Hoja_orig).Copy After:=Workbooks(Arch_Desd).Sheets(Workbooks(Arch_Desd).Sheets.Count)
Cells.Copy
Cells.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("A1").Select
Sheets(Sheets.Count).Name = "" & Sheets.Count
'Sheets.Add Before =: Sheets("final")
ActiveWorkbook.Close True
.StatusBar = False
.ScreenUpdating = True
|