مشكلة بزر المسح داخل الفورم

[محمد عيد]

السلام عليكم

عملت يوزر فورم فيه 4 تيكست بوكس

وزر كوماند بوتن لمسح الخلايا

بدخل بيانات فى 3 تيكست بوكس وبيتم عمل حساب ليهم والنتيجة بتظهر فى التيكست بوكس الرابع

وعند الضغط على زر المسح يظهر خطاء بكود 13

شكرا على الرد مقدما

ممنوع رفع الملف بموقع خارجى ,طالما حجمه صغير

 

ttttt.xlsm

[Ali Mohamed Ali]

وعليكم السلام-تم تعديل الأكواد لتصبح هكذا

Private Sub CommandButton1_Click()
Dim x As Integer
x = 0
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
End Sub
Private Sub TextBox3_Change()
TextBox4.Text = ((Val(Me.TextBox1.Value) / 100) * Val(Me.TextBox2.Value) * 1000) * Val(Me.TextBox3.Value)
End Sub

 

ttttt.xlsm

[محمد عيد]

شكرا جدا على تعبت حضرتك ... بارك الله فيك