قائمة فرعية من قائمة فرعية من قائمة رئيسية بالاكواد (قوائم منسدلة بالاكواد)

[عادل ابوزيد]

الاساتذه الكرام

استكمالا لموضوع القوائم المنسدلة بالكود كما بالمشاركة الآتية

http://www.officena.net/ib/index.php?showtopic=46757

واعمالاً بنصحية استاذى رجب جاويش بجعل الموضوع مستقل

بفقد قمت باضافة قائمة فرعية من قائمة فرعية استناداً الى الكود الرائع للاستاذ رجب جاويش

إلا اننى عجزت عن حل الآتى :

1 - ترتيب عناصر القائمة ترتيب ابجدى بحيث عند فتح القائمة تظهر العناصر مرتبة ابجدياً رغم انها فى الورقة غير مرتبة

2 - عند اختيار شركة او صنف ليس له قائمة فرعية تظهر رسالة ارجو ايجاد حل لها لعدم اظهارها

3 - امكانية الكتابة فى المربع مع امكانية الاستكمال من خلال الفوائم

والملف المرفق يوضح ذلك

تقبلوا تحياتى وشكرى

قائمة فرعية من قائمة فرعية من قائمة رئيسية.rar

تم تعديل مايو 3, 2013 بواسطه عادل ابوزيد

[رجب جاويش]

أخى الفاضل / عادل ابو زيد

تفضل ما تريد

Private Sub ComboBox1_Click()
Me.ComboBox2.Clear
On Error Resume Next
i = Application.WorksheetFunction.Match(ComboBox1.Value, Range("B1:IV1"), 0) + 1
LR1 = Cells(Rows.Count, i).End(xlUp).Row
Range(Cells(2, i), Cells(LR1, i)).Sort key1:=Cells(2, i), Order1:=xlAscending
For T = 2 To LR1
If Cells(T, i) <> "" Then
Me.ComboBox2.AddItem Cells(T, i)
End If
Next
End Sub
Private Sub ComboBox2_Click()
Me.ComboBox3.Clear
On Error Resume Next
i = Application.WorksheetFunction.Match(ComboBox2.Value, Range("b1:IV1"), 0) + 1
LR2 = Cells(Rows.Count, i).End(xlUp).Row
Range(Cells(2, i), Cells(LR2, i)).Sort key1:=Cells(2, i), Order1:=xlAscending
For y = 2 To LR2
If Cells(y, i) <> "" Then
Me.ComboBox3.AddItem Cells(y, i)
End If
Next
End Sub

Private Sub UserForm_Initialize()
LR = [A1000].End(xlUp).Row
For Each cl In Range("A2:A" & LR)
Range("A2:A" & LR).Sort key1:=Range("A2"), Order1:=xlAscending
If cl <> "" Then
Me.ComboBox1.AddItem cl
End If
Next
End Sub

Book1.rar

تم تعديل مايو 4, 2013 بواسطه رجب جاويش

[حمادة عمر]

الاستاذ العملاق / رجب جاويش

بارك الله فيك

كود ولا اروع ولا اجمل من كدة

بالفعل طريقتك راائعة

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

[عادل ابوزيد]

استاذى الكبير رجب جاويش

من اعماق قلبى احييك واشكرك وادعو لك بتمام الصحة والعافيه والرزق الوفير والبركه لك وفيك ولاولادك

واسمح لى فى طلب

ان يتم الترتيب فى القائمه المنسدلة فقط ( بمعنى عند فتح القائمه تكون مرتبة ) وليس فى ورقة الاكسل

[رجب جاويش]

أخى الحبيب / حمادة عمر ( أبو الأمورة سما )

جزاك الله كل خير أخى الحبيب على مرورك العطر وكلماتك الطيبة

[رجب جاويش]

أخى الفاضل / عادل

جزاك الله كل خير أخى الفاضل على كلماتك الطيبة

وان شاء الله أحاول تنفيذ طلبك الثانى

[شوقي ربيع]

السلام عليكم

استاذي رجب حاويش

مشاء الله عليك كود متميز

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

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

أستاذى ( رجب جاويش ) الأستاذ دائما أستاذ فى كل شئ بارك الله فيك أستاذى وأدامك الله لهذا الصرح

[أحمد فؤاد]

أستاذي الغالي / رجب جاويش

 بارك الله فيك فكرة رائعة جدا

[رجب جاويش]

أخى الفاضل / شوقى ربيع

شكرا جزيلا أخى الفاضل على هذا المرور العطر والكلمات الطيبة

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

[رجب جاويش]

أخى الحبيب/ جمال ( أبو محمود )

شكرا جزيلا أخى الحبيب على هذا المرور العطر والكلمات الطيبة

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

[رجب جاويش]

أخى الفاضل / أحمد فؤاد

شكرا جزيلا أخى الفاضل على هذا المرور العطر والكلمات الطيبة

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

[رجب جاويش]

أخى الفاضل / عادل

تفضل ما تريد

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

 

 

قائمة فرعية من قائمة رئيسية داخل فورم مرتبة أبجديا فى الفورم فقط.rar

[حمادة عمر]

الاستاذ العملاق / رجب جاويش

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

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

 

[عادل ابوزيد]

استاذنا القدير رجب جاويش

اجمل ما فى الحياه اننا نحيا لله وان الله يحب من يحب اخاه فيه والعبد الفقير يحبكم فى الله

والاخلاص فى العمل والاخلاص للناس درجه عاليه فى حب الله والعباد

زادكم الله اخلاصاً وحباً فيه وفى الناس ورفع الله من شانك وشان من تحب

[حليم ناصر]

شكرا على هذه المعلومات

 

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

[رجب جاويش]

أخى الحبيب / حمادة عمر ( أبو الأمورة سما )

مرورك هذا شرف كبير لى

شكرا جزيلا أخى الحبيب

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

[رجب جاويش]

أخى الفاضل / عادل

جزاك الله كل خير أخى الفاضل على الكلمات العطرة والدعاء الطيب

وأثابك الله بمثل دعائك لى وأكثر منه

[رجب جاويش]

أخى الفاضل /halimnacer

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