Link multiple dropdown list to same reference

[IronM]

Hi,

I know there's been another question similar to this (link), however the OP was more advanced in his solution.

Here's my problem:
I have an workbook with several sheets (Sheet1, Sheet2, Sheet3). I created a dropdown list in A1 cell with 3 currencies: EUR, USD, GBP using Data Validation --> List and adding them manually.

I named A1 cell "currency" and used that reference throughout the workbook. When I change the currency, all my figures change acordingly.

All good until here. However, for the purpose of a faster check, I need to switch back and forth between currencies and see the result very fast (without going to sheet1 cell A1 and then come back in sheet3 to see the result)

So I need to add the same dropdown on all 3 sheets that will have basically the same effect. Wherever I change the currency type, to change on all 3 dropdowns and change my figures accordingly.

Is there a way to achieve this?

Thank you!!

 

[MCLIFTO8]

Yes, building off @My Answer Is This's solution just put a Worksheet_Change event to edit the value of your other cells.

sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ThisWorkbook.Sheets("Sheet2").Range("A1").Value2 = ActiveSheet.Range("A1").Value2
    ThisWorkbook.Sheets("Sheet3").Range("A1").Value2 = ActiveSheet.Range("A1").Value2
    Application.EnableEvents = True
End Sub

sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value2 = ActiveSheet.Range("A1").Value2
    ThisWorkbook.Sheets("Sheet3").Range("A1").Value2 = ActiveSheet.Range("A1").Value2
    Application.EnableEvents = True
End Sub

sheet3

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value2 = ActiveSheet.Range("A1").Value2
    ThisWorkbook.Sheets("Sheet2").Range("A1").Value2 = ActiveSheet.Range("A1").Value2
    Application.EnableEvents = True
End Sub

 

[IronM]

Awesome!!! Thank you very much kind sir. You made my life just a little bit easier