كود مؤقت للخاصية Validation

[أبو حنــــين]

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

هذا مثال على ذلك

Validation.rar

[الـعيدروس]

السلام عليكم

فكرة جميلة كـ جمال روحك اخي أبو حنين

تقبل مروري

[أبو حنــــين]

أسعد بمرورك دوما أخي أبو نصار

حفظك الله و حفظ نصار

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

فكرة فعلاً جميلة يا أبو حنين

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

[أبو حنــــين]

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

[أبو محمد عباس]

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

الاستاذ والاخ العزيز ابو حنين حفظك الله ورعاك وزادك علما ومعرفة

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

[أبو حنــــين]

جزاك الله خيرا أخي عباس السماوي على مروركم

و هذا تعديل لمنع الفراغات ان وجدت في القائمة

Validation11.rar

[رجب جاويش]

أخى الحبيب / أبو حنين

بسم الله ما شاء الله

تسلم ايديك وتسلم ابداعاتك المتجددة

[يوسف عطا]

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

[أبو حنــــين]

أخي الحبيب : / رجب جاويش

جزاك الله خيرا على مروركم الطيب ، لقد اصبحنا نفتقدك من حين الى آخر

******************

أخي الحبيب : / يوسف عطا

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

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

السلام عليكم

افكارك حلوة اخي ابو حنين

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

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

[أبو حنــــين]

و عليكم السلام :/ أخي عبد الله

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

و لا يشعر صاحب الموضوع بخيبة الامل في ما يقدم

جزاكم الله خيرا و حفظكم من كل سوء

[إبراهيم ابوليله]

اخى الفاضل

ابو حنين

فكره جميله جدا

ولكن

ماذا لو اردنا ان نضع الاسماء مسبقا فى العمود الاول

ثم الكتابه والاختيار يكون فى العمود الثانى بناء على البيانات الموجوده فى العمود الاول

[أبو حنــــين]

يصبح الكود بهذه الطريقة :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 2 And Target.Row > 1 Then

			    With Target.Validation

			   .Delete

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

			    xlBetween, Formula1:="=OFFSET($A$2,0,0,COUNTA($A:$A),1)"

			    End With

For Each cl In [A2:A1000]

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

			    Next

With ActiveCell.Validation

			    .Delete

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

			    xlBetween, Formula1:=Listee

			    End With

End If

Target.Validation.Delete

End Sub

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أبا حنين حفظكم الله

فكرة حلوة من نفس أحلى لشخص أنبل بالغ الحياء والحساسية والكرم.

اللهم أجعله من المرضيين والمحسنيين الأخيار وبلغه منزلة الشهداء آميييييين يارب العالمين.

أبو أنس

[أبو حنــــين]

اخي الحبيب أبو أنس

حفظك الله و حفظ أنس و اهل انس و كل من يحيط بأنس

و جزاك الله خيرا على المرور الطيب و الدعاء

أسأل الله القبول لنا و لكل المسلمين