كود صغير جدا و لكن مفيد جدا_معادلة ادراج تسلسل تلقائى

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة   كود جميل من سطر واحد

 

 مشاركة من الفاضل أ / 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

 

و لا تنسونا من صالح الدعاء

تحياتى

 

تم تعديل يناير 17, 2017 بواسطه جلال الجمال_ابو أدهم