Currency converter - Enter amount in any currency cell and update other currency cells

[jrickey]

I would like to create a currency converter like the gadget available on the Windows desktop (image below). The idea is to have a table as below and no matter which currency you enter the others will update.

USD	1.28
EURO	1
GBP	.79
RAND	14.1
AUD	1.20

<tbody>
</tbody>

Thank you for the help in advance.

Jack

 

[NeonRedSharpie]

Well, in order to have that type of functionality, you're probably going to be looking at a userform with a drop down. Or, a macro that will cycle through to find the populated cell, and run calcs off of that.

 

[jrickey]

Thanks.

Is there any chance of having this functionality without a dropdown or running a macro?

 

[Michael M]

Short answer is.....No !
Why reinvent the wheel
There are many and varied currency converters for EXcel already out there.
One of them does over 160 currencies
Simply Google......."Excel Currency Converter"


Free Microsoft Excel Currency Converter

 

[jrickey]

I have some code that will do this for cubic yards to cubic meters. It works well. If you change the yards number the meters number updates and if you change the meters number the yards updates. It also highlight the cell of the entered number. I'm not a programmer, but would like to use this for 5-6 currencies. This is the code from an existing spreadsheet:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strRngName As String
' Dim sglRngValue As Single

On Error GoTo Worksheet_Change_Error

strRngName = Target.Name.Name
' sglRngValue = Target.Value
Application.EnableEvents = False
Select Case Right(strRngName, 2)
Case "yd"
GoTo Yd_to_Me
Case "me"
GoTo Me_to_Yd
End Select

Yd_to_Me:
Range("CIMA_me") = Convert_Yd_Me(Range("CIMA_yd"))
Range("CIMA_me").Interior.ColorIndex = 48
Range("CIMA_yd").Interior.ColorIndex = 44
GoTo Exit_Conv

Me_to_Yd:
Range("CIMA_yd") = Convert_Me_Yd(Range("CIMA_me"))
Range("CIMA_me").Interior.ColorIndex = 44
Range("CIMA_yd").Interior.ColorIndex = 48
GoTo Exit_Conv


Exit_Conv:
Application.EnableEvents = True

On Error GoTo 0
Exit Sub