Para Birimi

[besen]

Söylemiş olduğunuz kodu makronun içine koymuştum. Şimdi düzelttim. Teşekkür ederim.
Ancak şöyle bir şey var, Ben C1 hücresinden para birimini seçerken, Soldaki para birimlerinin kısaltmalarından seçmek, para birimlerinin gösterileceği hücrelerde ise semboller gelsin istiyorum.
Sağ olun.


TL ₺
USD $
GBP £
EUR €
CHF FR

 
 

 

[Korhan Ayhan]

Şu düzenlemeleri yapınız;

Para birimlerini M sütununa alınız.
Para sembollerini N sütununa alınız.



Veri doğrulama olan C1 hücresindeki listeyi M sütunu olacak şekilde revize ediniz.

Sonra sayfadaki kodu aşağıdaki kod ile değiştiriniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As Range, Para_Birimi As Range
   
    If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
   
    Set Alan = Union(Range("C5:C16"), Range("C22:C30"), Range("D5:D40"))
   
    Set Para_Birimi = Range("M:M").Find(Target, , , xlWhole)
    If Not Para_Birimi Is Nothing Then
        Alan.NumberFormat = "#,##0.00" & """ " & Para_Birimi.Offset(, 1) & """"
    End If
End Sub