Currency Converter Please Help!!!

Submit a copy of your workbook

which cell will determine the units and what cells need to be changed when a unit is changed?

Here is a simple example of how you could create buttons as you indicated to change from one type to another. Given a time investment, you could incorporate a userform, comboboxes, or a more advanced system.

Sub Dollars_to_Pounds()
Dim ws As Worksheet:    Set ws = Sheets("Input")
Dim rng As Range, c As Range
Dim conversionFactor As Double

conversionFactor = 0.66

Set rng = Union(ws.Range("B12"), ws.Range("B19:B20"), ws.Range("B27"), ws.Range("F22"), ws.Range("I22"))
ws.Range("E7").ClearContents 'cause you have something odd going on

For Each c In rng
    c.Value = c.Value * conversionFactor
    c.NumberFormat = "[$£-809]#,##0.00"
Next c
    
End Sub

Sub Pounds_to_Dollars()

Dim ws As Worksheet:    Set ws = Sheets("Input")
Dim rng As Range, c As Range
Dim conversionFactor As Double

conversionFactor = 1 / 0.66

Set rng = Union(ws.Range("B12"), ws.Range("B19:B20"), ws.Range("B27"), ws.Range("F22"), ws.Range("I22"))
ws.Range("E7").ClearContents 'cause you have something odd going on

For Each c In rng
    c.Value = c.Value * conversionFactor
    c.NumberFormat = "$#,##0.00"
Next c

End Sub

Hi
Thank you so much for that above quite do what it was hoping I am just very confused I guess. I suppose I want to already have values in cells B19,B20,B27,F22,I22 in the input page which will be in dollars then I want to select the currency I want in cell E7 then click a button on the input page that would convert cells B19,B20,B27,F22,I22 to the currency I selected. I write something I think might work but I may not be on the right track can you please help me.

Sub CommandButton1_Click_marvin()
Dim ws As Worksheet:    Set ws = Sheets("Input")
Dim rng As Range, c As Range
If ws.Range("E7") Like "*Euro*" Then
ws.Value ("Z5") * 2
End If
End Sub

I was thinking I could just have a bunch of IF statments that would just multiple the cells by the appropriate figure I need. Any help would be great.
Thank you