mohamedamrawy

كوود الترحيل من الليست بوكس باليوزرفورم الي شيت الاكسيل يعمل بشكل صحيح علي فاتورة مبيعات ولكم جزيل الشكر والتقدير

تحية طيبه استاذ / ابوعيد اود توضيح ان المرفق مجرد جزء من المصنف لكبر حجمه والهدف توضيح المشكله الرساله تظهر خطا run time eroor 2417417848 لا تظهر الرساله دائما ولكنها عند تسجيل عدة عمليات ترحيل تظهر ارجو فحص كوود الترحيل ... تم ادراج قائمة باسماء العملاء 55.xlsm

اخي الكريم تحيه طيبه وبعد عند الضغط علي زر save يتم الترحيل لكن احيانا يتوقف وتظهر رساله خطا (80010108)run time eroor 2147417848 الصوره المرفقه توضح شكل الترحيل في حاله الخطا حيث لا يتم ادراج المعادلات

ارجو النظر في المصنف المرفق لتصحيح الكوود لمعرفه الخطا احيانا عندالترحيل تظهر خطا 55.xlsm

صورة من الخطا للتوضيح احيانا يظهر ارجو الرد علما بان ادراج المعادلات في حاله الخطا يتوقف

55.xlsm

ارجو الرد

المرفق صورة مصغره للتوضيح ارجو النظر في الكود احيانا عند الترحيل تظهر رساله خطا ويظهر المؤشر باللون الاصفر علي TEXTBOX1 ارجو النظر في الكود 55.xlsm

خالص الشكر للاساتذة المحترمين

احيانا عندالترحيل تظهر المشكله كما بالصورة ارجو الرد للضرورة On Error Resume Next Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If Me.ComboBox4.Value = "" Then MsgBox "يجب تحديد نوع الدفع", vbExclamation, "تنبية هام": Exit Sub If Me.ComboBox2.Value = "" Then MsgBox "يجب ادخال اسم العميل", vbExclamation, "تنبية هام": Exit Sub If Me.o1.Value = "" Then MsgBox "يجب ادخال بيانات الفاتورة", vbExclamation, "تنبية هام": Exit Sub Sheets("مبيعات تبوك").Activate Lrow = Range("a" & Rows.Count).End(xlUp).Row + 1 For v = 0 To ListBox1.ListCount - 1 Cells(Lrow, 1).Value = TextBox16.Value Cells(Lrow, 2).Value = CDate(TextBox1.Value) Cells(Lrow, 8).Value = l.Caption Cells(Lrow, 9).Value = ComboBox3.Value Cells(Lrow, 10).Value = ComboBox2.Value Cells(Lrow, 7).Value = ListBox1.List(v, 0) Cells(Lrow, 4).Value = ListBox1.List(v, 3) Cells(Lrow, 5).Value = ListBox1.List(v, 2) Cells(Lrow, 6).Value = ListBox1.List(v, 1) Cells(Lrow, 3).Value = ListBox1.List(v, 4) Lrow = Lrow + 1 Next v If Me.ComboBox4.Value = "نقدي" Then Sheets("الصندوق").Activate lrows = Sheets("الصندوق").Cells(Rows.Count, "A").End(xlUp).Row Cells(lrows + 1, 1) = CDate(Me.TextBox1.Value) Cells(lrows + 1, 2) = Me.o1.Value Cells(lrows + 1, 5) = Me.ComboBox2.Value Cells(lrows + 1, 6) = Me.ComboBox3.Value Cells(lrows + 1, 7) = Me.l.Caption MsgBox "حفظ فاتورة بيع نقدي باسم" & ComboBox2, vbInformation, " تم بنجاح " End If If Me.ComboBox4.Value = "اجل" Then Sheets("المدينين").Activate Lrow = Sheets("المدينين").Range("a" & Rows.Count).End(xlUp).Row + 1 For v = 0 To ListBox1.ListCount - 1 Cells(Lrow, 1).Value = CDate(TextBox1.Value) Cells(Lrow, 2).Value = ComboBox3.Value Cells(Lrow, 3).Value = ComboBox2.Value Cells(Lrow, 8).Value = ListBox1.List(v, 3) Cells(Lrow, 4).Value = ListBox1.List(v, 0) Cells(Lrow, 7).Value = ListBox1.List(v, 1) Cells(Lrow, 6).Value = ListBox1.List(v, 2) Lrow = Lrow + 1 Next v MsgBox " حفظ فاتورة بيع اجل في حساب " & ComboBox2, vbInformation, "تم بنجاح" End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Unload Me UserForm3.Show End Sub

لدي فورم كشف حساب عميل عن طرق الليست بوكس واريد جمع الاعمدة في الليست بوكس طلب اخر بعد اذن السادة الاعضاء عند عرض التقرير بالليست بوكس احيانا يعرض الليست بوكس بالمقلوب من اليمين للشمال وبرجع اعمل unload حتي يعرض القائمة بالاتجاه الصحيح

استاذ احمد يوسف مشكورا علي النظر في الامر وبعتز عن عدم رفعي للملف ولكن المشكله لدي ان الترحيل يتم ولكن احيانا يتوقف وتظهر الرساله وتتوقف معها عمل المعادلات

عند الترحيل من الفورم الي الاكسيل تظهر رساله run time error 1004 ووتتوقف المعادلات الرساله كما موضح بالصورة.

مشكور استاذ بن علية حاجي تم حل المطلوب

عند اضافة صنف جديد تكرر نفس الرصيد للصنف بنفس ارقام الصفوف ارجو المساعدة المصنف1.xlsx

الكوود شغال ولكن عند الخروج من الفورم والرجوع اليه تاني واعاده الترحيل يتوقف الكوود وتظهر مشكلة وعند الضغط على زر f5 يرحل لكن تتوقف المعادلات ولا تعمل الا في حالة اعادة تشغيل الاكسيل برنامج.xlsm

برنامج.xlsm

ارجو النظر في الملف المرفق وتوضيح او حل المشكلة الترحيل من اليوزرفورم الي الاكسل احيانا عند الترحيل يفتح محرر الاكواد ويظهر الكوود وعند الضغط على زر f5 يسجل الكوود لكن تتوقف المعادلات ولا تعمل الا في حالة اعادة تشغيل الاكسيل ارجو الرد ولكم جزيل الشكر برنامج.xlsm

في انتظار الرد

مطلوب كوود اخفاء إطار اليوزرفورم يعمل على نظام 64

قمت بحذف جميع الارتباطات في الشيت ولكن عند اظهار الخصائص مازالت موجوده ةعند الحذف او التاكيد يعطي مرجع غير صالح

في انتظار الرد افادكم الله

الملف المرفق عند الترحيل من اليوزرفورم الي الاكسل احيانا يتعطل الكوود بعد عدة عمليات وتتوقف المعادلات وتعطي ناتج صفر وتحدث المشكله عند الخروج من الفورم الي الشيت واعاده الترحيل يتوقف الكوود كما ارجو تصحيح معادله الرصيد تقوم بادراج نفس قيمة الخلايا برنامج.xlsm

لدي مصنف اكسل بسجل بواسطة اليوزرفورم ولكن عند الدخول لمصنف الاكسل والرجوع لليوزرفورم والتسجيل مره اخري يفتح كوود الترحيل وعند الضغط على زر f5 يسجل لكن تتوقف المعادلات ولا تعمل الا في حالة اعادة تشغيل الاكسيل

الاستاذ احمد ارجو النظر مشكله الترحيل