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

perdon, el codigo anterior tenia un error. aqui va el bueno:

Sub test1()
ActiveSheet.Copy
With ActiveSheet.UsedRange.Cells
.Value = .Value
End With
With ActiveWorkbook
.SaveAs "c:\prueba.xls"
.Close
End With
End Sub

Sub test2()
ActiveSheet.Copy Workbooks("Book5.xls").Sheets(1)
With ActiveSheet.UsedRange.Cells
.Value = .Value
End With
With ActiveWorkbook
.Save
.Close
End With
End Sub



"KL" wrote in message
news:

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

Graba una macro copiando el rango con los datos y despues pegado especial /
valores

"Luis Luce" escribió en el mensaje
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

muchas gracias en este momento lo pongo en mi hoja y pues luego les platico
pero muchas gracias



"Manuel Romero" escribió en el mensaje
news:

Graba una macro copiando el rango con los datos y despues pegado especial
/ valores

"Luis Luce" escribió en el mensaje
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