VBA Msg Box only appear on single sheet

[WillBurge]

Hi - I have a series of combo boxes which change values in a table. I have multiple versions of the same combo box on different sheets, linked to the same cell.

On ONE of the sheets where these comboboxes reside I would like to display a warning message that when changed, the following tables have also changed.

I have the message box working fine on different choices, great.

However when the combobox is changed from another sheet, the message pops up. I only want to show this box on a single sheet. I have the message box running from a copy of the drop list on the sheet specied using the worksheet_calculate function in vba. Can anyone please advise o this?


Many thanks

 

[lukeh]

If I understand you correctly, I think you could check if the name of the current sheet the users on matches the name of the sheet you want the message displayed on and only show the message box if it is.

You could quickly accomplish that with something like:

If Application.ActiveSheet.Name = "Your_Sheet_Name" Then
MsgBox "Your Message"
End If

 

[WillBurge]

That works perfectly, thank you kindly.

One more question....

I have 2 linked cells that change, which activate the message box. So the code looks like

If Cell a1 = 1 then msg "blah"
If Cell a1 = 2 then msg "blah"
If Cell a1 = 3 then msg "blah"

If Cell b1 = 1 then msg "blah"
If Cell b1 = 2 then msg "blah"
etc.

However, when just one of these values changes I have a message box appearing for both the true If statements, when I only want a message box for the cell that has changed. Is this possible at all?

 

[lukeh]

Glad it worked for you.

As for your second question I don't think there's any easy way to do that. One possible solution is in the 4th post here:

http://www.mrexcel.com/forum/showthread.php?41611-Trigger-macro-if-value-of-linked-cell-changes

If you take a quick look at the code example there I think that should do what you want.

You could use a slightly modified version of that code and perhaps change the worksheet_calculate event to something like this:

Private Sub Worksheet_Calculate() 

If Range("A1").Value <> MyA1 Then     
'A1 has changed... show the MsgBox only for this
MyA1 = Range("A1").Value
     
Select Case Range("A1").Value

Case 1
MsgBox "A1 changed to 1"

Case 2
MsgBox "A1 changed to 2"

Case 3
MsgBox "etc."

End Select
End If 

If Range("B1").Value <> MyB1 Then     
'B1 has changed... show the MsgBox only for this
MyB1 = Range("B1").Value
     
Select Case Range("B1").Value

Case 1
MsgBox "B1 changed to 1"

Case 2
MsgBox "B1 changed to 2"

Case 3
MsgBox "etc."

End Select
End If

End Sub

Then just make sure you declare both MyA1 and MyB1 in a general module as well as initializing both of them in the Workbook_Open event. Hopefully this should do the trick for you.