كود اضافة ارقام تسلسلية بالشيت

[الجازع]

اخواني الاعزاء

 

المطلوب هو كود لاضافة ارقام تسلسلية في العمود A في حالة تم ادخال بيانات في العمود B

 

ولكم جزيل الشكر والتقدير...

اوقام تسلسلية.rar

[رجب جاويش]

السلام عليكم

هل تقصد هكذا

 

اوقام تسلسلية.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم /  jazea

 

بعد اذن الاستاذ الفاضل / رجب جاويش ----- حفظه الله

ولاثراء الموضوع

تفضل اخي المرفق حل آخر باستخدام الاكواد ( كود من اعمال احد الاخوة بالمنتدي ولكن لا اعلم الاسم )

تفضل المرفق

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

 

الترقيم التلقائي بالكود.rar

 

 

[الـعيدروس]

السلام عليكم

 

بعد اذن الاساتذه الافاضل

 

او بهذ الشكل

طبعا الكود في حدث الورقة

 

Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
  If .Column = 2 And .Row > 1 Then
  .Offset(0, -1) = IIf(IsNumeric(.Offset(-1, -1)), .Offset(-1, -1), 0) + 1
  End If
 End With
End Sub

 

[رجب جاويش]

أخى الحبيب / حمادة عمر

أخى الحبيب / عباد

 

تسلم الأيادى والإبداعات

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

[الجازع]

اشكركم

يعجز لساني عن الشكر

هو المطلوب بالضبط

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

 

كما ما هو مطلوب بالمشاركة السابقة

http://www.officena.net/ib/index.php?showtopic=45434

وشكرا

[الجازع]

للرفع