sweetest_lady قام بنشر ديسمبر 23, 2019 مشاركة قام بنشر ديسمبر 23, 2019 السلام عليكم ورحمة الله وبركاته يعطيكم العافية على الجهود المبذولة أرغب في إنشاء قائمة منسدلة مطاطية كما هو موضح في المرفق حتى تظهر جميع البيانات في الخانة لم أستطع كيفية إنشاء الكود وشكراً الوظائف الفنية والإدارية 2020 قسم تشغيل المحطات.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 23, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 23, 2019 ربما كان المطلوب (تم تغيير اسماء الشيتات الى اللغة الاحنبية من اجل نسخ الكود ولصقة دون مشاكل لغوية) الكود 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 1 2 رابط هذا التعليق شارك More sharing options...
sweetest_lady قام بنشر ديسمبر 23, 2019 الكاتب مشاركة قام بنشر ديسمبر 23, 2019 شكرا أستاذ سليم لكن لو سمحت أريد عند إضافة رقم وظيفي جديد أن يُضاف في القائمة المنسدلة ادري غلبتك معايا الله يرزقك الجنة من غير حساب رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر ديسمبر 23, 2019 مشاركة قام بنشر ديسمبر 23, 2019 (معدل) ادخل الى هذا الرابط للا ستاذ عماد غازي واستفد من طريقة انشاء قائمة منسدلة مطاطية تأخذ بيانات من صفحة اخرى تم تعديل ديسمبر 23, 2019 بواسطه حسين مامون رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 23, 2019 مشاركة قام بنشر ديسمبر 23, 2019 هو هذا ما يفعله الكود الرقم الوظيفي اذا تكرر يتم ادراجه مرة واحدة فقط 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها