طارق نادر

السلام عليكم ورحمة الله وبركاته الحمدالله تم المطلوب ...بفضل الله ثم لخبرة الاستاذ حسونة له ولكم كل الاحترام والتقدير ع تعاونكم الموصول...

السلام عليكم اخي الكريم حث خطأ بعد اتمام المطلوب بكل الدقة مرفقا الخطا في الصورة مع الشكر الجزيل

يسعد صباحك استاذ حسين بالنسبة لسؤالك حول الخطوة الأداة Selenium تمت حسب المطلوب وارفق لك صورة debug حسب طلبك مع الشكر لسعة صدرك

تم المطلوب ..كل الاحترام لجهودكم وسعة صدوركم

السلام عليكم ورحمة الله وبركاته اخي الكريم لقد تم عمل الخطوات السابقة بكل دقة وحسب المطلوب ولكن حدث خطأ موضحا في الصورة المرفقة مع الشكر الجزيل

هل من الممكن تحويل المعادلتان السابقين إلى كود تضهر نتيجتهما في يوز فورم تحديدا في text box (6) وفيه بداية تاريخ تمديد اخذ الاجازة السنوية وفي text box (8) يكون فية تاريخ انتهاء الاجازة السنوية المدده...وذلك اعتمادا على تاريخ نهاية الاجازة السابقة للموظف المخزنه بياناته في عمود (B) في ورقة اسمها (مخزن)... مع الشكر الجزيل

كل الشكر والتقدير والاحترام لكم...

السلام عليكم ورحمة الله وبركاته الشكر الجزيل لتعاونكم الموصول دائما اخواني المطلوب لطفا هو: تحويل المعادلتان في الملف المرفق إلى كود يظهر نتيجته في اليوزر فورم موظحا المطلوب اكثر في الملف ... تحويل معادلة إلى كود.xlsx

كل الاحترام والتقدير تمت العملية بنجاح

السلام عليكم ورحمة الله وبركاته ارقف لكم الكود وصورة الكود بعد الخطا لطفا Private Sub CommandButton5_Click() Dim WS As Worksheet, LastRow As Long Set WS = ThisWorkbook.Sheets("ãÎÒä (2024)") If TextBox2.Text = "" Then MsgBox "Þã ÇæáÇ ÈÇÎÊíÇÑ ãæÙÝ áÊÚÏíáå Çæ ÍÐÝå", vbExclamation, "ÍÐÝ" Exit Sub End If LastRow = WS.Cells(Rows.Count, "B").End(xlUp).Row + 1 Dim Q Q = MsgBox(" ÃäÊ Úáì æÔß ÍÐÝ ÇáÇÓã " & " ( " & TextBox2.Text & " ) " & " ãä ÇáÓÌá ¡ åá ÊÑíÏ ÇáãæÇÕáÉ ", vbCritical + vbYesNo, "ÊÃßíÏ ÇáÍÐÝ") If Q = vbYes Then For i = 2 To 12 For T = 2 To LastRow If TextBox2.Text = WS.Cells(T, 2) Then With WS .Cells(T, i).Value = "" .Rows(T).Delete Shift:=xlUp End With End If Next Next MsgBox " áÞÏ Êã ÍÐÝ ÇáãæÙÝ " & TextBox2.Text & " ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ ", vbInformation, "" End If For i = 2 To 12 Me.Controls("TextBox" & i).Value = "" Me.ComboBox1.Clear TextBox2.SetFocus End Sub مع الشكر الجزيل لتعاونكم الموصول

السلام عليكم ورحمة الله بعد تجرية الكود السابق حدث الخطأ الموضح في الصورة المرفقة مع الشكر الجزيل لسعة صدوركم....

السلام عليكم ورحمة الله وبركاته المطلوب لطفا ان تطوير المعادلة أدناه بحيث عند زياده يوم او إنقاص يوم من ايام الشهر ان تراعي ان هناك أشهر يكون عدد أيامها ٣١ يوم.. وأشهر ٣٠ يوم.. وان شهر فبراير معادلة تراعي التفاوت في عدد ايام الاشهر.xlsxيكون عدد أيامه ٢٨ يوم ...وذلك عند حساب الفرق بين تاريخين ينتج عنه سنة كاملة ... مرفق لكم ملف مع الشكر الجزيل لتعاونكم الموصول =IF(A5<>"";DATE(YEAR(A5);MONTH(A5);DAY(A5)+1);"")

السلام عليكم ورحمة الله وبركاتة الكود التالي لايعمل ارجو لطفا اصلاحه مع الشكر Private Sub CommandButton4_Click() Dim iRow As Long Dim WS As Worksheet Set WS = Worksheets("مخزن (2024)") Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox2.SetFocus End Sub المشكلة ان الكود لا يعطيني خطأ معين ولكنه ينفذ الامر دون إعطاء مسج خطأ في الكود ولكن لايوجد نتيجة في صفحة التعديل تبقى المعلومة المنوي تعديلها كما هي ارفق لك اخي الفاضل الملف الرقم السري tareq972708 رصد العقوبات طلاب الثانوية العامة تعديل (1).xlsm

للرفع

السلام عليكم ورحمة الله وبركاته ارجو لطفا اصلاح CommandButton في اليوز فورم كما يلي CommandButton2 لا يعمل CommandButton3 لايعمل CommandButton4 لايعمل CommandButton5 لايعمل مع الشكر الجزيل كلمة السر للملف رصد العقوبات طلاب الثانوية العامة تعديل (1).xlsmهي tareq972708