
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



