ما سبب هذا الخطأ

[وليد عبدالغني]

ما سبب هذا الخطأ وقد قمت بالبحث بجوجل والنتيجة انى وجدت هذا الخطا كثيرا ولكني لم اتوصل لحل

اليوز فورم يفتح عادي جدا فى حالة عدم وجود بيانات وعند وجود مبالغ يحدث الخطأ

هل يمكن امدادي بكود يجعل بعض الخلايا فى Worksheet تحمل value فقط

 

وشكرا

[ياسر خليل أبو البراء]

ارفق ملف لتوضيح المشكلة أكثر حتى يسهل على الأخوة الأعضاء مساعدتك

[وليد عبدالغني]

مرفق الملف المشكلة فى تبويب close

[وائل احمد المصري]

بعد اذن اخويا ياسر

استبدل Sheets("close").Range("l20")= TextBox94.Value

ب Sheets("close").Range("l20").Value = TextBox94.Value

وشوف ح تظبط معاك

[ياسر خليل أبو البراء]

السهل الممتنع (وائل المصري ) صاحب كل حصري

[وليد عبدالغني]

للاسف وائل باشا لم تضبط اعتقد ان المشكلة فى

التعليمات البرمجية  لورقة close

لو قمت بمسحها

تنحل المشكلة

لكن تبقى مشكلة تحويل البيانات من ورقة العمل الى الفورم فى حالة ان الاثنين مفتوحان فى نفس الوقت

فهل يكمن التعيل علي الكود

Private Sub Worksheet_Change(ByVal Target As Range)
'تيلر 1
On Error Resume Next
UserForm_wam_close.TextBox1.Value = Sheets("close").Range("c20").Value
UserForm_wam_close.TextBox2.Value = Sheets("close").Range("c21").Value
UserForm_wam_close.TextBox3.Value = Sheets("close").Range("c22").Value
UserForm_wam_close.TextBox4.Value = Sheets("close").Range("c23").Value
UserForm_wam_close.TextBox5.Value = Sheets("close").Range("c24").Value
UserForm_wam_close.TextBox6.Value = Sheets("close").Range("c25").Value
UserForm_wam_close.TextBox7.Value = Sheets("close").Range("c26").Value
UserForm_wam_close.TextBox8.Value = Sheets("close").Range("c27").Value
UserForm_wam_close.TextBox9.Value = Sheets("close").Range("c28").Value
UserForm_wam_close.TextBox19.Value = Sheets("close").Range("c29").Value
'+++++++++++++++++++++++++
UserForm_wam_close.TextBox21.Value = Sheets("close").Range("c6").Value
UserForm_wam_close.TextBox22.Value = Sheets("close").Range("c7").Value
UserForm_wam_close.TextBox23.Value = Sheets("close").Range("c8").Value
UserForm_wam_close.TextBox24.Value = Sheets("close").Range("c9").Value
UserForm_wam_close.TextBox25.Value = Sheets("close").Range("c10").Value
UserForm_wam_close.TextBox26.Value = Sheets("close").Range("c11").Value
UserForm_wam_close.TextBox27.Value = Sheets("close").Range("c12").Value
UserForm_wam_close.TextBox28.Value = Sheets("close").Range("c13").Value
UserForm_wam_close.TextBox29.Value = Sheets("close").Range("c14").Value
'تيلر 2
UserForm_wam_close.TextBox32.Value = Sheets("close").Range("f20").Value
UserForm_wam_close.TextBox33.Value = Sheets("close").Range("f21").Value
UserForm_wam_close.TextBox34.Value = Sheets("close").Range("f22").Value
UserForm_wam_close.TextBox35.Value = Sheets("close").Range("f23").Value
UserForm_wam_close.TextBox36.Value = Sheets("close").Range("f24").Value
UserForm_wam_close.TextBox37.Value = Sheets("close").Range("f25").Value
UserForm_wam_close.TextBox38.Value = Sheets("close").Range("f26").Value
UserForm_wam_close.TextBox39.Value = Sheets("close").Range("f27").Value
UserForm_wam_close.TextBox40.Value = Sheets("close").Range("f28").Value
UserForm_wam_close.TextBox50.Value = Sheets("close").Range("f29").Value
'+++++++++++++++++++
UserForm_wam_close.TextBox52.Value = Sheets("close").Range("f6").Value
UserForm_wam_close.TextBox53.Value = Sheets("close").Range("f7").Value
UserForm_wam_close.TextBox54.Value = Sheets("close").Range("f8").Value
UserForm_wam_close.TextBox55.Value = Sheets("close").Range("f9").Value
UserForm_wam_close.TextBox56.Value = Sheets("close").Range("f10").Value
UserForm_wam_close.TextBox57.Value = Sheets("close").Range("f11").Value
UserForm_wam_close.TextBox58.Value = Sheets("close").Range("f12").Value
UserForm_wam_close.TextBox59.Value = Sheets("close").Range("f13").Value
UserForm_wam_close.TextBox60.Value = Sheets("close").Range("f14").Value

'تيلر 3
UserForm_wam_close.TextBox63.Value = Sheets("close").Range("i20").Value
UserForm_wam_close.TextBox64.Value = Sheets("close").Range("i21").Value
UserForm_wam_close.TextBox65.Value = Sheets("close").Range("i22").Value
UserForm_wam_close.TextBox66.Value = Sheets("close").Range("i23").Value
UserForm_wam_close.TextBox67.Value = Sheets("close").Range("i24").Value
UserForm_wam_close.TextBox68.Value = Sheets("close").Range("i25").Value
UserForm_wam_close.TextBox69.Value = Sheets("close").Range("i26").Value
UserForm_wam_close.TextBox70.Value = Sheets("close").Range("i27").Value
UserForm_wam_close.TextBox71.Value = Sheets("close").Range("i28").Value
UserForm_wam_close.TextBox81.Value = Sheets("close").Range("i29").Value
'+++++++++++++++++++
UserForm_wam_close.TextBox83.Value = Sheets("close").Range("i6").Value
UserForm_wam_close.TextBox84.Value = Sheets("close").Range("i7").Value
UserForm_wam_close.TextBox85.Value = Sheets("close").Range("i8").Value
UserForm_wam_close.TextBox86.Value = Sheets("close").Range("i9").Value
UserForm_wam_close.TextBox87.Value = Sheets("close").Range("i10").Value
UserForm_wam_close.TextBox88.Value = Sheets("close").Range("i11").Value
UserForm_wam_close.TextBox89.Value = Sheets("close").Range("i12").Value
UserForm_wam_close.TextBox90.Value = Sheets("close").Range("i13").Value
UserForm_wam_close.TextBox91.Value = Sheets("close").Range("i14").Value

'تيلر 4
UserForm_wam_close.TextBox94.Value = Sheets("close").Range("l20").Value
UserForm_wam_close.TextBox95.Value = Sheets("close").Range("l21").Value
UserForm_wam_close.TextBox96.Value = Sheets("close").Range("l22").Value
UserForm_wam_close.TextBox97.Value = Sheets("close").Range("l23").Value
UserForm_wam_close.TextBox98.Value = Sheets("close").Range("l24").Value
UserForm_wam_close.TextBox99.Value = Sheets("close").Range("l25").Value
UserForm_wam_close.TextBox100.Value = Sheets("close").Range("l26").Value
UserForm_wam_close.TextBox101.Value = Sheets("close").Range("l27").Value
UserForm_wam_close.TextBox102.Value = Sheets("close").Range("l28").Value
UserForm_wam_close.TextBox112.Value = Sheets("close").Range("l29").Value
'+++++++++++++++++++
UserForm_wam_close.TextBox114.Value = Sheets("close").Range("l6").Value
UserForm_wam_close.TextBox115.Value = Sheets("close").Range("l7").Value
UserForm_wam_close.TextBox116.Value = Sheets("close").Range("l8").Value
UserForm_wam_close.TextBox117.Value = Sheets("close").Range("l9").Value
UserForm_wam_close.TextBox118.Value = Sheets("close").Range("l10").Value
UserForm_wam_close.TextBox119.Value = Sheets("close").Range("l11").Value
UserForm_wam_close.TextBox120.Value = Sheets("close").Range("l12").Value
UserForm_wam_close.TextBox121.Value = Sheets("close").Range("l13").Value
UserForm_wam_close.TextBox122.Value = Sheets("close").Range("l14").Value

End Sub




ليعمل بشكل افضل