اذهب الي المحتوي
أوفيسنا

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

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

بواسطه وليد عبدالغني
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

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

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

قام بنشر
قام بنشر

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

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

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

 

yiASQw.jpg

وشكرا

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

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

قام بنشر
  • الكاتب
قام بنشر

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

التعليمات البرمجية  لورقة 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




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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept