قائمة منسدلة مطاطية

[sweetest_lady]

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

يعطيكم العافية على الجهود المبذولة

أرغب في إنشاء قائمة منسدلة مطاطية كما هو موضح في المرفق

حتى تظهر جميع البيانات في الخانة لم أستطع كيفية إنشاء الكود

وشكراً

 

الوظائف الفنية والإدارية 2020 قسم تشغيل المحطات.xlsx

[سليم حاصبيا]

ربما كان المطلوب (تم تغيير اسماء الشيتات الى اللغة الاحنبية من اجل نسخ الكود ولصقة دون مشاكل لغوية)

الكود

Sub fil_data_val()
Dim S As Worksheet, T As Worksheet
Dim dic As Object
Dim i%: i = 3
Set S = Sheets("SOURCE_SH")
Set T = Sheets("TARGET_SH")
Set dic = CreateObject("Scripting.Dictionary")
Do Until S.Range("B" & i) = vbNullString
 dic(S.Range("B" & i).Value) = vbNullString
 i = i + 1
 Loop
 With T.Range("BK21").Validation
 .Delete
 .Add 3, Formula1:=Application.Transpose(Join(dic.keys, ","))
 End With
 dic.RemoveAll: Set dic = Nothing
End Sub

الملف مرفق

 

ADMINASTREATIONS.xlsm

[sweetest_lady]

شكرا أستاذ سليم

لكن لو سمحت أريد عند إضافة رقم وظيفي جديد أن يُضاف في القائمة المنسدلة

ادري غلبتك معايا

الله يرزقك الجنة من غير حساب

[حسين مامون]

ادخل الى هذا الرابط  للا ستاذ عماد غازي واستفد من طريقة انشاء قائمة منسدلة مطاطية تأخذ بيانات من صفحة اخرى

 

تم تعديل ديسمبر 23, 2019 بواسطه حسين مامون

[سليم حاصبيا]

هو هذا ما يفعله الكود

الرقم الوظيفي اذا تكرر  يتم ادراجه  مرة واحدة فقط