Tek sütunda 3 farklı para birimini tl ye çevirme

[naumkoz]

Tek sütunda 3 farklı para birimini tl ye çevirme konusu hakkında yardım eder misiniz?

Tek sutunda 3 parabirimi excel dosyanızı buldum fakat çalışmıyor yardımcı olursanız işime çok yarayacak bir excel örneği... Cevap verirseniz sevinirim..

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

C1 hücresine dolar kurunu, C2 hücresinede euro kurunu yazın.
C6 hücresinede aşağıdaki formülü uygulayın.

=EĞER(SAĞDAN(B6;1)="$";YERİNEKOY(B6;"$";"")*$C$1;EĞER(SAĞDAN(B6;1)="€";YERİNEKOY(B6;"€";"")*$C$2;B6))

 

[naumkoz]

Korhab Bey, yardımlarınız için teşekkür ederim. Yalnız Euro hesaplama satırları yanlış değer veriyor müsait bir zamanda bakabilirseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Ben C6 hücresindeki yazım şeklinize göre cevap vermiştim. Bu durumda makro ile çözüm hazırlamak gerekir. Ekteki dosyayı incelermisiniz. Para birimlerini örnek dosyadaki biçimiyle kullanırsanız sorun yaşamazsınız.

Kullanılan fonksiyon;

Option Explicit
 
Function PARA_BİRİMİ(Hücre As Range) As String
    If InStr(1, Hücre.NumberFormatLocal, "$$") > 0 Then
        PARA_BİRİMİ = "DOLAR"
    ElseIf InStr(1, Hücre.NumberFormatLocal, "€") > 0 Then
        PARA_BİRİMİ = "EURO"
    ElseIf InStr(1, Hücre.NumberFormatLocal, "TL") > 0 Then
        PARA_BİRİMİ = "TL"
    End If
End Function

Hücrede kullanım şekli;

[B][COLOR=blue]=PARA_BİRİMİ(Hücre_Adresi)[/COLOR][/B]

 

[almrtlr]

kolay yolu gözden kaçmış sanırım.

 

[Korhan Ayhan]

Selamlar,

Sn. almrtlr,

Tabiki sizin yöntem en kolay çözüm şekli. Fakat şöyle düşünün, değerlerin olduğu sütunda binlerce satır farklı para birimleri varsa tek tek hücre tanımlamak ne kadar mantıklıdır. Ben bu sebeple esnek olması açısından KTF (makrolu çözüm) önerdim.

 

[almrtlr]

Doğru diyorsunuz Korhan Bey,
ben basit yoldan düşündüm ve belki gözden kaçmıştır diye örneği
göndermek istedim.

 

[naumkoz]

Korhan Bey yardımlarınız için teşekkürler...