Para birimini ayırma

[coperx]

Sayın üstadlar iyi günler bir sorum olucaktı örneğin a1 hücresinde para birimi olarak seçili olarak 50 TL yazıyorsa ben bu TL'yi B1 satırında ayrı olarak göstermek istiyorsam ne yapmam gerekir? teşekkürler

 

[Korhan Ayhan]

Merhaba,

Forumumuza hoşgeldiniz.

İstediğiniz işlemi kullanıcı tanımlı fonksiyon yardımıyla kolaylıkla halledebilirsiniz.

Ekteki örnek dosyayı incelermisiniz. Uygulanan koda ALT+F11 tuşlarına basarak ulaşabilirsiniz.

Uygulanan kod; (Boş modüle uygulayınız.)

Option Explicit
 
Function PARA_BİRİMİ(Hücre As Range) As String
    Dim Veri As String, X As Byte
 
    Application.Volatile True
 
    Veri = Replace(Replace(Hücre.Text, ",", ""), " ", "")
 
    For X = 0 To 9
        Veri = Replace(Veri, X, "")
    Next
 
    PARA_BİRİMİ = Veri
End Function

Hücrede kullanım şekli;

[B][COLOR=blue]=PARA_BİRİMİ([COLOR=red]Hücre Adresi[/COLOR])[/COLOR][/B]

 

[coperx]

çok teşekkür ederim

 

[osirkeci]

Korhan bey merhaba ;

şöyle bir çözüme ihtiyacım bulunmakta


bir bütçe tablom var ve döviz cinsi farklı hammddelerin birim fiyat ve miktarlarını çarpıp ayın haftalarından birine yazdığım bir sütünum var

örnek 37.hafta sütünunda tl usd euro cinsinden 30 farklı değer var....aynı sütünun altında 3 hücrede tl usd ve euro toplamlarını ayrı ayrı görebileceğim bir ayrı toplama fonksyonuna ihtiyacım var....

Yardımcı olacaklara şimdiden teşekkürler....

 

[bonoparte]

Merhaba,

aşağıdaki kodu uyguladığımda, ÖRENEĞİN 1.000,00 EUR olduğunda ".EUR" olarak alıyor.

Nasıl düzeltebiliriz, yardımcı olabilirmisiniz.

Option Explicit
 
Function PARA_BİRİMİ(Hücre As Range) As String
    Dim Veri As String, X As Byte
 
    Application.Volatile True
 
    Veri = Replace(Replace(Hücre.Text, ",", ""), " ", "")
 
    For X = 0 To 9
        Veri = Replace(Veri, X, "")
    Next
 
    PARA_BİRİMİ = Veri
End Function

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Option Explicit
 
Function PARA_BİRİMİ(Hücre As Range) As String
    Dim Veri As String, X As Byte
 
    Application.Volatile True
 
    Veri = Replace(Replace(Replace(Hücre.Text, ",", ""), ".", ""), " ", "")
 
    For X = 0 To 9
        Veri = Replace(Veri, X, "")
    Next
 
    PARA_BİRİMİ = Veri
End Function

 

[bonoparte]

Teşekkür ederim, ellerinize sağlık.

Sorun çözüldü.