Döviz Sembollerini Değiştirme

[ismail-34]

Çok Değerli Excel Web Ailesine selamlar Saygılar.

Benim Sorum rengi belirtilen bir hücrenin satırının para birimlerini/biçimlendirmesini değiştirme ile ilgili.

Örnek Ektedir.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Change_Curreny_Symbol()
    Dim Rng As Range, Currency_Symbol As String
    
    Currency_Symbol = Range("E2").Value
    
    For Each Rng In Range("B5:B" & Cells(Rows.Count, 2).End(3).Row)
        If Rng.Interior.ColorIndex = 6 Then
            Rng.Offset(, 1).Resize(, 3).NumberFormat = "#,##0.00" & """ " & _
            Currency_Symbol & """;-#,##0.00" & """ " & Currency_Symbol & """"
        End If
    Next
End Sub

 

[ismail-34]

Yine Harikasınız Korhan Hocam Süper Çalışıyor. Çok Teşekkür ederim.