كيف اجعل القائمة المنسدلة لا تعرض الفراغات من نطاق به معادلات

[atob]

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

اخواني الاعزاء لقد سألت سابقا عن كيفية جعل القائمه المنسدله لا تعرض الخلايا الفارغه وقد اجابني الاخ عبدالله باشقير الله يجزاه خير

ولكن في تساؤلي هذا لم اجد حلا لان نطاق القائمة المنسدلة به معادلات والظاهر ان القائمة المنسدلة تعتبر الخلايا التي فيها معادلات ذات قيمه

طبعا الملف المرفق يوضح اكثر عن طلبي

قائمة منسدله.rar

واشكركم جزيل الشكر

[رجب جاويش]

السلام عليكم

هذا حل باستخدام كود يوضع فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = [B10].Address Then

For Each cl In [K3:K30]

If cl <> "" Then myarr = myarr & cl & ","

Next

With Range("F10").Validation

	    .Delete

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

	    xlBetween, Formula1:=myarr


    End With

End If

End Sub

ويتم تشغيلة بمجرد كتابة رقم فى خلية سعر التكلفة ( B10 )

قائمة منسدله1.rar

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

أستاذ رجب /

اسمح لي أن أرفع قبعتي تحية لك (صحيح أنا مش بلبس قبعة ... بس دا للدلالة على مدى حبي لك)

إني أحبك في الله

[رجب جاويش]

أخى وجارى الحبيب / ياسر خليل

أحبك الله الذى أحببتنى فيه

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

[بن علية حاجي]

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

أخي الكريم، والله الكود الذي وضعه أخي الحبيب رجب رائع جدا... وأجد نفسي عاجزا أمام هذه الروعة بارك الله فيك وجزاك الله عنا ألف خير... وأشارك بهذا الرد بمشاركة محتشمة بالملف المرفق وفيه تعديل طفيف على معادلة النحقق من الصحة Validation...

أخوكم بن علية

ملف لنسخة 2007 وأعلى: قائمة منسدله.rar

ملف لنسخة 2003 : قائمة منسدله.rar

[atob]

الاخ رجب الله يجزاك كل خير فقد كنت سباقا بالرد

واشكرك اخي بن عليه فحلك سهل جدا وعملي والله يكتب لكم الاجر العظيم