Seleccionar rango de celdas y enviarlas por correo

akukso · el 31 de diciembre

Muy buenos dias estoy intentanto realizar un excel que me permita copiar aquel rango de celdas seleccionado con el mouse. No establecidas previamente como ej: A1:K5, Sino seleccionar el rango que yo deseo. En el archivo adjunto quiero marcar con el mouse las alertas verdes y luego con la macro copiarlas y enviarlas por correo.

Alertas de Servicio2013.rar

Antoni · el 31 de diciembre

Copia la selección a una hoja de trabajo y con la hoja seleccionada ejecuta esta macro.

Evidentemente, debes ajustar los datos de la macro a tus necesidades.

Sub EnviarEmail()

  With ActiveSheet.MailEnvelope

     .Introduction = "Introducción"

     .Item.to = "destinatario@emailserver.com"

     .Item.Subject = "Asunto"

     .Item.Send

  End With

End Sub

[/CODE]

akukso · el 31 de diciembre

Realmente el proceso de enviarlo al correo no es el problema sino mas bien el como copiar el rando que yo selecciono con el mouse

Antoni · el 31 de diciembre

¿ Con Ctrl+c/Ctrl+v ?

Pon un ejemplo concreto.

akukso · el 31 de diciembre

Lo que no puedo lograr es del rango B2:K69 seleccionado con el mouse internamente en una macro tome ese rango ya seleccionado con el mouse para luego siempre con la macro enviarlo por correo.