اريد كود او داله لعمل تسلسل

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

للرفع

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

لاخ الخالدى بارك الله فيك

ولكن ارجو شرح الكود

[أبو العاصم]

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

الكود الجميل ده

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

فيه مشكلة

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

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

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

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

تفضل ياأخى

وكل عام وانت بخير

Sub hima()

'If Target.Column = 3 Then

Range("A5:A10000").ClearContents

s = 0

'متغير يشير الى ان بدايه الترقيم الرقم صفر

For t = 5 To 100

' متغير يشير ان الترقيم سيبدا من السطر الخامس الى السطر 100

If Cells(t, 3) > "" Then

s = s + 1

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

' يعنى ان الترقيم سيظهر فى العمود الثالث ناقصا منه عمودين(اى فى العمود الاول)وهذا على حد علمى

End If

Next

'End If

End Sub

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

الاخ الكريم

تفضل المرفقتسلسل.rar

[جمال عبد السميع]

أليك أخي غالبية معادلات التسلسل التلقائي

جميع معادلات التسلسل.rar

تم تعديل أكتوبر 26, 2012 بواسطه mahmoud-lee

[أبو العاصم]

الاخ ابراهيم والاخ محمود

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

وكل عام وانتم بخير

ولكنى لا اريد موديل

وانما الكود الذى أود التعديل عليه يكون فى حدث الصفحة ولا يتطلب أزرا ويعمل تلقائيا

وبالنسبة للمعادلات فأنا أهرب منها لتخفيف حجم الملف

فدام فضلكم المطلوب مازال مطلوبا

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

اخى الكريم

تفضل المرفق

Book1.rar

[أبو العاصم]

الاخ ابراهيم

بارك الله لك على تعاونك

ولكن الكود الاول الذى طلبت انا التعديل عليه فيه ميزة جيدة

وهى عمل التسلسل فى حالة اللتصفية

اما الكود الذى أرفقته أنت لايعمل مع التصفية

فالرجاء التعديل على الكود الأول أو تعديل الكود الثانى ليعطى التسلسل مع التصفية

وكل عام وانت بخير

[بيسان]

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخي الكريم هذا حل كبداية باستعمال المعادلات... في انتظار حلول أخرى من إخوتنا الكرام... أخوك بن علية تسلسل.rar

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

اود شكركم الشكر الجزيل على هذه المعلومات والجهود التي تقدمونها ولكني فشلت في تطويع هذه المعادلة لعمل تسلسل مشروط باسم العميل حيث يكون التسلسل 1 عند ظهور اسم العميل اول مرة ثم ياخذ التسلسل قيمة 2 عند ظهوره للمرة الثانية و رقم 3 اذا ظهر للمرة الثالثة واذا اختلف اسم العميل يبدا التسلسل من جديد بنفس الطريقة السابقة

ارجو افادتي جزاكم الله خير

[جمال عبد السميع]

أية معادلة أخي قمت بأستخدامها أذكرها

وإذا لم تقم بتحقيق المطلوب قم بتطبيق غيرها فسوف تجد في هذه المشاركة العديد من المعادلات التي يسهل تطبيقها

[بيسان]

تم ارفاق ملف لتوضيح الفكرة

تسلسل بعدة شروط.zip

[بيسان]

السلام عليكم..

اخ محمود انا قمت باستخدام المعادلات اللي ارفقتها بس المشكلة انها بتعطيني تسلسل لكل لكل مدخل على حدة يعني تسلسل للاسماء وتسلسل للطلبات والتسلسل حسب التاريخالتاريخ

احتاج معادلة او كود لعمل تسلسل بدلالة الثلاث متغيرات يعني

اسم العميل ورقم الطلب لاول مرة في نفس الفترة =١

اذا تكرر اسم العميل بطلب مختلف في نفس الفترة =١

اما اذا تكرر اسم العميل مع طلب مكرر في نفس الفترة =٢

ارجو منكم المساعدة يا اخوان لاني بصراحة تعقدت من هذا الموضوع

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