Çözüldü TextBox a sadece sayı girişi ve Listbox a ₺ işareti eklemek

[veysikulte1]

merhabalar Textbox1 e sadece rakam girilmesini nasıl sağlayabiliriz. Birde textbox2 taki tutarı buton ile listbox a gönderildiğinde listboxtaki tutarın yanında ₺ işareti nasıl ekleyebiliriz.

 

[Korhan Ayhan]

Sadece sayı için ; https://www.excel.web.tr/threads/textboxa-sadece-numara-girilebilsin.26464/

Para birimi için ; https://www.excel.web.tr/threads/textboxa-otomatik-hesap-yaptirma.177419/#post-973309

 

[veysikulte1]

Hocam Sadece sayı için oldu Çok teşekkürler ancak TL simgesi için olmadı

 

[veysikulte1]

Hocam Listbox a satır eklediğimde bu kodlarlar herşey normal çalışıyor tek eksiğim fiyat kısmına ve toplamlar kısmına ₺ işareti eklemek istiyorum yazdığınız kod ile yapamadım yardımcı olursanız çok sevinirim

If ListBox1.ListCount < 30 Then '..... Listboxa sınır ekleme
    
    ListBox1.AddItem TB_FT_Ürün
    LboxSatırı = ListBox1.ListCount - 1
  
      
    ListBox1.ColumnCount = 5
    ListBox1.ColumnWidths = "265;35;65;180;70"
    
    ListBox1.List(LboxSatırı, 1) = TB_FT_Miktar
    ListBox1.List(LboxSatırı, 2) = TB_FT_Birimi
    ListBox1.List(LboxSatırı, 3) = FormatNumber(SayıKontrol(TB_FT_Fiyatı), 2)
    
    Else
     BilgiMesajı "Satır Sınırına Ulaşıldı."
    End If
    
    ListBox1.List(LboxSatırı, 4) = FormatNumber(SayıKontrol(LB_FT1Toplam), 2)
    ListBox1.List(LboxSatırı, 5) = FormatNumber(SayıKontrol(LBKDV18), 2)
    ListBox1.List(LboxSatırı, 6) = FormatNumber(SayıKontrol(LB_FT1KDV), 2)
    ListBox1.List(LboxSatırı, 7) = FormatNumber(SayıKontrol(LB_FT1GenelToplam), 2)
    
    Call Hesap4_GenelTutarlar

 

[FERAZ]

ListBox1.List(LboxSatiri, 3) = Format(SayiKontrol(TB_FT_Fiyati), "#,##0.00 ₺ ")
Böyle deneyebilirsiniz örnek olarak.

 

[veysikulte1]

ListBox1.List(LboxSatiri, 3) = Format(SayiKontrol(TB_FT_Fiyati), "#,##0.00 ₺ ")
Böyle deneyebilirsiniz örnek olarak.

Denedim malesef hata veriyor yanlış işlem

 

[FERAZ]

Örnek olamsı için ekledim kod ve gifi.

Private Sub CommandButton1_Click()
    On Error Resume Next
    Me.TextBox1.Value = Format(Split(Me.TextBox1.Value)(0), "#,##0.00 TL")
End Sub

Private Sub CommandButton2_Click()
    On Error Resume Next
    Me.TextBox1.Value = Format(Split(Me.TextBox1.Value)(0), "#,##0.00 €")
End Sub

 

[veysikulte1]

Hocam buton a bastığımda direk listbox a ekleniyor listbox ta o işaret çıksın

 

[FERAZ]

Üstad hazretleri mantık olarak yaptım kodları.Örnek dosya olmadan nasıl yapılacak

 

[Korhan Ayhan]

Merhaba,

Verdiğim linkte para formatına çevirecek fonksiyon için örnek vardı. Bunu kendinize uyarlamanız gerekiyordu.

ListBox1.List(LboxSatırı, 3) = VBA.FormatCurrency(SayıKontrol(TB_FT_Fiyatı), 2)

Tabiki YENİ TL sembolünün sizde de ayarlı olması gerekiyor.

 

[veysikulte1]

Merhaba,

Verdiğim linkte para formatına çevirecek fonksiyon için örnek vardı. Bunu kendinize uyarlamanız gerekiyordu.

ListBox1.List(LboxSatırı, 3) = VBA.FormatCurrency(SayıKontrol(TB_FT_Fiyatı), 2)

Tabiki YENİ TL sembolünün sizde de ayarlı olması gerekiyor.

Çok teşekkür ederim hocam şimdi hal oldu