إبراهيم ابوليله قام بنشر أكتوبر 30, 2012 قام بنشر أكتوبر 30, 2012 الاخوه الافاضل تحيه طيبه وبعد ارجو ادراج الاسماء فى كومن بوكس عن طريق تسمية النطاقاتCOMB.rar
رجب جاويش قام بنشر أكتوبر 30, 2012 قام بنشر أكتوبر 30, 2012 السلام عليكم هذا هو الكود المطلوب Private Sub UserForm_Activate() With Me.ComboBox1 .Column = Range("list").Value End With End Sub COMB.rar
rahekk قام بنشر أكتوبر 30, 2012 قام بنشر أكتوبر 30, 2012 الاخ العزيز رجب جاويش نريد المثال بأكسيل2003 لو أمكن
رجب جاويش قام بنشر أكتوبر 30, 2012 قام بنشر أكتوبر 30, 2012 تفضل أخى الفاضل نسخة على 2003 COMB2003.rar
إبراهيم ابوليله قام بنشر أكتوبر 31, 2012 الكاتب قام بنشر أكتوبر 31, 2012 (معدل) الاخ رجب والله ياخى العزيز لا اجد من الكلمات ما تستحق غير ان اقول لك جعل الله مشاركاتك فى ميزان حسناتك وجعلك نافعلا بعلمك ولكن ماذا لو اردنا تغير النطاق ليكون من b4 الى b12 اى ان النطاق سيكون رأسى ماذا سيكون شكل الكود تم تعديل أكتوبر 31, 2012 بواسطه إبراهيم ابوليله
رجب جاويش قام بنشر أكتوبر 31, 2012 قام بنشر أكتوبر 31, 2012 أخى ابراهيم أشكرك جزيل الشكر على هذه الكلمات الطيبة فى الحالة الثانية سيكون الكود بالشكل التالى Private Sub UserForm_Activate() With Me.ComboBox1 .RowSource = "list2" End With End Sub COMB2.rar
إبراهيم ابوليله قام بنشر أكتوبر 31, 2012 الكاتب قام بنشر أكتوبر 31, 2012 (معدل) الاخ رجب بارك الله فيك ولكنى لا حظت انه مع استخدام معادله OFFSET يحدث خطأ وذلك فى حالة وجود اى خليه من خلايا المدى فارغه شاهد المرفق COMB2(1).rar تم تعديل أكتوبر 31, 2012 بواسطه إبراهيم ابوليله
رجب جاويش قام بنشر أكتوبر 31, 2012 قام بنشر أكتوبر 31, 2012 أخى ابراهيم مع تعديل بسيط فى معادلة offset يعمل الفورم بشكل طبيعى =OFFSET(Sheet1!$B$3;0;0;1;SUBTOTAL(3;Sheet1!$B$3:$G$3)) COMB2.rar
إبراهيم ابوليله قام بنشر نوفمبر 1, 2012 الكاتب قام بنشر نوفمبر 1, 2012 الاخ رجب عزرا على الاطاله ولكن يحدث خطأ فى حاله تفريغ البيانات ما عدا خليه واحده لاحظ المرفقCOMB2(2).rar
إبراهيم ابوليله قام بنشر نوفمبر 1, 2012 الكاتب قام بنشر نوفمبر 1, 2012 الاخ رجب بارك الله ولكن ارجو ان تصبر على طلباتى انا اريد عند ضهور الكومو بوكس تكون فارغه وهذا لا يحدث الا اذا كانت هناك اكثر من خليه مملؤه بالبيانات
رجب جاويش قام بنشر نوفمبر 1, 2012 قام بنشر نوفمبر 1, 2012 أخى ابراهيم اطلب كما تشاء ايه رأيك فى هذه الفكرة COMB22222.rar
إبراهيم ابوليله قام بنشر نوفمبر 1, 2012 الكاتب قام بنشر نوفمبر 1, 2012 الاخ رجب هيا فكره جميله بس انا كل غرضى ان ميكونش فيه فراغات عند الاختيار
إبراهيم ابوليله قام بنشر نوفمبر 2, 2012 الكاتب قام بنشر نوفمبر 2, 2012 الاخ رجب بارك الله فيك كود جميل ورائع
إبراهيم ابوليله قام بنشر نوفمبر 2, 2012 الكاتب قام بنشر نوفمبر 2, 2012 الاخ رجب لى سؤال بسيط انشاء الله بالنسبه لهذا الكود 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
رجب جاويش قام بنشر نوفمبر 2, 2012 قام بنشر نوفمبر 2, 2012 سيكون بالشكل التالى Private Sub UserForm_Activate() Dim cl As Range, x As Integer x = Application.WorksheetFunction.Count(Range("List")) If x > 1 Then Me.ComboBox1.Column = Range("list2").Value Else For Each cl In Range("List") If cl <> "" Then Me.ComboBox1.Value = cl End If Next End If End Sub COMB22222.rar
إبراهيم ابوليله قام بنشر نوفمبر 4, 2012 الكاتب قام بنشر نوفمبر 4, 2012 الاخ رجب فعلا والله كان حديثا شيقا وممتع ولقد استفدت منه الكثير وأسأل الله ان يوفققك لما يحبه ويرضاه والا يحرمنا من علم ويجعل دائما صبورا كما انت فى مشاركاتك ليستفيد منك الكل
رجب جاويش قام بنشر نوفمبر 4, 2012 قام بنشر نوفمبر 4, 2012 أخى ابراهيم ألف شكر أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان