# Thread: Cost Value Calculator Thanks: 0 Likes: 0

1. ## Cost Value Calculator

 Cost value (Local currency) Currency Cost value 500 SGD 3664 EUR

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

2. ## Re: Cost Value Calculator

Code:
```Maybe this....UNTESTED
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 = Cells(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 = Cells(r, c - 1).Value
Cells(r, c + 1).Value = Cost * xrate 'here is the error'
r = r + 1
c = c + 1
Loop
End Sub```

3. ## Re: Cost Value Calculator

Alright! I managed to change your code abit. Thanks. (Y)

## User Tag List

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•