تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة كود جميل من سطر واحد
مشاركة من الفاضل أ / h63
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 1) = Target.Row
End Sub
مرفق الملف و الشرح
New__________Microsoft_Excel.rar
و مشاركة اخرى من الفاضل أ / أبوعبد الله_اكسلجى
تسلسل تلقائى مع الاخذ فى الاعتبار الصفوف الفارغه و لا يتأثر بحذف الصفوف
=IF(B2<>"";ROW()-1;"")
تسلسل تلقائى مسلسل لا يأخذ الفراغات في الاعتبار و لا يتأثر بحذف الصفوف
=IF(G2<>"";COUNTA($G$2:G2);"")
مرفق الملف و الشرح
AUTO_SERIAL_WITH_FORMULAS.rar
و لا تنسونا من صالح الدعاء
تحياتى