الترحيل الى عدة اوراق عمل مع الترقيم التلقائي لكل ورقة عمل

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

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

الكود:

TextBox1.Value = Application.WorksheetFunction.Max(ActiveSheet.Range("A2:A1000")) + 1

مجدى يونس كتب:

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

الكود:

TextBox1.Value = Application.WorksheetFunction.Max(ActiveSheet.Range("A2:A1000")) + 1

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