Hücrelerdeki para birimini değiştirmek

[atilyus]

Merhaba
Benim yapmak istediğim olay; sayfamdaki para birimi "€" olan hücreleri bulup bu hücrelerin biçimini "genel" olarak değiştirmek ve bu işlemi yaparken para birimi "€" olmayan hücrelerde değişiklik yapmamak.
yardımcı olabilirseniz sevinirim.

 

[Necdet]

Merhaba,

Örnek dosya eklerseniz, sorunu çözecek arkadaşa hazır veri sunmuş olursunuz.
Çözüme daha hızlı yaklaşırsınız.

 

[Korhan Ayhan]

Merhaba,

Forumumuza hoşgeldiniz. Aşağıdaki kodu boş bir modüle uygulayın ve çalıştırın.

Kod kırmızı renkli hücreler için çalışmaktadır. Kendi dosyanıza göre hücreleri değiştirebilirsiniz.

Option Explicit
 
Sub PARA_BİRİMİ_DEĞİŞTİR()
    Dim Hücre As Range
 
    For Each Hücre In Range("[COLOR=red]A1:Z100[/COLOR]")
        If InStr(1, Hücre.NumberFormatLocal, "€") > 0 Then
            Hücre.NumberFormat = "General"
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[atilyus]

Teşekkür ederim Korhan Bey