Guardar el resultado en otra Hoja si Los Funciones

13/12/2005 - 02:55 por KM ** Ve | Informe spam
Hola amigos,Tengo una hoja de Excel con muchas funciones y resultado de otra
hoja, Quero hacer una función para que guardes un Resultado de ciertas celda
de la hoja de resultado en Orta hoja nueva o enviarla por E mail cuando le
digo que guardes la hoja que me hace la pregunta enviar por E mail o guardar
en una carpeta especifica.



Gracias

KM**VE
 

Leer las respuestas

#1 Héctor Miguel
13/12/2005 - 19:58 | Informe spam
hola, KM !

... una hoja... con muchas funciones y resultado de otra hoja
... hacer... que guarde un Resultado de ciertas celda de la hoja de resultado en Orta hoja nueva o enviarla por E mail
cuando le digo que guardes la hoja que me hace la pregunta enviar por E mail o guardar en una carpeta especifica.



en tanto comentas los detalles como 'ciertas celdas'... te paso dos ejemplos al final
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
-> son macros en un modulo de codigo 'norma'

op1: copiar 'esa' hoja a un libro nuevo... enviarlo por e-mail... y cerrar [SIN guardar] el libro 'nuevo'...
Private Sub EnviarHoja()
Worksheets("Pon aqui el nombre de la hoja").Copy
ActiveWorkbook.SendMail "Pon aqui la direccion de correo", "y el Asunto"
ActiveWorkbook.Close False
End Sub

op2: copiar 'esa' hoja a un libro nuevo... 'convertir' a valores... enviarlo por e-mail... y cerrar [SIN guardar] el libro 'nuevo'...
Private Sub EnviarHoja()
Worksheets("Pon aqui el nombre de la hoja").Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
[a1].Select
Application.CutCopyMode = False
ActiveWorkbook.SendMail "Pon aqui la direccion de correo", "y el Asunto"
ActiveWorkbook.Close False
End Sub

Preguntas similares