Userform Tek - Çift Sayı

[topcuexcel]

Merhabalar
Bir userform tasarladım ve hemen hemen bitti. Fakat ufak bir sorunum var. Ekte konu ile ilgili bir resim ekledim. Ne yaptıysam çözemiyorum. Yardımcı olabilirseniz çok sevinirim.

 

[snx111]

Hangi textbox hangisi belli olmadığından örnek ;
textbox degerlerine double ve ya integer atayın bence
dim x,y,x as double
x = textbox1.value .....
y = textbox29.value... hangisiyse artık ???

 

[topcuexcel]

aynen dediğiniz gibi yaptım fakat olmadı..

Dim a As Double
a = TextBox252.Value
TextBox29.Text = a
TextBox29 = Format(TextBox29, "#,##0.000")

 

[snx111]

Private Sub TextBox3_Change()
Dim a, b As Double
on error resume next
a = TextBox1.Value
b = TextBox3.Value
TextBox2.Value = a * b
TextBox2 = Format(TextBox2, "#,##0.000")
End Sub

 

[topcuexcel]

benim kodum bu şekilde

Dim a As Double
On Error Resume Next
a = TextBox85.Value
TextBox241.Text = a * S5.Cells(i, 8)
TextBox86.Text = a * S5.Cells(i, 9)
TextBox241 = Format(TextBox241, "#,##0.000")
TextBox86 = Format(TextBox86, "#,##0.000")
End Sub

ve dediğinizi uyguladım ama hala çift sayılarda göstermiyor sanki özellikle ayarlamışım gibi

 

[snx111]

Dim a , b As Double
On Error Resume Next
a = TextBox85.Value
b = S5.Cells(i, 9).value
TextBox241.value = a * S5.Cells(i, 8).value
TextBox86.value = a * b

TextBox241 = Format(TextBox241, "#,##0.000")
TextBox86 = Format(TextBox86, "#,##0.000")
End Sub