اذهب الي المحتوي
أوفيسنا

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

إبراهيم ابوليله
 مشاركة
إذهب إلى الإجابة الإجابة بواسطة رجب جاويش,

الردود الموصى بها

رجب جاويش

رجب جاويش

قام بنشر
قام بنشر

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

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

أم عبد الله

أم عبد الله

قام بنشر
قام بنشر (معدل)

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

 

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

 

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

 

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

 

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

تم تعديل بواسطه أم عبد الله
إبراهيم ابوليله

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

قام بنشر
  • الكاتب
قام بنشر

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

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

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

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

D5:D50

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

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

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع
×
×
  • اضف...

Important Information

  I accept