Link multiple dropdown lists to always show the same value

[HeebieGeebie]

Hi all!

Your help with this would be greatly appreciated.

I have 2 dropdown lists using the same source. When the value in either List 1 or List 2 is changed via the dropdown, I want the other to change to match.

I've got it working for one using the below VBA code, however, if I repeat the code I end up creating some kind of infinite loop.

Any suggestions?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B3")) Is Nothing Then ActiveSheet.Range("D3") = Range("B3")

'If Not Intersect(Target, Range("D3")) Is Nothing Then ActiveSheet.Range("B3") = Range("D3") <-- This causes infinite loop

End Sub

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  10/17/2022  8:58:56 PM  EDT
Application.EnableEvents = False

    If Not Intersect(Target, Range("B3")) Is Nothing Then ActiveSheet.Range("D3") = Range("B3")
    If Not Intersect(Target, Range("D3")) Is Nothing Then ActiveSheet.Range("B3") = Range("D3")
Application.EnableEvents = True
End Sub

 

[HeebieGeebie]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  10/17/2022  8:58:56 PM  EDT
Application.EnableEvents = False

    If Not Intersect(Target, Range("B3")) Is Nothing Then ActiveSheet.Range("D3") = Range("B3")
    If Not Intersect(Target, Range("D3")) Is Nothing Then ActiveSheet.Range("B3") = Range("D3")
Application.EnableEvents = True
End Sub

Hey, thanks so much for responding. That solution did work initially, however, for some reason it stopped working, I tried closing/reopening, I tried running '
Application.EnableEvents = True' on it's own. Nothing happens when I change the dropdowns.

Do you have any ideas?

 

[My Aswer Is This]

Do you have any other vba code in this same sheet.
If so show me all the code you have in the sheet

 

[HeebieGeebie]

Hey, I'm not sure what went wrong but it seems to be working reliably now!! Thanks so much!

 

[My Aswer Is This]

Hey, I'm not sure what went wrong but it seems to be working reliably now!! Thanks so much!

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.