معادلة او كود لاضافى رقم مسلسل عن الكتابة فى كل صف

[أحمد السيد]

السلام عليكم

محتاج مساعده من اهل العلم والخبره

عاوز كود او معادلة لاضافة رقم مسلسل عند الكتابه فى الصف عند الضغط على انتر بنزل للصف اللى بعده فيظهرلى فى اول خليه فى كل صف رقم المسلسل اللى بيتبع اللى قبله

ولكم منى كل التقدير والاحترام على المساعدة

[الـعيدروس]

السلام عليكم

فرضا ان عمود تسجيل البيانات هو B وعمود المسلسل A

حط هذا الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [B:B]) Is Nothing Then

If Target.Row = 2 Then Target.Offset(0, -1) = 1

Target.Offset(0, -1).Value = Val(Target.Offset(-1, -1)) + 1

End If

End Sub

[أبو إسحاق]

وهذه بالمعادلة

إذا كان العناوين للأعمدة في الخلية A1 و B1 إلخ

تضع المعادلة في الخلية A2

وتسحبها للأسفل إلى الحد الذي تريدة

=IF(B2="";"";SUBTOTAL(3;B$2:B2))

تحياتي

[أحمد السيد]

اخى الفاضل

ALIDROOS ( أبو نصار )

جزاك الله كل خير

ولكنى لا اقدر على تركيب الكود لان العمود ليس a ولكن فى منتصف الشيت سوف ارفع الشيت لتكون الصوره واضحه

-------------------

اما بالنسبة للمعادلة فيوجد بالخليه المقابله اللتى سوف اكتب المعادله بها يوجد بها معادلة ايضا