اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

محمد مصطفى ابو حمزة
 مشاركة

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

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

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

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

السلام عليكم

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


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

الـعيدروس

الـعيدروس

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

السلام عليكم

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

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

بهذا الكود


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

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

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

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

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

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

رجب جاويش

رجب جاويش

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

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

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

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

تم تعديل بواسطه ragab100100

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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept