EĞER İLE $ VE EURO'YU TL'YE ÇEVİRMEK

[cocoa35]

İyi akşamlar üstatlar, ek'li örnek dosyada görüldüğü üzere çeşitli ekipmanlara ait fiyat tablosu var, bu Tabloda C Sütununda "Fiyat" bölümünde ekipman fiyatlarının bir kısmı web'den TL olarak geliyor bir kısmı "$19,00" gibi bir kısmı ise "230,00€" olarak geliyor. Benim istediğim D Sütunu "TL" Bölümüne C Sütunundaki TL ise aynısını alsın eğer "$" ise E2 'deki Dolar kuru ile çarpıp TL olarak yazsın, Eğer Euro ise F2 'deki Euro kuru ile çarpıp TL olarak hepsini D Sütununa yazsın. Bu konuda yardıma ihtiyacım var

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Range("D2:D" & Rows.Count).ClearContents
    
    With Range("D2:D" & Cells(Rows.Count, 1).End(3).Row)
        .Formula = "=IF(ISNUMBER(FIND(""€"",C2)),C2*F$2,IF(ISNUMBER(FIND(""$"",C2)),SUBSTITUTE(C2,""$"","""")*E$2,VALUE(C2)))"
        .Value = .Value
    End With
End Sub

 

[cocoa35]

Korhan bey çok teşekkürler tam istediğim gibi olmuş