طلب تعديل كود تسلسل تلقائى

[أبو العاصم]

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

الكود التالى من اعداد المبدع الخالدى

فيه مشكلة

وهى انه لا يقوم بعمل مسلسل وانما يقوم بعمل ترتيب فى المفردات

فلو مثلا الكلمة فى العمود B تكررت يعطيها الرقم هو هو كلما تكررت

هل من تعديل ليقوم بالتسلسل بغض النظر عن تكرار الكلمة

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Set Rn1 = [A4:A20]

Set Rn2 = Rn1.Offset(0, 1)

Rn1.ClearContents

For i = 1 To Rn1.Rows.Count

If Rn1(i) = "" And Rn2(i) <> "" Then

N = N + 1

For ii = i To Rn1.Rows.Count

If Rn2(ii) = Rn2(i) Then Rn1(ii) = N

Next ii

End If

Next i

Set Rn1 = Nothing: Set Rn2 = Nothing

End Sub

والرجاء التعديل على الكود لان فيه ميزتان

انه يعمل مع التصفية

انه يضاف فى حدث الصفحة

[الخالدي]

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

اخي الكريم

جرب المثال المرفق

ربما تجد من الاخوة اكود افضل خاصة من ناحية حدث الصفحة

في أمان الله

تسلسل مع التصفية.rar

[أبو العاصم]

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

جزاك الله خيرا أخى الخالدى

الكود الذى أرفقته جيد إلا فى موضع واحد

وهو عدم اشتمال خلية على بيانات يعطيها تسلسل أيضا

[الخالدي]

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

حسب فهمي للمطلوب جرب المرفق

تسلسل مع التصفية2.rar