Guardar el resultado en otra Hoja si Los Funciones

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

Hola Héctor no entendí como funciona ese macro y haber si puede cuando
ejecute el macro que me cuerda el nombre de la hoja nueva en nuevo libro y
con un nombre que lo tengo en la celda B5 y que se boquea la hoja copiada en
el nuevo libro con una clave solo para que se visualiza nada mas.





Gracias

KM**VE



"Héctor Miguel" escribió en el mensaje
news:

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

hola, K.M. !

... no entendi como funciona ese macro y... si puede cuando ejecute el macro
... guarda... la hoja nueva en nuevo libro y con un nombre que lo tengo en la celda B5
y que se boquea la hoja copiada en el nuevo libro con una clave solo para que se visualiza nada mas.

prueba con la siguiente modificacion, pegando el ejemplo en un modulo de codigo 'normal'
-> suponiendo que 'esa' hoja se llama -> 'especial'
-> suponiendo que la clave [hoja y libro] va a ser -> K.M. *Ve
-> suponiendo que se la vas a enviar a -> ''
-> suponiendo que en el asunto [del e-mail] quieres que se lea -> 'aqui esta el resumen'
=> corrige donde mis supuestos esten equivcados :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=Sub EnviarHojaEspecial()
Dim Clave As String
Clave = "K.M. *Ve"
Worksheets("especial").Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Range("a1").Select
Application.CutCopyMode = False
ActiveSheet.Protect Clave, True, True, True, False
With ActiveWorkbook
.Protect Clave, True, True
.SaveAs Range("b5"), xlWorkbookNormal
.SendMail "", "aqui esta el resumen'"
.Close
End With
End Sub

Hola Héctor gracias por tu ayuda pero la prioridad mía no es cuando enviarlo
por e mail es cuando Quero guardarlo en nuevo libro para enviarlo en e mail,
si es posible el macro que me da la opción de elegir para enviarlo por e
mail o guardarlo en una carpeta especifica, por favor hágame el magro y yo
lo pego a un botón en la hoja y que solo me copia las hojas y yo elijo por
ejemplo hoja 1.



gracias
KM**VE

"Héctor Miguel" escribió en el mensaje
news:

hola, K.M. !

... no entendi como funciona ese macro y... si puede cuando ejecute el
macro
... guarda... la hoja nueva en nuevo libro y con un nombre que lo tengo
en la celda B5
y que se boquea la hoja copiada en el nuevo libro con una clave solo para
que se visualiza nada mas.

prueba con la siguiente modificacion, pegando el ejemplo en un modulo de
codigo 'normal'
-> suponiendo que 'esa' hoja se llama -> 'especial'
-> suponiendo que la clave [hoja y libro] va a ser -> K.M. *Ve
-> suponiendo que se la vas a enviar a ->
''
-> suponiendo que en el asunto [del e-mail] quieres que se lea -> 'aqui
esta el resumen'
=> corrige donde mis supuestos esten equivcados :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=> Sub EnviarHojaEspecial()
Dim Clave As String
Clave = "K.M. *Ve"
Worksheets("especial").Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Range("a1").Select
Application.CutCopyMode = False
ActiveSheet.Protect Clave, True, True, True, False
With ActiveWorkbook
.Protect Clave, True, True
.SaveAs Range("b5"), xlWorkbookNormal
.SendMail "", "aqui esta el
resumen'"
.Close
End With
End Sub

hola, KM !

... la prioridad mia no es cuando enviarlo por e mail es cuando... guardarlo en nuevo libro para enviarlo
... si es posible el macro que me da la opcion de elegir para enviarlo... o guardarlo en una carpeta especifica
... y yo lo pego a un boton en la hoja y que solo me copia las hojas y yo elijo por ejemplo hoja 1

-> unos comentarios 'previos', ya que al efectuar una copia de la hoja que elijas...
es con relacion a tu intencion de 'pegar' botones y asignarles una macro [supongo] -> en cada hoja <= OJO
a) o... las macros [y las claves] 'se van' junto con la hoja [si se trata de botones de la barra 'cuadro de controles']
b) o... los botones 'se van' [pero] SIN los codigos y macros [si son botones de la barra 'formularios'] lo cual... :-(

-> si te parece... haz unas pruebas con el siguiente codigo [el mismo... pero... 'diferente'] :D
primero 'pregunta' si deseas [solo] guardar... o... guardar Y enviar por email o... 'cancelar' la operacion
despues seleccionas la hoja que deseas guardar/enviar
y el codigo restante... hace 'lo propio' ;)

-> se conserva el 'supuesto' de que 'la hoja' tiene el nombre del nuevo libro en la celda 'B5' [y que cada uno es distinto] -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Guardar_Enviar()
Dim Clave As String, Enviar As Boolean
Clave = "K.M. ** Ve"
Select Case MsgBox("Selecciona la opcion de tu preferencia..." & vbCr & _
"Si / Yes =" & vbTab & "Guardar solamente" & vbCr & _
"No =" & vbTab & "Guardar y Enviar" & vbCr & _
"Cancelar:" & vbTab & "Cancelar la operacion", _
vbYesNoCancel + vbInformation, "Seleccionar Hoja para Guardar / Enviar...")
Case vbYes: Enviar = True
Case vbCancel: Exit Sub
End Select
With Application.CommandBars("Workbook Tabs").Controls(16)
If Right(.Caption, 3) = "..." Then .Execute Else .Parent.ShowPopup
End With
ActiveSheet.Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Range("a1").Select
Application.CutCopyMode = False
ActiveSheet.Protect Clave, True, True, True, False
With ActiveWorkbook
.Protect Clave, True, True
.SaveAs Range("b5"), xlWorkbookNormal
If Enviar Then .SendMail "", "aqui esta el resumen'"
.Close
End With
End Sub