السلا م عليكم ورحمة الله وبركاته
المرجومن الأحوة تعديل الكود اريد بمجرد الكتابة في الخلية e يتم نزول الترقيم تلقائي في الخلية c10:الىc 60
انا هو لي الأخ الفضل رجب جاويش جزاه الله خير
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range, LR As Integer
LR = Cells(Rows.Count, 2).End(xlUp).Row
Set Rng = Range(Cells(1, 1), Cells(LR, 1))
Rng.Formula = "=IF(NOT(ISBLANK(B1)),COUNTA(B$1:B1),"""")"
End Sub
الترقيم التلقائي.zip