طلب تعديل كود ترقيم تلقائي

[محمد عبدالسلام]

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

طلب تعديل كود ترقيم تلقائي ليعمل من c10 الى c60

 

 

 

   Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, LR As Integer
    If Target.Row > 9 And Target.Column = 5 Then
        Application.EnableEvents = False
            LR = Cells(Rows.Count, "E").End(xlUp).Row
            Set Rng = Range(Cells(10, "C"), Cells(LR, "C"))
            
            Rng.Formula = "=IF(NOT(ISBLANK(E10)),COUNTA(E$10:E10),"""")"
        Application.EnableEvents = True
    End If
End Sub

 

 

 

 

تم تعديل يوليو 17, 2016 بواسطه محمد عبدالسلام

[سليم حاصبيا]

يمكنك استعمال هذه المعادلة 

غلى شرط أن الخلية C9 لا تحتوي على رقم (فقط فارغة او تحتوي على نص)

=IF($D10<>"",MAX($C$9:C9)+1,"")

 

تم تعديل يوليو 17, 2016 بواسطه سليم حاصبيا

[محمد عبدالسلام]

خي سليم حاصبيا جزاك الله خيرا على اهتمامك بالموضوع

ممكن لوسمحت هل من طريقة في تحديد الكود من c10 الى    c60

جزاك الله خيرا وجعله في ميزان حسناتك

 

 

تم تعديل يوليو 17, 2016 بواسطه محمد عبدالسلام

[ياسر خليل أبو البراء]

غير السطر التالي

Set Rng = Range(Cells(10, "C"), Cells(LR, "C"))

ليصبح بهذ الشكل

Set Rng = Range(Cells(10, "C"), Cells(60, "C"))

أي تم استبدال المتغير LR والذي يحدد آخر صف به بيانات بالرقم 60 (المطلوب) ..

وفي هذه الحالة يمكن حذف السطر الخاص بتحديد آخر سطر أي حذف السطر التالي

LR = Cells(Rows.Count, "E").End(xlUp).Row

لأنه لم يعد لك حاجة إلى ذلك

[محمد عبدالسلام]

اخي ياسر خليل أبو البراء جزاك الله خير وبارك الله فيكم وجعله الله في ميزان حسناتك