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

[Karlinhosmen]

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

[Abraham Valencia]

Hola

Sugiero leer todo esto y después de ir probando, pues regresar con alguna pregunta puntual:

Enlace 1

Enlace 2

Enlace 3

Enlace 4

Saludos

[Karlinhosmen]

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