ارجو المساعده بكود او معادله لعمل تسلسل

[إبراهيم ابوليله]

الاخوه الافاضل

تحية طيبه وبعد

اريد كود او معادله لعمل تسلسل كما هو موضح فى المرفق

تسلسل.rar

[الشهابي]

أخي العزيز / إبراهيم أبو ليلة

هل تريدها بهذه الطريقة

تسلسل.rar

[أبو حنــــين]

جرب الطريقة التالية

تسلسل.rar

[إبراهيم ابوليله]

الاخ الشهابى

الاخ ابو حنين

بارك الله فيكما

وعمل رائع لكل منكما

ولكن الاخ ابو حنين

هل يمكن دمج الكودين فى كود واحد

[أبو حنــــين]

نعم يمكن ذلك

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then

s = 0

For t = 1 To 500

If Cells(t, 2) > "" Then

s = s + 1

Cells(t, 2).Offset(0, -1).Value = s

End If

Next

End If

End Sub

[الـعيدروس]

السلام عليكم

استخدم هذا الكود في حدث الورقة

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

Application.ScreenUpdating = False

I = 1: R = 2

Do While I < [B1500].End(xlUp).Row: Cells(R, 1).Value = I

I = I + 1: R = R + 1

Loop

Application.ScreenUpdating = True

End If

[أبو حنــــين]

المرفق

تسلسل2.rar

[إبراهيم ابوليله]

الاخوه الكرام

ابو حنين

عباد

بارك الله لكما

ومشكورين على العمل الرائع