كتابة الكود في الفورم يظهر الاسم تلقائيا

[kkfhvvv]

السلام عليكم

كتابة متمتع في خانة حالة الاجازة طالما هو داخل ضمن فترة من تاريخ الى تاريخ

 

وكتابة باشر عند انتهاء فترة الاجازة

 

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

 

عند كتابة الكود يأتي الاسم.xlsb

[محمد هشام.]

3 ساعات مضت, kkfhvvv said:

كتابة متمتع في خانة حالة الاجازة طالما هو داخل ضمن فترة من تاريخ الى تاريخ

 

وكتابة باشر عند انتهاء فترة الاجازة

المرجوا توضيح الطلب الاول او ارفاق عينة للنتائج المتوقعة 

اما بالنسبة للطلب الثاني يمكنك استخدام الكود التالي لجلب اسم الموظف 

Private Sub TextBox1_Change() ' اسماء الموظفين
Dim iRow, clé, Myrng, j, r, name$
Set j = Sheets("اسماء الموظفين")
Set iRow = j.Range("A2:B" & j.[A65000].End(xlUp).Row)
LR = j.Cells(Rows.Count, 1).End(xlUp).Row

Myrng = iRow.Value: name = Me.TextBox1.Value
Set r = j.Range("A2:A" & LR).Find(name)
On Error Resume Next
If Not r Is Nothing Then
For k = 1 To UBound(Myrng)
    If Myrng(k, 1) = name Then
        clé = k
           Me.réf = clé + iRow.Row - 1: Me.TextBox2 = Myrng(clé, 2)
     End If
   Next k
Else
   Me.TextBox2 = Empty
End If
 If Me.TextBox1 = "" Then Me.TextBox2 = "": Me.réf = ""
End Sub

 

عند كتابة الكود يأتي الاسم.xlsb

تم تعديل أبريل 6, 2024 بواسطه محمد هشام.

[kkfhvvv]

تسلم  - جزيت خيرا

ارفقت ملف يوضح الطلب الاول

رمضان مبارك

عند كتابة الكود يأتي الاسم (1).xlsb