YTL'yi USD'ye çeviren makro

[YaPaY]

Öncelikle soru daha iyi anlaşılabilsin diye bir ekran görüntüsü veriyorum:

Yapmak istediğim şey YTL olan tüm sütünların karşısındaki fiyat kısmını mesela 1,30 ile çarpıp yeni değeri eskisiyle değiştirmek ve YTL olan kısmın USD olark değiştirilmesi.

Yardım edebilecek olan varmı?

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Sub USD()
For i = 2 To Cells(65536, "F").End(xlUp).Row
    If Cells(i, "F").Value = "YTL" Then
        Cells(i, "F").Value = "USD"
        Cells(i, "E").Value = Cells(i, "E").Value * 1.3
    End If
Next
MsgBox "İŞLEM TAMAMLANDI"
End Sub

 

[YaPaY]

Aşağıdaki kodlar işinizi görür.

Sub USD()
For i = 2 To Cells(65536, "F").End(xlUp).Row
    If Cells(i, "F").Value = "YTL" Then
        Cells(i, "F").Value = "USD"
        Cells(i, "E").Value = Cells(i, "E").Value * 1.3
    End If
Next
MsgBox "İŞLEM TAMAMLANDI"
End Sub

Çalıştı, çok teşekkür ederim hocam.

Saygılar

 

[Orion1]

Çalıştı, çok teşekkür ederim hocam.

Saygılar

Rica ederim.İyi çalışmalar.