You could attach some code to the Worksheet Change that checks to see
if the two cells are equal and if so run some code. This method will
check every time something is entered. I'm sure it needs to be
modified for you needs but should give you a starting point.
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Sheets("Sheet1").Range("A1:B1")
If Sheets("Sheet1").Range("A1") = Sheets("Sheet1").Range("B1") Then
MsgBox "(put code here)"
End If
End Sub
It is not possible for a cell to initiate a macro.
Once workaround would be an event procedure set up (in
Workbook_SheetChange) that monitors a cell and compares its value to
another cell and if true then a macro is called.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Worksheet.Range("A1") = Target.Worksheet.Range("B1") Then
MsgBox "Example"
'' or put a macro name here
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Worksheet.Range("A1") = Target.Worksheet.Range("B1") Then
MsgBox "Example"
'' or put a macro name here
End If
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.