Jump to content

Karlinhosmen

Pro Member
  • Content Count

    2
  • Joined

  • Last visited

About Karlinhosmen

  • Rank
    Newbie

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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
  2. 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
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png