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 "

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

الى خبراء الاكسيل والفيجوال برجاء المساعدة فى فلترة الاسماء الظاهره فى الكمبوبوكس بشرط معين موظف نصف شهري يتم اظهاره فى كمبوبوكس 1 موظف نصف شهري يتم اظهاره فى كمبوبوكس 2 فى حالة وجود اسم الموظف ولا يوجد ( شهرى او نصف شهرى ) لا يتم ادراجه فى الكمبوبوكس 1 & 2 فى حالة وجود اسم الموظف ولا يوجد الحالة ( نعم , لا ) لا يتم ادراجه فى الكمبوبوكس 1 & 2 وفى حالة تغيير الموظف من شهرى لنصف شهرى يظهر فى كمبوبوكس1 ( الخاص به ) والعكس ... مرفق ملف توضيحى للمساعدة فى حل المشكلة ولكم جذيل الشكر سوف تحذف جميع مشاركاتك اذا تكرر رفع نفس المشاركة على العديد من المشاركات القديمة المختلفة فهذا مخالف وممنوع Test.xlsm

الى خبراء الاكسيل والفيجوال برجاء المساعدة فى فلترة الاسماء الظاهره فى الكمبوبوكس بشرط معين موظف نصف شهري يتم اظهاره فى كمبوبوكس 1 موظف نصف شهري يتم اظهاره فى كمبوبوكس 2 فى حالة موظف شهرى او نصف شهرى لا يتم اخفائه من القائمتين وفى حالة تغيير الموظف من شهرى لنصف شهرى يظهر فى كمبوبوكس1 والعكس ... مرفق ملف توضيحى للمساعدة فى حل المشكلة ولكم جذيل الشكر Test.xlsx

تفضل ورقة عمل Microsoft Excel جديد --.xlsx