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

الاخ ابو حنين هل يمكن وقف عمل الكود اذا كانت اخر خليه تحتوى على اسم الاجمالى وبذك نتفادى تكرار كتابة الاجمالى فى كل مره يتم الضغط فيها على الزر

الاخ ابو حنين الاخ محمود عمل رائع لكل منكما وبارك الله فيكما

الاخوه الكرام اريد كود يقوم بكتابة الاسم اسفل اخر خليه مستعملهالاجمالى.rar

الاخ رجب بارك الله فيك وفعلا هذا هو المطلوب

الاخ رجب والله ما اقدر اقول غير ايه الجمال ده والبساطه دى فى الكود ده ولكن هل يمكن استخراج الاسماء بدون تكرار طبعا ايضا بالكود ثم عمل جمع لك اسم فى كود واحد

الاخوه الافاضل بعد سلام الله عليكم ورحمة الله وبركاته اريد كود يقوم باستخراج اجمالى كل فرد كود جمع.rar

الاخ الفاضل رجب عزرا فلم ارى المشاركه رقم 7 وفعلا الكود يفى بالغرض واسرع بكثير بارك الله فيك

اخى الحبيب رجب ارجو ارفاق شيت به الكود بارك الله فيك

الاخ رجب وبعد المحاوله البسيطه منى اعتقد ان الحل سيكون بالشكل الاتى مع اننى اصر على ان ارى الحل من وجهه نظرك انت اخى الحبييب كود تسلسل(1).rar

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

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

اريد ان اعرف اذا كان اوفيس 2013 يعمل على نسخة اكس بى ام لا

اخى الفاضل رجب عزرا فانا اريد ايضا ان يتم عمل تسلسل فى العمود التاسع بالاضافه الى التسلسل الذى تفضلت به ويكون التسلسل الذى سيظهر بالعمود التاسع 1-2-3-4-5-6 اى انه تسلسل طبيعى جدا

الاخ رجب بارك الله فيك وفعلا الكود جميل وشغال تمام ولكنى اريد ان اعرف اهميه ومعنى If Cells(i, 7) = cl Then Cells(i, 8) = cl.Offset(0, 1)

الاخ رجب فعلا والله كان حديثا شيقا وممتع ولقد استفدت منه الكثير وأسأل الله ان يوفققك لما يحبه ويرضاه والا يحرمنا من علم ويجعل دائما صبورا كما انت فى مشاركاتك ليستفيد منك الكل

وفعلا اخى الحبيب يوسف مع كل الحق

الاخ رجب لى سؤال بسيط انشاء الله بالنسبه لهذا الكود Private Sub UserForm_Activate() Dim cl As Range, x As Integer x = Application.WorksheetFunction.Count(Range("B3:G3")) If x > 1 Then Me.ComboBox1.Column = Range("list2").Value Else For Each cl In [b3:G3] If cl <> "" Then Me.ComboBox1.Value = cl End If Next End If End Sub ماذا لو اردنا وضع الزر فى شيت اخر وليكن شيت 2 والابقاء على تسمية النطاق فى شيت واحد كيف سيكون شكل الكود COMB22222_2.rar

الاخ رجب بارك الله فيك كود جميل ورائع

تفضل اخىتحويل الاسم.rar

الاخ رجب هيا فكره جميله بس انا كل غرضى ان ميكونش فيه فراغات عند الاختيار

الاخ رجب بارك الله ولكن ارجو ان تصبر على طلباتى انا اريد عند ضهور الكومو بوكس تكون فارغه وهذا لا يحدث الا اذا كانت هناك اكثر من خليه مملؤه بالبيانات

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

الاخ رجب عزرا على الاطاله ولكن يحدث خطأ فى حاله تفريغ البيانات ما عدا خليه واحده لاحظ المرفقCOMB2(2).rar

الاخ بن عليه بارك الله فيك حل رائع وجميل بالمعادلات ولكن هل يمكن عمل ذلك بالاكواد

الاخ رجب بارك الله فيك ولكنى لا حظت انه مع استخدام معادله OFFSET يحدث خطأ وذلك فى حالة وجود اى خليه من خلايا المدى فارغه شاهد المرفق COMB2(1).rar