Sub for currency converter

[Peterlpv]

SO I HAVE THREE COLUMNS THE ONE WHICH TELL ME THE CURRENCY, THE ONE THE PRICE IN THAT CURRENCY ANF FINALLY THE ONE WITH THE ASJUSTED PRICE( WHICH IS MY OUTPUT)

NOW IF THE THE CURRENCY IS "peso" the output is the same as the second row (price), if the currency is dolar. (price) must be multiplied by 13.

all this must be done in one single sub with a "for each"

[TABLE="width: 217"]
<tbody>[TR]
[TD]Currency[/TD]
[TD]Price in original currency[/TD]
[TD]Adjusted price dollar[/TD]
[/TR]
[TR]
[TD]peso[/TD]
[TD]25[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]25[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]peso[/TD]
[TD]12[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]1.5[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]peso[/TD]
[TD]40[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]peso[/TD]
[TD]28[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]19[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]39[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]5[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]20[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]49[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]peso[/TD]
[TD]45[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]dolar[/TD]
[TD]4[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
thanks in advance

 

[saltkev]

Try this

Public Sub currency_Con()
Application.ScreenUpdating = False
Static curr, lr, lrang
'##### Define Working Range #####

lr = Sheets("sheet1").Range("a1000000").End(xlUp).Row
      
lrange = Sheets("sheet1").Range("a2:a" & lr).Address(False, False)
 
For Each curr In ActiveSheet.Range(lrange)
If curr > "" Then
        If curr.Value = "peso" Then
        
        curr.Offset(0, 2).Value = curr.Offset(0, 1).Value
        
        ElseIf curr.Value = "dolar" Then
        
        curr.Offset(0, 2).Value = curr.Offset(0, 1).Value * 13
        
        
        End If
        
Else

End If
Next curr
 
End Sub