kkfhvvv قام بنشر April 6 مشاركة قام بنشر April 6 السلام عليكم كتابة متمتع في خانة حالة الاجازة طالما هو داخل ضمن فترة من تاريخ الى تاريخ وكتابة باشر عند انتهاء فترة الاجازة وعند كتابة الكود في الفورمة يظهر الاسم تلقائيا على اساس شيت اسماء الموظفين عند كتابة الكود يأتي الاسم.xlsb رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر April 6 أفضل إجابة مشاركة قام بنشر April 6 (معدل) 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 تم تعديل April 6 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
kkfhvvv قام بنشر April 6 الكاتب مشاركة قام بنشر April 6 تسلم - جزيت خيرا ارفقت ملف يوضح الطلب الاول رمضان مبارك عند كتابة الكود يأتي الاسم (1).xlsb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها