Textbox Sayi Formati

[1903bjk]

Merhaba ArkadaŞlar
Ektekİ Dosyamda Textbox3(dÖnem Sonu Bakİye) Ün Formatini Bİr TÜrlÜ Ör:#,###,00
Şeklİne Getİremİyorum.####,00 Şeklİnde Gelİyor
Forumdakİ Mevcut Kodlarla Denedİm Ama Olmadi

Formu TamamlayacaĞim
Bİr Tek Burada Takildim
Yardim LÜtfen

 

[Zeki Gürsoy]

Bu şekilde deneyiniz.

Private Sub ComboBox1_Change()
Dim ara  As Range
 
Set ara = Range("a2:h100").Find(ComboBox1)
TextBox1.Value = Cells(ara.Row, 1).Value
TextBox2.Value = Cells(ara.Row, 2).Value
[B]TextBox3.Value = FormatNumber(Cells(ara.Row, 4).Value, 2)[/B]
TextBox4.Value = Cells(ara.Row, 5).Value
TextBox5.Value = Cells(ara.Row, 6).Value
TextBox6.Value = Cells(ara.Row, 8).Value
ComboBox2.Value = Cells(ara.Row, 7).Value
 
End Sub

 

[1903bjk]

Bu şekilde deneyiniz.

Private Sub ComboBox1_Change()
Dim ara  As Range
 
Set ara = Range("a2:h100").Find(ComboBox1)
TextBox1.Value = Cells(ara.Row, 1).Value
TextBox2.Value = Cells(ara.Row, 2).Value
[B]TextBox3.Value = FormatNumber(Cells(ara.Row, 4).Value, 2)[/B]
TextBox4.Value = Cells(ara.Row, 5).Value
TextBox5.Value = Cells(ara.Row, 6).Value
TextBox6.Value = Cells(ara.Row, 8).Value
ComboBox2.Value = Cells(ara.Row, 7).Value
 
End Sub

SAYIN ANEMOS
TEŞEKKÜR EDERİM ARADIĞIM BUYDU
SANIRIM KOLAY BİYERDE TAKILMIŞIM AMA BULAMADIM BİRTÜRLÜ İŞTE
İLGİNİZ VE EMEĞİNİZ İÇİN TEKRAR TEŞEKKÜRLER
SAYGILARIMLA