الترقيم التسلسلي التلقائي في اليوزرفورم User Form في اكسيل VBA - الدرس الرابع

[@هيبةفن]

دروس قمة في الروعه والإتقان وشرح مبسط من حضرتك نسأل الله أن يزيدك من واسع فضله علما وعملا ... حبيت أسأل حضرتك عن طريقة أن يكون الترقيم التلقائي المتسلسل بأكثر من خانة بحيث يكون الرقم ثلاثي أو رباعي مثلا يبدأ 1000 بدلا من 1 فقط ثم يتسلسل تلقائيا مع إضافة كل إسم جديد 1001 - 1002 - 1003 وهكذا

[@amraref9116]

بصراحه مش عارف اشكرك ازاي علي الشيت
هل الشيتات كلها مربوطه ببعضها

[@abbesabr4163]

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

[@a.a.u]

لا يمكننا التعديل علي مفتاح البحث بمعني انا لو بعمل بحث او استدعاء للعميل عن طريق رقم العميل اذا لا يمكنني للتعديل علي رقم العميل اما باقي البيانات المرتبطة برقم العميل يمكن تعديلها

[@petermagdy1212]

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

[@a.a.u]

حاول تراجع علي الكود تاني او ابعتلي الكود الي انت كاتبه اشوفة و اعرف المشكلة فين

[@ag-sports93]

لم يتم كتابة اسم sheet ليه

[@mohammedalhamza9629]

بيعد مرة وحدة ويوقف يبقى يكرر الرقم

[@a.a.u]

راجع الكود تاني او ابعتلي الكود و نشوف الخطاء فين

[@rahimkhial71]

خطأ لم يكت لي و قف عند الرقم الأول
If Me.TextBox2.value"" Then
Me.TextBox1.Value = WorkSheetFunction.CountA(Range("A2:A1000"))+1
Else
Me.TextBox1.Value =""
End If