Cost value (Local currency) | Currency | Cost value |
500 | SGD | |
3664 | EUR |
<tbody>
</tbody>
So I'm stuck in a situation whereby, I'm supposed to convert the cost value (local currency) into cost (in USD).
I had made a button to run the VBA Macro to calculate the values and paste back into the table.
Here's my coding:
Sub Costvalue()
Dim Country As String, Cost As Double, total As Double, xrate As Double
Dim r As Integer, c As Integer
r = 9
c = 10
'Cell(9,10) is at value 500.'
Country = ActiveCell(r, c)
Do While Country <> ""
If Country = "SGD" Then
xrate = 0.74
ElseIf Country = "EUR" Then
xrate = 1.13
ElseIf Country = "CHF" Then
xrate = 1
ElseIf Country = "GBP" Then
xrate = 1.29
End If
Cost = ActiveCell(r, c - 1).Value
Range(r, c + 1).Value = Cost * xrate 'here is the error'
r = r + 1
c = c + 1
Loop
End Sub