In this tutorial, we utilize Copilot to script an email alert that is triggered when data in an Excel column changes.
---
Task ID Owner Task Name Start Date Due Date Status
T101 Moe Task 1 15-Jul 20-Jul Completed
T102 Joe Task 2 14-Jul 19-Jul In Progress
T103 Cheryl Task 3 13-Jul 18-Jul Completed
T104 Tobi Task 4 7-Jul 12-Jul In Progress
T105 Carol Task 5 2-Jul 7-Jul Completed
T106 Moe Task 6 5-May 16-May Completed
----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StatusRange As Range
Set StatusRange = Me.Range("F2:F7")
If Not Intersect(Target, StatusRange) Is Nothing Then
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
"Add your email here"
.To = "your email"
.Subject = "Status Changed in Excel Sheet"
.Body = "A status value has changed in the Excel sheet."
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub
