Excel seçime göre hücrenin para birimini değiştirme.

[webmart]

Merhaba,
Excel de liste olarak para birimlerim çıkıyor. Örnek olarak listeden euroyu seçtiğimde a1 hücresinin para biriminin euro simgesi olarak çıkmasını istiyorum.
Bunu koşullu biçimlendirme veya eğer ifadesiyle nasıl yapabilirim?

 

[ÖmerFaruk]

Linkteki 6 nolu mesajda sayın @Asri beyin örneğini inceleyebilirsiniz.
https://www.excel.web.tr/threads/huecreden-para-birimi-secerek-huecrelere-uygulamak.192367/

Aynı linkte 10 nolu mesajda ilgili soruya alternatif bir çözüm de gösterdim

 

[webmart]

Teşekkür ederim tam aradığım

 

[ecalhan]

Peki, örneğin her satırda A sütununa para brimini el ile yazsak ve ilgili satırdaki belli bir hücre grubu da buna göre değişse, döngü nasıl olurdu ?

 

[Korhan Ayhan]

Deneyiniz.

 

[ecalhan]

Korhan bey teşekkür ederim, desteğiniz için.

 

[ecalhan]

Selamlar worksheetchange üzerinden bunu aşağıki şekli ile değiştirmek istedim ancak sanırım bir yerde hata yapıyorum. Size burada neyi yanlış yapıyorum?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Alan1, Alan2 As Range

If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
Set Alan1 = Union(Range("C5:C16"), Range("d5:d16"))
Alan1.NumberFormat = "#,##0.00" & """ " & Target & """"

If Intersect(Target, Range("f1")) Is Nothing Then Exit Sub
Set Alan2 = Union(Range("f5:f16"), Range("g5:g16"))
Alan2.NumberFormat = "#,##0.00" & """ " & Target & """"


End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan1 As Range, Alan2 As Range
   
    If Not Intersect(Target, Range("C1")) Is Nothing Then
        Set Alan1 = Union(Range("C5:C16"), Range("D5:D16"))
        Alan1.NumberFormat = "#,##0.00" & """ " & Target & """"
    End If
   
    If Not Intersect(Target, Range("F1")) Is Nothing Then
        Set Alan2 = Union(Range("F5:F16"), Range("G5:G16"))
        Alan2.NumberFormat = "#,##0.00" & """ " & Target & """"
    End If
   
    Set Alan1 = Nothing
    Set Alan2 = Nothing
End Sub

 

[ecalhan]

Korhan üstadım, değerli yardımların için teşekkür ederim.