فى هذا الملف ما اريده بالتحديد
اظهار الاسماء فى الكمبوبوكس بناء على بيانات جدول
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 "