If two cells are different

[DaleKeel]

I paste in a number in a cell that is linked to cell I4 (so that changes I4 cell's number) Then I paste the same number from a different location in another cell that is linked to cell E4. So that both cells stay the same all the time. Sometimes I do not paste in the cell that shows up in I4 or I do not paste in the number that shows up in E4 and it causes me a lot of problems when both are out of sync for very long. The pasting operation usually only takes less than 30 seconds but I do this often every workday. By having an alert that tells me "Something if Wrong" once I can correct the situation before proceeding on to the next operation. But I only need to hear it played once.

I would like to have a marco that

Any time cell I4 is different than cell E4 for 60 seconds would sound alert located in windows media folder by the name wrong.wav
Play alert only once.

Thanks much.

Dale

 

[Yongle]

In that case try this:

Delete the 2 subs in ThisWorkbook and replace with code below
- amend "Name of Sheet"

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    If Sh.Name = "Name of Sheet" Then Call PlaySound
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Call PlaySound
End Sub

This combination should trigger
- whenever the formula in either cell is recalculated
- and whenever you move to a new cell in the workbook (providing the second warning required)

 

[mole999]

I'm confused about the formula bit, but anyhow my thoughts were that you were running VBA many times to alert a non visible sheet. If you have two empty visible cells next to each other, them one could be =E4 and the other =Sheet(I4) and you have a direct visual comparison. adding timer loops that only occur after a time to alert you that you have a change ..........................

The lesson we all learn is to be as upfront about the requirement to start with, so that many hours aren't expended adapting to that which is stated and then rejected (the car with no wheels won't drive)