How to convert currency formatting to "no formatting" using VBA

[Brutusar]

Hi everyone,

I have a sheet with prices in currency format in col A. I need to loop thru it and get the currency (three letter code) in col B, and the sum in col C.
Does someone have a good ide on how to best to that?

Eks:

A	B	C
$65.60	USD	65.60
€25.50	EUR	25.50
£10.00	GBP	10.00

 

[shinigamilight]

If u want the "USD" instead of just the symbol you can do a vlookup by getting all the symbols and their codename.

Sub Currency_101()
        
        Dim rng As Range
        For Each rng In Selection
                rng.Offset(0, 1) = Left(rng.Text, 1)
                rng.Offset(0, 2) = rng.Value2
        Next rng

End Sub

 

[Skybluekid]

Sub Currencytext()

Dim rng As Range
Dim LU As Variant
Dim Curr As String

For Each rng In Selection
LU = Left(rng.Text, 1)
Curr = Application.VLookup(LU, Sheet3.Range("E7:F9"), 2, 0)
rng.Offset(0, 1) = Curr
rng.Offset(0, 2) = rng.Value2
Next rng

End Sub

Book1
	A	B	C	D	E	F
6
7	$65.60	USD	65.60		$	USD
8	€ 25.50	EUR	25.50		€	EUR
9	£10.00	GBP	10.00		£	GBP
10
Sheet3