text boxta hesaplama problemi

[airborne]

userform iüzerindeki ikiye bölünmüş optionbutton2 işaretlenip hesapla butonuna basıldığında textbox2 nin neden negatif sayı verdiğini bir türlü çözemedim. dosyam ektedir.

 

[airborne]

bu konu acil lütfen yardımcı olurmusunuz

 

[zafer]

Merhaba

Bu saate kadar cevap alamamanızın sebebi acil diye mesaj göndermenizdi Lütfen bunu bir daha tekrarlamayın

Textboxlar veriyi metin olarak görürler yanlışlık orda....

Ayrıca
Kodlarınızdaki hesaplamadaq Textbox2 herzaman textbox1'e eşit olmazmı

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
TextBox1 = Round((([Sayfa1!a1] + [Sayfa1!b1] + [Sayfa1!c1]) / 2), 2)
TextBox2 = (([Sayfa1!a1] + [Sayfa1!b1] + [Sayfa1!c1]) - (TextBox1))
Else
TextBox2.Value = ""
TextBox1 = ([Sayfa1!a1] + [Sayfa1!b1] + [Sayfa1!c1])
End If
End Sub
onun için

Textbox2=textbox1
yazın

 

[airborne]

sayın zafer hocam dediğiniz doğru textbox1=textbox2 bu (,) virgülden sonraki ikinci rakam çift ise dediğin doğru benim isteğim sonu tek rakamla (1,3,5,7 ve 9) gibi bitenlerin text box1'in yuvarlanması textbox 2 ninde Sayfa1 deki a1, b1, c1 'in toplamından çıkartılması

 

[zafer]

Merhaba

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Top = Round((([Sayfa1!a1] + [Sayfa1!b1] + [Sayfa1!c1]) / 2), 2)
TextBox1 = Top
TextBox2 = ([Sayfa1!a1] + [Sayfa1!b1] + [Sayfa1!c1]) - Top
Else
TextBox2.Value = ""
TextBox1 = ([Sayfa1!a1] + [Sayfa1!b1] + [Sayfa1!c1])
End If
End Sub

 

[airborne]

teşekkürler zafer bey