Başka hücreden koşullu biçimlendirme

[gkhnn2]

Merhaba,

Bir konuda yardıma ihtiyacım var..Döviz alanındaki döviz türünü değiştirdiğimde tutarında bu seçimdeki para biriminin simgesi ile yazmasını istiyorum.


http://dosya.co/2lfebx9af8fz/KUR_HESAPLAMA.xlsx.html

 

[Ömer]

Merhaba,

Sayfa1'in kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim kur_a(), kur_b(), i As Byte

    If Intersect(Target, [C3]) Is Nothing Then Exit Sub
    
    kur_a = Array("", "USD-Alış", "EUR-Alış", "GBP-Alış")
    kur_b = Array("#,##0.00 $", "[$£-809]#,##0.00", "#,##0.00 [$€-407]", "[$$-409]#,##0.00")

    For i = 0 To 3
        If kur_a(i) = Target Then
            Range("C5").NumberFormat = kur_b(i)
            Exit Sub
        End If
    Next i
    
End Sub

.

 

[çıtır]

Koşullu biçimlendirme ile çözümü;
1)Koşullu biçimlendirme
2)Yeni Kural
3)Bicimlendirilecek hücreleri belirlemek için formül kullan(formülü kopyala)

=$C$3="USD-Alış"

4)Biçimlendir
5)Para birimi
6)Uygun simge belirle.Tamam
7)Diğer birimler için formülü değiştirerek yenile.
Dosyanız;
http://s5.dosya.tc/server4/mwx0gx/doviz1.rar.html

 

[gkhnn2]

teşekkürler yardımlarınız için.