Hücre formatını para Birimi (₺) olarak ayarlama

[pNouma]

Kıymetli Hocalarım merhaba,
Hücre formatını para Birimi (₺) olarak ayarlama istiyordum;

Türk Lirası' nın nin yeni simgesi olan "₺" simgesini "H6" hücresine yazdım; aşağıdaki kod ile yapmaya çalıştım ama;
umarım tam olmadı, bu konuda çözüm önerilerinizi sunarsanız çok sevinirim.

        TRLform = """ " & Sayfa1.Range("H6").Value & """" & "#,##0.00"

        SH.Range("J" & 2 & ":I" & 2).NumberFormat = TRLform

ilginize şimdiden teşekkürler,
iyi Çalışmalar dilerim.

 

[muhasebeciyiz]

Sub ParaBiriminiTurkLirasiYap()
    Dim seciliAlan As Range
    Set seciliAlan = Selection
    
    Dim tlSembol As String
    tlSembol = ChrW(8378)

    seciliAlan.NumberFormat = """" & tlSembol & """ #,##0.00"
End Sub

Excel'de birkaç hücreye sayı yaz.

Hücreleri seç.

Makroyu çalıştır.

Hücrelerin "₺ 1.234,00" şeklinde formatlandığını görmelisin.

 

[pNouma]

Türk Lirası'nın yeni simgesini kullanarak bir hücreyi para birimi formatına çevirmek istiyorsunuz. Bunu Excel VBA kullanarak yapmayı mı denediniz? Eğer öyleyse, doğru sonuçları elde etmek için aşağıdaki gibi bir kod kullanabilirsiniz:

Sub FormatCellAsCurrency()
With Range("H6")
.NumberFormat = "[$₺]#,##0.00"
End With
End Sub

Hocam öncelikle teşekkürler,
vermiş olduğunuz kodu modül içine kopyalayınca "₺" simgesi yerine "?" koyuyor.

.NumberFormat = "[$?]#,##0.00"

 

[ccuneyt13]

Merhaba,
Bende böyle bir kod var, ? işareti sorunu bende de oldu ama aşağıdaki ile sorunsuz yaptı.
Umarım sizde de çalışır. Deneyebilir misiniz.

Sub TL_simgeyap()

    Dim hucre As Range
    Set hucre = Range("H6")
  
    If IsNumeric(hucre.Value) Then
        hucre.NumberFormat = "#,##0 [$-tr-TR]\" & ChrW(8378)
    End If

End Sub

 

[pNouma]

Merhaba,
Bende böyle bir kod var, ? işareti sorunu bende de oldu ama aşağıdaki ile sorunsuz yaptı.
Umarım sizde de çalışır. Deneyebilir misiniz.

Sub TL_simgeyap()

    Dim hucre As Range
    Set hucre = Range("H6")
 
    If IsNumeric(hucre.Value) Then
        hucre.NumberFormat = "#,##0 [$-tr-TR]\" & ChrW(8378)
    End If

End Sub

teşekkürler Cüneyt Hocam

 

[pNouma]

Sub ParaBiriminiTurkLirasiYap()
    Dim seciliAlan As Range
    Set seciliAlan = Selection
   
    Dim tlSembol As String
    tlSembol = ChrW(8378)

    seciliAlan.NumberFormat = """" & tlSembol & """ #,##0.00"
End Sub

Excel'de birkaç hücreye sayı yaz.

Hücreleri seç.

Makroyu çalıştır.

Hücrelerin "₺ 1.234,00" şeklinde formatlandığını görmelisin.

teşekkürler Hocam
iyi Çalışmalar dilerim.

 

[volki_112]

teşekkürler Hocam
iyi Çalışmalar dilerim.

kendi kodumdan bir örnek ₺ simgesi yapar sonda. örn. ( 1.257,39 ₺ )

cell.Offset(0, 3).NumberFormat = "#,##0.00 " & ChrW(8378)  'GÜNCEL FİYAT