اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

قائمة منسدلة من قائمة أساسية من خلال الفورم


الردود الموصى بها

تفضل أخى

Private Sub ComboBox1_Click()
Me.ComboBox2.Clear
i = Application.WorksheetFunction.Match(ComboBox1.Value, Range("B1:IV1"), 0)
LR1 = Cells(Rows.Count, i + 1).End(xlUp).Row
For T = 2 To LR1
If Cells(T, i + 1) <> "" Then
Me.ComboBox2.AddItem Cells(T, i + 1)
End If
Next
End Sub

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

Book1.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

بارك الله فيك فعلا هو ده المطلوب

زادك الله من علمه ونفع بك الإسلام والمسلمين إن شاء الله

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

معلش طمع مني لو تطبق لي الحل في ملف وكيفية تكرار الكمية ( 30 سطر ) في الفورم

شكرا لك مرة ثانية

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

تلميذك / أحمد فؤاد

رابط هذا التعليق
شارك

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

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

أخى الفاضل

الكود يعمل على عدد من الأسطر كما تريد

جرب زيادة الأسطر بأى عدد وسوف يعمل الكود بشكل سليم ان شاء الله

رابط هذا التعليق
شارك

الاستاذ الفاضل رجب

كود رائع من استاذ رائع

ارجو لاثراء الموضوع ان يتم ترتيب القائمة المنسدلة ترتيباً ابجدياً تصاعدياً لسهولة البحث

وهل يمكن عمل قائمة فرعية اخرى من القائمة الفرعية بمعنى لو الاصناف بها موديلات لكل شركة فهل يمكن ذلك

بمعنى أخر

يتم اختيار الشركة ثم اختيار الصنف الخاص بالشركة ثم اختيار الموديل الخاص بهذا الصنف

تقبل منى تحياتى واحترامى

رابط هذا التعليق
شارك

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

شكرا جزيلا علي إهتمامك بارك الله فيك

مرفق ملف لو سمحت كيف يتم تطبيق الكود عليه

آسف أزعجتك كثيرا

بارك الله فيك

Book1.rar

تم تعديل بواسطه amfouad555
رابط هذا التعليق
شارك

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

فعلا هو ده المطلوب

بشكرك كثيرا علي ماتقدمه لي ولزملائي في هذا المنتدي

بارك الله فيك ونفع بك الإسلام والمسلمين

وأتمني لك حياة سعيدة وهنية وربنا يبارك لك في مالك وأولادك إن شاء الله

ربنا يتقبل منا ومنك الأعمال الصالحة

تلميذك / أحمد فؤاد

رابط هذا التعليق
شارك

أخى الحبيب / أبو سما

بارك الله لك فى سما

وزرقك خير الدنيا والآخرة

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

رابط هذا التعليق
شارك

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

الاستاذ والاخ الحبيب رجب جاويش ما شاء الله تبارك الرحمن

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

تقبل دعواتي لك بالصحة وتمام العافية

78642086675212568292.gif

 

رابط هذا التعليق
شارك

أخى الحبيب / عباس السماوي

شرف كبير لى أخى هذا المرور العطر

جزاك الله كل خير أخى الحبيب على هذا الدعاء الطيب

أخى الحبيب

أدام الله هذه المحبة بيننا خالصة لوجهه الكريم

رابط هذا التعليق
شارك

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

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

لي سؤال فني لو سمحت ( بسيط بنسبة لحضرتك )

لوكانت الأصناف في صفحة ثانية مثلا sheet 3 والفورم في sheet1

آسف علي إزعاجك

شكرا 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information