السلام عليكم
الاخ الكريم / mnaj80
بارك الله فيك
يثمكنك استخدام هذا الكود لعمل التسلسل التلقائي في اي فورم في حدث الفورم Activate
والكود التالي يضع الرقم التسلسلي كل مرة في تكست بوكس 1 في شيت 1 ويمكنك تغييره كما تريد حسب الحاجة
او قم بارفاق المثال الذي تريده للعمل عليه
واليك اخي موضوع آخر ... جاري تكملته سيفيدك كثيرا في مواضيع الفاتورة ... قم بالاطلاع عليه عله يفيدك
http://www.officena.net/ib/index.php?showtopic=46420
Private Sub UserForm_Activate()
Sheets("sheet1").Select
T = Cells(Rows.Count, 1).End(xlUp).Row
TextBox1 = Val(Cells(T, 1)) + 1
End sub
جزاك الله خيرا