Hücrede sayıları para birimi olarak biçimlendirme

[tamer42]

Merhaba,
Ekli dosyada J5 hücreyi aşağıdaki kod ile para birimi olarak biçimlendirmek isterken
J3 hücresindeki para birimini baz alarak (TL, $, €) olarak pratik olarak nasıl yapabiliriz?


desteğiniz için teşekkürler,
iyi Çalışmalar.

Sub FinanceFormat()

       Sayfa1.Range("J5").NumberFormat = "#,##0.00€ ;#,##0.00-€"

End Sub

 

[halily]

dosyanızı inceleyemedim ama aşağıdaki kod işinizi görebilir

Sayfa1.Range("J5").NumberFormat = "#,##0.00" & Sayfa1.Range("J3") & " ;#,##0.00-" & Sayfa1.Range("J3")

 

[tamer42]

dosyanızı inceleyemedim ama aşağıdaki kod işinizi görebilir

Sayfa1.Range("J5").NumberFormat = "#,##0.00" & Sayfa1.Range("J3") & " ;#,##0.00-" & Sayfa1.Range("J3")

Hocam ekli hata mesajını verdi.

 

[bmutlu966]

Sayfa1'in kod penceresine yapıştırıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("J3")) Is Nothing Then Exit Sub
Cancel = True
    If Sayfa1.Range("J3").Value = "EUR" Then Sayfa1.Range("J5").NumberFormat = "#,##0.00 €"
    If Sayfa1.Range("J3").Value = "USD" Then Sayfa1.Range("J5").NumberFormat = "[$$-en-US]#,##0.00"
    If Sayfa1.Range("J3").Value = "TRL" Then Sayfa1.Range("J5").NumberFormat = "#,##0.00 TRL"

End Sub

 

[halily]

Hocam ekli hata mesajını verdi.

altın üye olmadığımdan resmi göremiyorum maalesef
ama kodu deneyip yollamıştım hata vermemesi gerek
tam olarak yazdığınız kodu ve hata mesajını yazar mısınız?

 

[Korhan Ayhan]

Deneyiniz.

Ben bu şekilde anladım..

Sub FinanceFormat()
    My_Format = "#,##0.00 " & """" & Sayfa1.Range("J3") & """;#,##0.00-" & """" & Sayfa1.Range("J3") & """"
    Sayfa1.Range("J5").NumberFormat = My_Format
End Sub

 

[arrow3441]

Merhaba alttaki koduda deneyebilirsiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("J3")) Is Nothing Then
        UpdateCurrencyFormat
    End If
End Sub

Private Sub UpdateCurrencyFormat()
    Dim currency1 As String
    currency1 = Range("J3").Value
    
    If currency1 = "USD" Then
        Range("J5").NumberFormat = "#,##0.00 $ ;#,##0.00 -$"
    ElseIf currency1 = "EUR" Then
        Range("J5").NumberFormat = "#,##0.00 € ;#,##0.00 -€"
    ElseIf currency1 = "TRL" Then
        Range("J5").NumberFormat = "#,##0.00 TRL ;#,##0.00 -TRL"
 
    End If
End Sub

 

[tamer42]

Korhan & @bmutlu966 hocam çok teşekkürler,