وليد عبدالغني قام بنشر أكتوبر 27, 2014 مشاركة قام بنشر أكتوبر 27, 2014 ما سبب هذا الخطأ وقد قمت بالبحث بجوجل والنتيجة انى وجدت هذا الخطا كثيرا ولكني لم اتوصل لحل اليوز فورم يفتح عادي جدا فى حالة عدم وجود بيانات وعند وجود مبالغ يحدث الخطأ هل يمكن امدادي بكود يجعل بعض الخلايا فى Worksheet تحمل value فقط وشكرا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 27, 2014 مشاركة قام بنشر أكتوبر 27, 2014 ارفق ملف لتوضيح المشكلة أكثر حتى يسهل على الأخوة الأعضاء مساعدتك رابط هذا التعليق شارك More sharing options...
وليد عبدالغني قام بنشر أكتوبر 27, 2014 الكاتب مشاركة قام بنشر أكتوبر 27, 2014 مرفق الملف المشكلة فى تبويب close رابط هذا التعليق شارك More sharing options...
وائل احمد المصري قام بنشر أكتوبر 27, 2014 مشاركة قام بنشر أكتوبر 27, 2014 بعد اذن اخويا ياسر استبدل Sheets("close").Range("l20")= TextBox94.Value ب Sheets("close").Range("l20").Value = TextBox94.Value وشوف ح تظبط معاك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 27, 2014 مشاركة قام بنشر أكتوبر 27, 2014 السهل الممتنع (وائل المصري ) صاحب كل حصري رابط هذا التعليق شارك More sharing options...
وليد عبدالغني قام بنشر أكتوبر 27, 2014 الكاتب مشاركة قام بنشر أكتوبر 27, 2014 للاسف وائل باشا لم تضبط اعتقد ان المشكلة فى التعليمات البرمجية لورقة 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 ليعمل بشكل افضل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.