if + custom formatcells

[akrbas]

merhaba arkadaşlar,
Formatcells 'den parabirimleri için custom Formatcells yaptım ama "if" ile bağlamaya çalışıyorum. D2 EUR olursa B2 otomatik Euro olanı custom Formatcells seçsin,
USD olunca USD format cells'i seçsin istiyorum..mümkünmüdür? veya başka bir öneriniz varmıdır?

örnek dosya ektedir
çok teşekkürler
iyi akşamlar

 

[ÖmerBey]

Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
If Target.Value = "EUR" Then
    Range("B2").NumberFormat = "#,##0.00 ""EUR"""
ElseIf Target.Value = "USD" Then
    Range("B2").NumberFormat = "#,##0.00 ""USD"""
Else
    MsgBox "Lütfen geçerli bir parabirimi yazınız." & Chr(10) & """USD"" ya da ""EUR"""
End If
End Sub

 

[turist]

Alternatif çözüm ekli dosyadadır.