(موضوع مميز) قائمة منسدلة مصدرها اكثر من عمود بمدى متسع

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

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

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

للرفع

[طارق محمود]

السلام عليكم

أخي محمد

السؤال غير واضح

ممكن مثال

وتعمل فيه ماتريد يدويا

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

مرفق مثال اخى وشكرا على ردك

Book2.rar

[عبدالله المجرب]

السلام عليكم

اليك قائمة منسدلة بالكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim CL As Range

If Not Intersect(Target, [K4]) Is Nothing Then

For Each CL In [A2:A300,B2:B300,C2:C300,D2:D300,E2:E300,F2:F300,G2:G300,H2:H300]

If CL <> Empty Then MyArr = MyArr & Trim(CL.Value) & ","

Next

With Range("K4").Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:=MyArr

End With

End If

End Sub

شاهد المرفق

Book2.rar

[ريان أحمد]

السلام عليكم

عندما فتحت الملف وطبقت القائمة ظهر خطأ في الجزء

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:=MyArr

[رجب جاويش]

بعد إذن الأستاذ / عبد الله المجرب

تفضل أخى

قائمة منسدلة تعتمد على جميع الأعمدة المطلوبة وبمدى متسع

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

[الـعيدروس]

السلام عليكم

الاخ الفاضل رجب

بالامكان إختصار الماكرو لديك

بهذا الكود

Sub ragab()

E = 4

For C = 1 To 8

For R = 2 To Cells(Rows.Count, C).End(xlUp).Row

If Cells(R, C).Value <> Empty Then

Cells(E, 13) = Cells(R, C)

E = E + 1

End If

Next

Next

End Sub

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

شكرا شكرا شكرا اخوتى الاعزاء والله انا عاجز عن الشكر

وجزاكم الله خيرا جميعا حلول رائعة بالفعل

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

والله العظيم ادعى لكم فى كل وقت على هذا العطاء والاإيثار اخوتى طارق وعبد الله والعيدروس وطاهر ورجب

بالفعل انا احسد نفسى ان رد على كل هؤلاء وبارك الله لكم فى علمك ونفع بكم

[رجب جاويش]

الأخ الفاضل / العيدروس ( أبو نصار )

بسم الله ما شاء الله كود رائع جدا جدا يدل على إبداع وتميز

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

تم تعديل فبراير 29, 2012 بواسطه ragab100100

[رجب جاويش]

الأخ الفاضل

محمد مصطفى.2011

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

تم تعديل فبراير 29, 2012 بواسطه ragab100100

[ريان أحمد]

السلام عليكم

أساتذتي لم أفهم الكود الرجاء شرح الكود في المشاركة رقم 08

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

[عبدالله المجرب]

السلام عليكم .

اخي طاهر

الكود الخاص بالاخ ابو نصار (المشاركة 8)

هو اختصار للكود الذي في مرفق الاخ رجب (المشاركة 7)

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