Salvando una hoja

Hola Luis,

'Si hay que crear un nuevo archivo para la copia
Sub test1()
ActiveSheet.Copy
With ActiveSheet.UsedRange.Cells
.Value = .Value
.Parent.SaveAs "c:\prueba.xls"
.Parent.Close
End With
End Sub

'Si ya hay un archivo abierto (p.ej Libro1.xls) a donde copiar
Sub test2()
ActiveSheet.Copy Workbooks("Libro1.xls").Sheets(1)
With ActiveSheet.UsedRange.Cells
.Value = .Value
.Parent.Save
.Parent.Close
End With
End Sub

Saludos,
KL


"Luis Luce" wrote in message
news:

Hola, tengo una problemilla en una hoja de excel le pongo los datos para
hacer un presupuesto y en otra hoja ligo estos datos y los acomodo para
que salga el formato del presupuesto, imprimo la hoja hasta aqui todo
bien. En donde estoy atorado es que tengo que hacer una rutina, macro o
plegaria para poder exportar el presupuesto con los resultados a un
archivo totalmente externo a mi hoja inicial y que estos se desliguen de
las formulas

ojala y me puedan ayudar