Foro Excel

Hola amigos, necesito enviar un rango de una hoja por email, despues de revisar muchas webs y este foro llego a lo siguiente

[excel]
Sub copiadatos()
' se agrega la hoja nueva donde se copiaran los datos
Sheets.Add.Name = "enviar"

'se copian los datos y luego el formato
Sheets("lote1000").Range("envio").Copy
Sheets("enviar").Range("A1").PasteSpecial xlPasteValues
Sheets("enviar").Range("A1").PasteSpecial xlPasteFormats

' envio de la hoja por correo
Sheets(Array("enviar")).Select
Sheets(Array("enviar")).Copy
ChDir "c:\"
ActiveWorkbook.SaveAs Filename:="c:\copia3.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
ActiveWorkbook.SendMail ("grupodecontactos")
Sheets("enviar").Select

'al final se borra la "enviar" actual para que no existe prob. de formato
Application.DisplayAlerts = False
Sheets("enviar").Delete
Application.DisplayAlerts = True
End Sub
[/excel]

Como ven el codigo funciona en parte , estoy enviando por correo el libro completo cuando solo necesito enviar una hoja.......

agradeceria una ayuda....

Segun la version de excel que manejes, al menos un servidor XP, existe un boton que hace la funcion de enviar por correo electronico, el cual te da la opcion de enviar solo la hoja o bien libro completo.
Igualmente en el menu archivo en la seccion enviar a .... tienes varias opciones, las has intentado hacer ?
O necesitas algun codigo en particular para tal efecto ?
Para lo que solicitas con lo mencionado sobra
Saludos

Si algo falta intenta una busqueda aqui y nos expones tus dudas de una manera mas explicita :=)

http://search.microsoft.com/?mkt=es-ES

Saludos

Igual puedes ver este codigo mas simple:
Cómo enviar rango de celdas en un mensaje de correo electrónico utilizando Visual Basic para aplicaciones en Excel 2002 o Excel 2003
Resumen
En Microsoft Excel, puede enviar una parte de un libro como un mensaje de correo electrónico. Este Este artí­culo contiene código de ejemplo de Microsoft Visual Basic para aplicaciones que muestra cómo automatizar enviar rango de celdas en un mensaje de correo electrónico.
http://support.microsoft.com/kb/816644/es

Gracias... leere con detenimiento los articulos y luego les cuento...

muchas gracias...

Revise el codigo

Sub Send_Range()

' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:B5").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "E-Mail_Address_Here"
.Item.Subject = "My subject"
.Item.Send
End With
End Sub

que aparece en uno de los enlaces y envia un rango por email , pero el problema esta en que necesito enviar la hoja como documento adjunto....el codigo que yo antepuse al comienzo realiza eso PERO envia el libro completo cuando solo necesito enviar una hoja....

Gracias por el tiempo que gastan en las consultas como estas....

¿?

Mas tarde lo vemos

Saludos

rhernandezb, este codigo lo uso para mandar un rango de una hoja por mail, adaptalo a tu necesidad, creo que es lo que buscas.

Private Sub CommandButton7_Click()

Dim respuesta As String

respuesta = MsgBox("A GRABADO LOS DATOS ANTES DE ENVIAR EL EMAIL?", vbYesNo, Title:="CONSULTA")

If respuesta = vbYes Then


Sheets("Hoja1").Select
Range("P1:AA306").Select
ActiveSheet.Copy
Range("a1").Select
ActiveWorkbook.SendMail Recipients:="nnnnnnn@gggggg.com.ar", Subject:="Enví­o Legajo de Alta"
ActiveWorkbook.Close savechanges:=False
Sheets("hoja1").Select
Range("E15").Select

Else

End If

If respuesta = vbNo Then

MsgBox prompt:="El programa no se cerrará", Title:=" INFORMACION "
Exit Sub

End If

End Sub

Muchas gracias.... el codigo me ha funcionado de maravillas.....