Jump to content
Karlinhosmen

Enviar email automáticamente cuando una celda supera un valor predeterminado.

Recommended Posts

Hola.

Supongamos que tengo una tabla que adjunto, en la cual quiero que al superar un valor superior al 10% las celdas de la colunna "I", me envíe un email una sola vez a una dirección de correo, adjuntando los rangos A1:P1 y la fila en la que se a superado el 10%.

Gracias.

AyudaExcel.xlsm

Share this post


Link to post
Share on other sites

Hola.

Inserté esta Macro, pero no consigo que se ejecute automáticamente cuando cambia el valor en alguna de las celdas de las colunnas J, K o L en más / menos un 10 %.

Private Sub worksheet_change(ByVal target As Range)
If target.Address = K2 <= 11 Then
Call Enviar_Rango_a_Destinatario_de_correo
End If
Sub Enviar_Rango_a_Destinatario_de_correo()

        

    'Seleccionamos el rango de celdas a enviar Select

    ActiveSheet.Range("A2:R2").Select

2
    ' Show the envelope on the ActiveWorkbook.

    ActiveWorkbook.EnvelopeVisible = True

     

    'Llamamos al envío...

    With ActiveSheet.MailEnvelope

       .Item.To = "ejemplo@gmail.com"

       '.Item.cc = " ejemplo@gmail.com"           'con copia a...

       '.Item.bcc = "ejemplo@gmail.com"      'con copia oculta a...

       .Item.Subject = "Asunto: Envío rango de Excel por email"

       .Introduction = "Ejemplo de rango adjunto con formato..."

       .Item.Send

    End With

    End Sub

Gracias por tu respuesta.

Saludos.

Consulta.xlsx

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png