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>

Currency-Gadget.jpg


Thank you for the help in advance.

Jack
 

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.
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.
 
Upvote 0
Thanks.

Is there any chance of having this functionality without a dropdown or running a macro?
 
Upvote 0
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
 
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,217,386
Messages
6,136,289
Members
450,002
Latest member
bybynhoc

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top