textbox formatı

[hurkanpisirici]

merhabalar eklediğim dosyada userform5 e sayfa 2 deki verileri alıyorum ama textbox4-5-6 lara gelen rakamlar 0,6546544 gibi rakamlar olduğu için yanlışl geliyor ben sıfırdan sonra 3 rakam gelmeisni nasıl sağlayabilirim?

 

[Halit TÜRK]

Selam

Private Sub TextBox4_Change()
TextBox4.Value = Format(TextBox4, "0.000")
End Sub

 

[hurkanpisirici]

merhaba sayın htrk kodunuzu textbox6 ya uyguladım ama hücrede 0,012 yazmasına rağmen textboxa 1217974870087,880 şeklinde geliyor.ilginiz için teşekkürler.

 

[meslan]

Merhaba. Şu şekilde deneyiniz.
TextBox4 = Format(Sheets("Sayfa2").Range("B5").Value, "0.###")
TextBox5 = Format(Sheets("Sayfa2").Range("B6").Value, "0.###")
TextBox6 = Format(Sheets("Sayfa2").Range("B7").Value, "0.###")

 

[hurkanpisirici]

sayın meslan çok teşekkür edeirm harikasınız.emeğinzie sağlık.sayın htrk sizde çok sağolun ilgilendiğiniz için.

 

[Halit TÜRK]

Selam

Aşağıdaki gibi uyarlayın..

Private Sub UserForm_Initialize()
TextBox1 = Sheets("Sayfa2").Range("B1").Value
TextBox2 = Sheets("Sayfa2").Range("B2").Value
TextBox3 = Sheets("Sayfa2").Range("B3").Value
TextBox4 = Sheets("Sayfa2").Range("B5").Value
TextBox5 = Sheets("Sayfa2").Range("B6").Value
TextBox6 = Format(Sheets("Sayfa2").Range("B7").Value, "0.000")
End Sub