الترقيم التلقائي

[a.mannan100]

من الممكن اضافة سلسلة من الارقام بين 1 و 100 بشكل تلقائي في العمود من A1 و حتى  A100

و لكن عند اضافة سطر ما .. هل من الممكن اضافة رقم تلقائي جديد في اكسل مع المحافظة على التسلسل في الارقام لتصبح من 1 الى 101 بعد اضافة السطر الجدبد ؟

و شكرا

[AYMAN Z HARB]

تقصد مثل الملف المرفق ؟

الترقيم التلقائي.xls

[Ali Mohamed Ali]

تفضل

وان لم يكن هذا المطلوب فكان عليك من البداية برفع ملف وتوضيح ما تريده عليه بالتفصيل

 

الترقيم.xlsx

[سليم حاصبيا]

يمكن هذا الكود يحل المشكلة

الكود

Option Explicit

Sub edit_formula()
Application.EnableEvents = False
Dim my_rg As Range
Dim cel As Range
Dim t
Dim r%
t = Range("a1").Formula
Dim lr%: lr = Cells(Rows.Count, 1).End(3).Row
On Error Resume Next
  Set my_rg = Range("a1:a" & lr).SpecialCells(xlCellTypeBlanks)
  If Err.Number <> 0 Then GoTo 1
  On Error GoTo 0
 For Each cel In my_rg
 r = cel.Offset(-1, 0).Row
 t = Replace(t, "A1", "A" & r + 1)
  cel.Formula = t
  t = Range("a1").Formula
 Next
1:
 Application.EnableEvents = True
End Sub
'=====================================

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
edit_formula
End If

End Sub

الملف مرفق

Auto num.xlsm

[a.mannan100]

شكرا للجميع