Visual Basic para Aplicaciones - AYUDA con

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA con

Publicado por raul (1 intervención) el 05/07/2006 08:51:22
Tengo una hoja de Excel (hoja1) dentro de un libro (libro1) con unos datos y una serie de formulas introducidas. Lo que quiero hacer es que cuando establezca el área de impresión de la hoja1 se genere otro hoja (hoja2) en otro libro (libro2) con el mismo nombre pero en otra ubicación y que en este nuevo libro no aparezcan las formulas. Todo esto me gustaría realizarlo mediante una macro de Excel.

Un saludo y gracias por adelantado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA con

Publicado por Feche (2 intervenciones) el 07/07/2006 17:40:25
Mirá Raúl por lo que entiendo. El establecer un área de impresión no generá ningun evento, lo que si te genera un evento es imprimir, por lo que podés hacer en el evento BeforePrint del libro lo que vos querés.

Es decir en BeforePrint

Workbooks.Add
sheets("Hoja2"). Select
'te recomiendo que lo grabes con algun nombre
activeworkbook.save as filename:=[nombre_archivo_nuevo]
'luego vuelves el foco al libro original
'seleccionas el área que deseas copiar
windows([archivo_original).activate
range(rango que deseas copiar)
windows([nombre_archivo_nuevo]).activate
'Selecciona la celda donde quieres pegar los datos
Range([celda]).activate
Selection.Pastespecial Paste:=XlPasteValues, Operation:=XlPastespecialOperationnone
'La línear anterior te pegará los valores únicamente

Espero que te sirva mi ayuda

Salu2

Feche
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar