combobox برجاء المساعدة فى كود اظهار القائمة متغيرة متجددة

[peter7boob]

الى خبراء الاكسيل والفيجوال 

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

 موظف نصف شهري يتم اظهاره فى كمبوبوكس 1

موظف نصف شهري يتم اظهاره فى كمبوبوكس 2

فى حالة وجود اسم الموظف ولا يوجد ( شهرى او نصف شهرى ) لا يتم ادراجه فى الكمبوبوكس 1 & 2

فى حالة وجود اسم الموظف ولا يوجد الحالة ( نعم , لا ) لا يتم ادراجه فى الكمبوبوكس 1 & 2

وفى حالة تغيير الموظف من شهرى لنصف شهرى يظهر فى كمبوبوكس1 ( الخاص به ) والعكس ...

مرفق ملف توضيحى للمساعدة فى حل المشكلة

ولكم جذيل الشكر

سوف تحذف جميع مشاركاتك اذا تكرر رفع نفس المشاركة على العديد من المشاركات القديمة المختلفة فهذا مخالف وممنوع

Test.xlsm

[أحمد يوسف]

تفضل -تم الحل والرد من قبل الأستاذ  حسين مأمون

 

 

test202020.xlsm

[peter7boob]

الف شكر ل أ / حسن مأمون و أ / احمد يوسف

بس الكود محتاج تعديل 

بس تعديل صغير
اول combobox 1 ويخص ال نصف شهرى مظبوط تمام ( لا يتم ظهور اسماء النصف شهرية ولا يتم ظهور الحالة لا )
اما combobox 2  ويخص ال شهرى يحتاج تعديل صغير ( انه لا يتم ظهور اسماء النصف شهرية ولكن يظهر الحالة لا ) محتاج تعديل اخفاء الاسماء التى حالتها لا فى النصف شهرى

وعمل الكود بشكل تلقائى متجدد عند تغيير نوع الراتب من (شهرى لنصف شهرى ... والعكس )او الحالة من ( نعم الى لا .. والعكس ) حيث ان نعم "ظهور الاسم" و لا " اخفاء الاسم "
ولك جزيل الشكر والتقدير
وبرجاء شرح الكود لتطبيقة على التصميم الخاص بى واكون جزيل الشكر لو تم شرح الكود

test202020.xlsm

س تعديل صغير
اول combobox 1 ويخص ال نصف شهرى مظبوط تمام ( لا يتم ظهور اسماء النصف شهرية ولا يتم ظهور الحالة لا ) تمام
اما combobox 2  ويخص ال شهرى يحتاج تعديل صغير ( انه لا يتم ظهور اسماء النصف شهرية ولكن يظهر الحالة لا ) محتاج تعديل اخفاء الاسماء التى حالتها لا فى الشهرى

وعمل الكود بشكل تلقائى متجدد عند تغيير نوع الراتب من (شهرى لنصف شهرى ... والعكس )او الحالة من ( نعم الى لا .. والعكس ) حيث ان نعم "ظهور الاسم" و لا " اخفاء الاسم "
ولك جزيل الشكر والتقدير
وبرجاء شرح الكود لتطبيقة على التصميم الخاص بى واكون جزيل الشكر لو تم شرح الكود

[peter7boob]

فى هذا الملف ما اريده بالتحديد

اظهار الاسماء فى الكمبوبوكس بناء على بيانات جدول

Option Explicit

 

Private Sub Worksheet_Activate()

Dim lr, x

With Sheets("sheet1")

Application.ScreenUpdating = False

lr = .Cells(Rows.Count, 1).End(3).Row

Dim arr1(), arr2(), m%, n%

For x = 2 To lr

 

If .Cells(x, 2) = "نصف شهري" Then

 ReDim Preserve arr1(m): arr1(m) = Range("a" & x): m = m + 1

Else

 ReDim Preserve arr2(n): arr2(n) = Range("a" & x): n = n + 1

End If

 Next

 Me.ComboBox1.List = Application.Transpose(arr1)

 Me.ComboBox2.List = Application.Transpose(arr2)

Erase arr1: Erase arr2

 

Application.ScreenUpdating = True

End With

End Sub

شكرا أ / Salim
هل يمكن المساعدة فى اضافة الكود بطريقة صحيحة
حيث اتمكن من فهم اين القيم التى يجب تغييرها لتعمل على الشيت الاساسى
وهل هذا الكود يتم ظهور الاسماء حسب التصنيف ( شهرى / نصف شهرى ) فقط ام ( شهرى / نصف شهرى ) والحالة ( "نعم & اجازه" = ظهور      "لا"=اخفاء)
البيانات الاساسية فى الشيت
اسم الموظف من (A4:A63) ترتيب العمود " العمود رقم 2 "
الراتب"شهري/نصف شهري" (CK4:CK63) ترتيب العمود " العمود رقم 89"
الحالة "نعم/اجازة/لا" (CL4:CL63) ترتيب العمود " العمود رقم 90 "

[peter7boob]

برجاء الرد والمساعدة وشكرا