Worksheet Change Only Run Upon Actual New Data

**djfatboyfats** · 08-27-2014, 06:13 AM

Good morning,

I'm running this code to send me an email when a value in my linked database changes which is set to auto refresh every 5 minutes, however this code will run each time the data source is refreshed and no specifically when there is new data, it could be the same data but refreshed.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("B2:C2")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Display a message when one of the designated cells has been
        ' changed.
Sheets("Data").Select
   ' Select the range of cells on the active worksheet.
   With Sheets("Data").Range("B1:E2")
   ActiveSheet.Range("B1:E2").Select
   End With
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      '.Introduction = ""
      .Item.To = "[email protected]"
      .Item.Subject = "[Auto Mailer] - New Card - " & Format(Date, "ddmmyy")
      .Item.Send
   End With
        MsgBox "Cell " & Target.Address & " has changed."
       
    End If
End Sub

This is what i want to happen if possible;

Example: At 10:00 my data source refreshes and I have an entry in B2 as Test 1 > Send Email
At 10:05 my data source refreshes and I have an entry in B2 as Test 1 > Don't send as already sent
At 10:10 my data source refreshes and I have an entry in B2 as Test 2 > Send Email

Thanks in advance

DJ

**Bernie Deitrick** · 08-27-2014, 11:57 AM

You need to have a storage area for values, say AB2:AC2, where you can compare the previous values to the current values. If they differ, send the mail and update the stored value, like

If Range("AB2").Value <> Range("B2").Value Or Range("AC2").Value <> Range("C2").Value Then
'Data has changed, so update the stored values and send the mail
Range("AB2").Value = Range("B2").Value
Range("AC2").Value = Range("C2").Value
'Code to Send the Mail
End if

Also, the change event may not fire when the data source refreshes, but the calculate event will if you have other cells, say AB1:AC1, with links to the cells of interest:
=B2
and
=C2