ادراج ترقيم تلقائى

[رشاد احمد]

الساده الاعضاء والخبراء الكرام .......... السلام عليكم ورحمة الله وبركاته

فى هذا الملف البسيط لحركة الصندوق  نامل المساعده فى ادراج كود او داله فى العمود 1 من اجل الترقيم التلقائى واصلاح رسالة الخطا ان امكن

ملحوظه الاكواد من مشاركات المنتدى واخرين

واشكركم جميعا

الصندوق.xlsm

[عبدالله الصاري]

وعليكم السلام ورحمة الله وبركاته

الملف يطلب باسوورد وكلمة المرور

تحياتي

[وجيه شرف الدين]

استخدم هذه المعادلة لعلها تفى بالغرض

=IF(B4="";"";AGGREGATE(3;6;$B$4:B4))

 

[رشاد احمد]

الباس   123

اليوزر   محمد

اشكرك استاذ وجيه  واسف انى نسيت باقى البيانات لكن اشكرك وانت كالعاده لا تتاخر اكرر شكرى

 

 

لو كود يكون افضل لو سمحت

اشكرك استاذ عبدالله واكرر اسفى على نسيان باقى البيانالت 

محمد

والباس 123

حماية الورقه 1

تم تعديل يوليو 9, 2019 بواسطه رشاد احمد

[وجيه شرف الدين]

اتفضل اخى الحبيب ضع هذا الكود فى حدث الشيت

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
With Sheets(1)
X = Range("b" & Rows.Count).End(xlUp).Rowmaxvalue = 0
For i = 4 To X
If Range("b" & i) <> "" Then
Range("a" & i) = maxvalue + 1
maxvalue = maxvalue + 1
Else
Range("a" & i) = ""
End If
Next
End With
End If
End Sub

 

[رشاد احمد]

تسلم  :  الاستاذ الفاضل وجيه اللهم يجعلك وجيها فى الدنيا والاخره

 

[وجيه شرف الدين]

جزاكم الله خير على كلماتك الطيبة هذه ولكم بمثل مادعوت وزيادة