Mandar mediante macro una hoja por e-mail

KL
si te envio la hoja y la pudiste arreglar, ojala puedas compartir la
respuesta yo tambien tengo una necesidad similar

"KL" escribio:

Imanol,

Si es tan urgente, enviame la hoja y te lo arreglo en unos minutos.

KL

"Imanol" wrote in message
news:
x-no-archive:yes

He probado el codigo de abajo y me da el error:
Error de comprobacion, error de sintaxis.
Lo mismo en este que en otro codigo que me has mandado
para otra cosa muy importante me indica lo mismo.
Este en concreto lo necesitaria para ayer.
Gracias y un saludo.

Imanol,

Prueba el codigo de abajo. Ojo - es posible q te salte la ventana de
seguridad de tu programa de correo para cada uno de los mensajes (60) y
tengas q pulsar Aceptar 60 veces, asi empieza con un par de hojas. Ademas
este codigo intentara enviar todas las hojas presentes en el libro, por
lo
cual si tienes hojas q no quires enviar tendras q modificar el macro.

Saludos,
KL
'-Inicio Codigo-
Sub EnviarHojas()
Dim Direccion As String
Dim Tema As String
For Each s In ThisWorkbook.Worksheets
s.Copy
Direccion = s.Range("C3")
Tema = s.Name
ActiveWorkbook.SendMail Direccion, Tema, True
Next s
End Sub
'-Fin Codigo-

"Imanol" wrote in message
news:
x-no-archive:yes

Hola. Una pregunta para mi, muy necesaria (por la comodidad) de resolver.
Tengo en un libro unas 60 hojas de calculo. En cada hoja (cada una se
llama
de
una manera diferente), en la celda "C3" esta una direccion e-mail
(diferente
en
cada hoja).
Quiero que me mande esa hoja como datos adjuntos (no se si es asi como se
dice)
a la direccion e-mail que esta en la celda "C3" de su hoja.
Y asi con todas. ? es posible ?. Gracias y un saludo.