(موضوع مميز) مطلوب عمل قائمة منسدلة مرتبطة بقائمة أخرى

[mahmoud_xp]

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

أريد عمل قائمة منسدلة رئيسية (تحتوي على أسماء مؤسسات وشركات) وقائمة أخرى فرعية (تحتوي على أسماء جميع هذه الفروع) بحيث تتغير محتويات القائمة الفرعية لتعرض فقط فروع الشركة أو المؤسسة التي يتم اختيارها من القائمة الرئيسية وليس عرض جميع فروع المؤسسات.

بالمرفقات ملف به شرح كامل للمطلوب

Book2.rar

وشكرا لكم

[عبدالله باقشير]

السلام عليكم

بمجرد الاختيار في الخلية M3

سيغمل الكود

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Y As Integer, R As Integer

If Target.Address = Range("M3").Address Then

   Me.Range("H3:I20").ClearContents

   With Range("قائمة_الفروع")

        For Y = 1 To .Rows.Count

        If IsError(Target.Offset(0, -1)) Then GoTo 1

            If .Cells(Y, 1).Value = Target.Offset(0, -1).Value Then

                Cells(R + 3, "H").Value = .Cells(Y, 2).Value

                Cells(R + 3, "I").Value = .Cells(Y, 3).Value

                R = R + 1

            End If

        Next

    End With

End If


1:

End Sub

قائمة منسدلة مرتبطة بقائمة أخرى.rar

[mahmoud_xp]

عمل رااااااااااااااائع جدا

بالضبط هو ما كنت اريد

ألف شكر يا أستاذ خبور

جعله الله في ميزان حسناتك

ووفقك لخير ما يحب ويرضى

[الحسامي]

السلام عليكم

اخي خبور بارك الله فيك للإبداعات المتميزة

ومن بعد إذنك ولاثراء الموضوع هنا حل أخر بإستخدام الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i, j, k As Integer

If Not Intersect(Target, Range("m3")) Is Nothing Then

 Range("H3:I20").ClearContents

For i = 3 To Cells(Cells.Rows.Count, "a").End(xlUp).Row

  If Target.Value = Cells(i, "a") Then

  R = 3

  For j = 3 To Cells(Cells.Rows.Count, "d").End(xlUp).Row

  If Cells(i, "b") = Cells(j, "d") Then

  For k = 5 To 6

  Cells(R, k + 3) = Cells(j, k)

  Next k

  R = R + 1

  End If

  Next j

  End If

Next i

End If

End Sub

قائمة منسدلة مرتبطة بقائمة أخرى1.rar

[mahmoud_xp]

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

كود رائع مثل كود الأخ خبور والاثنين شغالين تمام

يسلمو ايديكم

[BeeTco]

فتح الله لك أبواب الجنة الثمانية تدخل بما شئت منها

سر على بركة الله وعين الله ترعاك ودعوات المحبين تتلقاك

[طارق محمود]

السلام عليكم

ليس بعد كلام الأساتذة

خبور خير

والحسامي

أي كلام

فقط أيضا للإثراء

مرفق حل بدون أكواد بإستخدام الدالة Indirect

Book2_Tareq.rar

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي الحسامي

و بارك الله فيك اخي طارق

فقط أيضا للإثراء

حل اخر بالمعادلات

بامكانه استعمال الاسم kh_list

كقائمة والذي يحوي على المعادلة

=IF(ورقة1!$L$3="";INDEX(قائمة_الفروع;0;2);OFFSET(ورقة1!$E$2;MATCH(ورقة1!$L$3;INDEX(قائمة_الفروع;0;1);0);;COUNTIF(INDEX(قائمة_الفروع;0;1);ورقة1!$L$3)))

خبور خير

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

[قصي]

فقط أيضا للإثراء

احسن جمله

تعطي الموضوع حلولا متنوعه وتثريها

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

ونعجبني هذه الكلمات فأرسلها لكم جميعا كل باسمه

فتح الله لكم أبواب الجنة الثمانية تدخلون بما شئتم منها

سيروا على بركة الله وعين الله ترعاكم ودعوات المحبين تتلقاكم

[الخالدي]

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

افكار رائعة

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

وللإثراء كون الموضوع بخصوص القوائم المنسدلة,

في المرفق مثال لقائمة منسدلة مفلترة بالمعادلات . وهي ربما تكون مفيدة في حالة البيانات كبيرة.

وعذرا اذا كان المثال خارج طلب صاحب الموضوع

تحياتي

قائمة منسدلة مفلترة.rar

[ياسر خليل أبو البراء]

الله أكبر ولله الحمد

كم هائل من الحلول الرائعة والمدهشة

جزاكم الله عنا خير الجزاء

[faredq]

السلام عليكم

أين يكتب الكود في الاكسل وكيف يظهر الزر المنسدل

وشكرا

[طارق محمود]

السلام عليكم

أخي العزيز

مرحبا بك بين إخوانك

أنصحك بتصفح المنتدي قدر ماتستطيع ،ستجد أكثر بكثير مما تسألعنه

لكن

كإجابة لك سريعا

أين يكتب الكود في الاكسل

يكتب في محرر الفيجوال بيزيك

تستطيع فتحه بالضغط علي Alt-F11

وكيف يظهر الزر المنسدل

إن كان عندك بيانات تريد تصفيتها فعليك بالتالي

ظلل البيانات ثم Data ثم Filter ثم Auto Filter

تم تعديل يوليو 31, 2010 بواسطه TareQ M

[faredq]

بارك اللة فيك أخي

ولكن اكمل سؤالي بسؤال وهو هل يمكن ان استعمل لغة الدلفي بدل الفجول وكيف .

وسؤال ثاني لوسمحت : لم اقصد زر الفلتر العادي بل زر مبرمج أو ستجد ملف مرفق فية زر مؤسسة وزر فروع

وشكر لك علي جهدك المبذل في افادة غير . وشكرا

فريد كويري من ليبيا بنغازي 00218913091644 00218928030043

[طارق محمود]

السلام عليكم

ماتقصده هذا هو أدوات التحكم Control Box

شاهد الفيديو المرفق

ControlBox.rar

[المسعودي]

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

[خالد القدس]

السلام عليكم

حلول رائعة وشافية ومافي أجمل من كده

جزاكم الله خيرا ورفع قدركم في الدنيا والآخرة

[محمد مصطفى ابو حمزة]

ايه الجمال و الحلاوة و العلم و العطاء ده ا[وسط][/وسط]نتو مش من باقى البشر

[الجزيرة]

ما شاء الله عليكم

الواحد يحتار ايهما يختار : )

[friends]

السلام عليكم

بارك الله فيك اخي الحسامي

و بارك الله فيك اخي طارق

فقط أيضا للإثراء

حل اخر بالمعادلات

بامكانه استعمال الاسم kh_list

كقائمة والذي يحوي على المعادلة

=IF(ورقة1!$L$3="";INDEX(قائمة_الفروع;0;2);OFFSET(ورقة1!$E$2;MATCH(ورقة1!$L$3;INDEX(قائمة_الفروع;0;1);0);;COUNTIF(INDEX(قائمة_الفروع;0;1);ورقة1!$L$3)))

خبور خير

عمل اكثر من رائع ولكن ارجو من اخونا خبور بتوضيح مكان كتابة المعادلة وربطها بkh_list

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

[friends]

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

بارك الله فيكم يا اخوة

[MAHMOUD ALI YOUSSEF]

السلام عليكم

اكواد قمة في الروعة

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

[saadghs]

شكرا جزيلا

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

[ريان أحمد]

تم تعديل ديسمبر 24, 2011 بواسطه tahar1983

[ahmed saif]

مشكورررررررررررررر