السلام عليكم
في كود زر البحث ButtonFind_Click
غير السطر الاخير هذا
If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0
بهذا السطر
If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = ii - 1
تحياتي
وعليكم السلام
اضف التسميات الجديدة الى القائمة اسماء الشركات والموسسات
وعند فتح الفورم ستظهر لك الاسماء المضافة
لان لازم تكون التسمية ماخوذة من القائمة علشان انت تستخدم هذه القائمة في صفحة الترحيل عمود المستفيد
لازم تكون الاورق في الملف بنفس ما هي عليه في هذا الملف
يعني مواقع الاعمدة تكون نفسها وما في اي صفوف فاضية بين تسميات رؤوس الاعمدة والجدول
مثل ماهو معمول في ملفك السابق
تحياتي
السلام عليكم
تم عمل فورم لانشاء ورقة باسم الحساب يتضمن الاسم مع رقم الفرع
علشان تكون التسمية والورقة على نسق واحد
وتم عمل كود للترحيل
شاهد المرفق 2010
الحسابات 1.rar
الرقم التسلسلي تحرره انت بداية الكود
' اول رقم تسلسلي
Const No As Double = 300
بالنسبة للاستدعاء تختار الرقم من ComboBox1 ثم تضغط زر الاستدعاء
تاكد من صحة الترحيل والاستدعاء
بعدين نستكمل الباقي
المرفق 2003
tast.rar