¿Cómo detectar cambios en celdas y activar el envío automático?

Para detectar cambios en celdas y activar el envío automático en Excel, puedes utilizar el lenguaje de programación VBA (Visual Basic for Applications). A continuación, te explicaré cómo hacerlo paso a paso:

     Private Sub Worksheet_Change(ByVal Target As Range)
         ' Especifica el rango que desea monitorear
         Dim RangoMonitoreado As Range
         Set RangoMonitoreado = Me.Range("A1:A10") ' Cambia A1:A10 según tus necesidades

         ' Verifica si el cambio ocurrió dentro del rango monitoreado
         If Not Application.Intersect(Target, RangoMonitoreado) Is Nothing Then
             ' Llama a la subrutina para el envío automático
             EnviarCorreoAutomatico
         End If
     End Sub
     Sub EnviarCorreoAutomatico()
         Dim OutlookApp As Object
         Dim OutlookMail As Object

         ' Crear objeto de aplicación de Outlook
         Set OutlookApp = CreateObject("Outlook.Application")
         Set OutlookMail = OutlookApp.CreateItem(0) ' 0 es para correo

         With OutlookMail
             .To = "correo@ejemplo.com" ' Cambia por la dirección de correo destino
             .CC = "" ' Agrega CC si es necesario
             .BCC = "" ' Agrega BCC si es necesario
             .Subject = "Notificación de cambio en la hoja de cálculo"
             .Body = "Se ha detectado un cambio en las celdas monitoreadas."
             ' .Attachments.Add "C:Pathtofile" ' Añade archivos adjuntos si es necesario
             .Send
         End With

         ' Liberar los objetos
         Set OutlookMail = Nothing
         Set OutlookApp = Nothing
     End Sub
  • Abrir el Editor de VBA:
    • Abre Excel y el archivo en el que deseas trabajar.
    • Presiona `ALT + F11` para abrir el Editor de VBA.
  • Seleccionar la Hoja de Cálculo:
    • En el panel de proyectos (normalmente en el lado izquierdo), busca y selecciona la hoja de cálculo donde deseas detectar cambios.
  • Insertar Código para Detectar Cambios:
    • Haz doble clic en el nombre de la hoja para abrir su módulo de código.
    • Escribe el siguiente código para detectar cambios:
  • Crear la Subrutina para Enviar Correos:
    • Ahora necesitas definir la subrutina que enviará el correo electrónico. Dependiendo de tu cliente de correo, podrías configurarlo de diferentes modos.
    • A continuación, un ejemplo para enviar un correo utilizando Outlook:
  • Guardar el Archivo:
    • Guarda tu archivo como un libro habilitado para macros con extensión `.xlsm`.
  • Probar el Código:
    • Regresa a Excel e intenta realizar un cambio en las celdas que estás monitoreando. Si tu Outlook está configurado correctamente, debería enviarse un correo automáticamente.

Notas importantes:

  • Asegúrate de que Outlook está instalado y configurado en el mismo equipo.
  • Habilita macros en Excel para que el código funcione.
  • Debes ajustar las direcciones de correo y los detalles del envío según tus necesidades.
  • Considera las políticas de seguridad y permisos para el envío de correos de forma automatizada en tu organización.

Conoce nuestros servicios

Conoce nuestra tienda

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Deja un comentario