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

jrickey

New Member
Joined
Apr 17, 2009
Messages
15
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
 

Some videos you may like

Excel Facts

What does custom number format of ;;; mean?
Three semi-colons will hide the value in the cell. Although most people use white font instead.

NeonRedSharpie

Well-known Member
Joined
Jul 14, 2014
Messages
1,678
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

New Member
Joined
Apr 17, 2009
Messages
15
Thanks.

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

Michael M

Well-known Member
Joined
Oct 27, 2005
Messages
19,237
Office Version
  1. 2013
Platform
  1. Windows
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

New Member
Joined
Apr 17, 2009
Messages
15
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
 

Watch MrExcel Video

Forum statistics

Threads
1,108,624
Messages
5,523,968
Members
409,547
Latest member
AW2020

This Week's Hot Topics

Top