ارجو المساعده فى قائمه مطار

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

الاخوه الكرام

ارجو المساعده

فى عمل قائمه بدون فراغات

قائمه .rar

[رجب جاويش]

تفضل أخى ابراهيم

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [F9].Address Then
For Each cl In [C5:IV5]
If cl <> "" Then myarr = myarr & cl & ","
Next
With Range("F9").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=myarr
        
    End With
End If
End Sub

قائمه1 .rar

[جمال عبد السميع]

بعد إذن أستاذى (رجب جاويش )

هذا حل أخر بالمعادلات

قائمة بدون فراغات ومرتبة أبجديا.rar

[أم عبد الله]

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

 

جزاك الله خيراً على الكود الجميل.

 

أستاذنا الفاضل / جمال عبد السميع

 

جزاك الله خيراً على الحل بالمعادلات. والأجمل فيها الترتيب الأبجدي.

 

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

تم تعديل مايو 29, 2013 بواسطه أم عبد الله

[رجب جاويش]

أختى الفاضلة / أم عبد الله

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

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

اخى الحبيب

رجب جاويش

بارك الله فيك وكود رائع جدا

ولكن ماذا لو اردنا توسيع النطاق الذى تظهر فيه القائمه

مثلا من F3 : F50

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

اخى الحبيب

جمال عبد السميع

ايه الجمال والحلاوه دى

معادلاتك فى قمة الاتقان

بارك الله فيك اخى الكريم

[رجب جاويش]

تفضل أخى ابراهيم

 

قائمه2.rar

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

اخى الكريم رجب

بارك الله فيك

وزادك من علمه وفضله

[رجب جاويش]

شكرا جزيلا أخى الفاضل ابراهيم

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

الخى الحبيب رجب

ماذا لو اردنا اضافة عمود اخر

مثلا لدينا بيانات فى الخلايا من A1:A20

ونريد عمل قائمه مطاطه ايضا فى الخلايا من

D5:D50

بحيث يصبح الكود يشتمل على عدد2قائمه مطاطه

واحده فى العمود F

والاخرى فى العمود D

[رجب جاويش]

تفضل أخى ابراهيم

 

قائمه3.rar

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

اخى الحبيب

رجب

بارك الله فيك وعمل رائع

وان كان هذا ما لا اريده

ولاكنى لا انكر اننى استفدت منه ايضا

ارجو النظر الى المرفق

فقد وضحت ما اريده

قائمه3.rar

 

[رجب جاويش]

تفضل أخى ابراهيم

 

قائمه3.rar

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

اخى الحبيب

رجب جاويش

مشكورا على المساعده

ولكن ماذا لو كانت الداتا فى شيت

والقائمه تكون فى شيت اخر

[رجب جاويش]

تفضل أخى ابراهيم

 

قائمه4.rar

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

اخى الكريم

رب جاويش

بارك الله فيك

ومشكورا على الاهتمام