Değere göre yazdırma

[huntedman]

Herkese merhaba,

resimde ki açılır kutudan para cinsi seçildiğinde. Alt satırlara girilen değerlere TL, dolar ve avro işareti nasıl yazdırabilirim.

10,30 TL
10,05 $ gibi.

koşullu biçimlendirme ile denedim fakat olmadı. Bunun yapmanın yolu nedir acaba.

 

[hamitcan]

Açılır Kutunun A1 hücresinde olduğunu varsaydım.

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case [a1]
    Case "Türk Lirası"
            Target.NumberFormat = "#,##0.00 $"
    Case "Usd Dolar"
            Target.NumberFormat = "#,##0.00 [$$-409]"
    Case "Euro"
            Target.NumberFormat = "#,##0.00 [$€-1]"
    End Select
End Sub

 

[huntedman]

Excel 2003 te çalışmıyor.

2007 ve üstünde koşullu biçimlendirme ile yapılıyor.

Konu kapatılabilir.