الترقيم الالي التسلسلي للخلايا من خلال الفورم

[زياد عبد الجليل]

السلام عليكم و رحمة الله تعالى و بركاته 

الى جميع الاخوة و بالخص الاستاذ ربيع شوقي و الاستاذ طلعت  او مساعدتي في الترقيم الالي للخلايا حيث بمجرد ادراج الرقم 1 في التاكس بوكس يبدأ الترقيم مثلا من 1 الى 10 بالتسلسل في خلية في الاكسيل بشرط يرقم الصفوف التي بها كتابة اي بمجرد انتهاء الصفوف المكتوبة يتوقف 

و اذا توقف في الترقيم عند العدد 10 يواصل الترقيم في الصفحة الثانية من 11 الى 20  و هكذا اليكم الملف المرفق

الترقيم الالي للخلايا عن طريق تاكس بوكس في الفورم.rar

[زياد عبد الجليل]

وبارك الله في الجميع شششششششششششششششكككككككككككككككررررررررررررررراااااااااااااااا

[شوقي ربيع]

السلام عليكم

اولا من الافضل عدم توجيه طلباتك الى اعضاء معينين لان هذا ممكن يمنع من يريد المساعدة من مساعدتك وايضا من  الممكن ان من طلبت منهم المساعدة  يكونو غير متوفرين

وهذا الحل لملفك

Dim lLrw1 As Long, lLrw2 As Long
If TextBox1 = "" Then Exit Sub
Dim b As Long: b = Me.TextBox1.Value

For Each ws In ThisWorkbook.Sheets
    lLrw1 = ws.Cells(1, "c").End(xlDown).Row + 1
    lLrw2 = ws.Cells(Rows.Count, "c").End(xlUp).Row
Dim i As Long: For i = lLrw1 To lLrw2
               ws.Range("B" & i) = b
               b = b + 1
               Next
Next

هذا الكود يعمل على كافت الشيتات الموجودة في الملف

فقط حدد رقم البداية في التكست بوكس واضغط الزر

 

الترقيم الالي للخلايا عن طريق تاكس بوكس في الفورم.rar

[زياد عبد الجليل]

السلام عليكم استاذ شوقي بارك الله فيك 

عظمة على عظمة يا استاذ انت رائع و بارع الله يحفظك ان شاء الله