حسونة حسين

وعليكم السلام ورحمة الله وبركاته بارك الله فيك استاذنا الغالى

الشكر لله اخى الحمد لله الذي بنعمته تتم الصالحات

السلام عليكم ورحمة الله وبركاته ممكن رابط لاي مجموعه بها روابط blob

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في زر دخول Application.Goto ThisWorkbook.Worksheets(TextBox1.Value).Range("A1")

وعليكم السلام ورحمه الله وبركاته اخي ابو علياء عاطف ..وقف الكود الموجود في Module21 قبل ان تبدأ بعمليه النسخ واللصق أبو عزيز بعد التعديل النهائي 2022.xlsb

وعليكم السلام ورحمه الله وبركاته استبدل الكود الخاص بك بهذا الكود Private Sub CommandButton1_Click() Dim Sh As Worksheet, LROW As Long Set Sh = ThisWorkbook.Worksheets("قاعدة بيانات") LROW = Sh.Range("I" & Rows.Count).End(xlUp).Row + 1 If WorksheetFunction.CountIfs(Sh.Range("I2:I" & LROW), TextBox1.Value) = 0 Then Sh.Range("I" & LROW).Value = TextBox1.Value Sh.Range("I" & LROW + 1).Value = TextBox1.Value TextBox1.Value = "" Else MsgBox "اسم الصنف مكرر" End If MsgBox ("يرجى ادخال البيانات كاملة بصورة صحيحة") End Sub

يوجد بالمشاركه السابقه لى ملف للاخوات وليس التؤام الموضوع به ملفات كثيره من ضمنها ملف للاخوات

تفضل اخى حيث انك لا تحب القراءه والاطلاع هذه للاخوات https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=66031

ارفق ملف ال pdf ..احاول لك فيه

@الخطاب اخى ما هى مشكله الاداه يوم ١١ / ٧ موافق الاثنين والتاريخ الموجود بالاسفل هو تاريخ ووقت جهازك وغير كده كمان الاداه مفتوحه المصدر samradapps_datepicker_220710.zip

بعد اذن الاساتذه يوجد موضوع هنا به التوأم والاخوات https://www.officena.net/ib/topic/48176-كود-لإستخراج-الطلاب-التوأم/

السلام عليكم ورحمة الله وبركاته اخى السائل هل تريد عامود به كود الموظف والعامود الذي امامه به اليوم الغائب فيه ثم في السطر الثانى كود الموظف وامامه اليوم الغائب وهكذا ام ماذا تريد هل كود الموظف وايام الحضور ماخوذه من البصمه؟ وتواريخ الشهر كله هل ستكون موجوده في عامود ام ماذا ؟ وان كانت موجوده من اي يوم يبدأ الشهر من يوم ١ ام من يوم ٢١ ام يوم ٢٦ ؟ اسئله غامضه تحتاج منك كل سؤال الى اجابه حتى نفهم طلبك

الحمد لله الذي بنعمته تتم الصالحات الشكر لله اخى الكريم

وعليكم السلام ورحمة الله وبركاته استبدل هذا الكود Sub ButtonClick(btn As MSForms.CommandButton) With btn If .Caption <> "" Then Me.TextBox1.Value = .Caption & "-" & Left(Me.CmbMonth.Value, 3) & "-" & Me.CmbYear.Value dte.TextBox1.Value = Me.TextBox1.Value Unload Me End If End With End Sub بهذا الكود Sub ButtonClick(btn As MSForms.CommandButton) With btn If .Caption <> "" Then Me.TextBox1.Value = .Caption & "-" & Left(Me.CmbMonth.Value, 3) & "-" & Me.CmbYear.Value If dte.TextBox1.Value = "" Then dte.TextBox1.Value = Me.TextBox1.Value Else dte.TextBox2.Value = Me.TextBox1.Value End If Unload Me End If End With End Sub

الحمد لله الذي بنعمته تتم الصالحات

الشكر لله بالتوفيق ان شاء الله ولو وقفت في حاجه ان شاء الله لن نتاخر في المساعده

تفضل اخى الكريم ترحيل الغياب.xlsm

وعليكم السلام ورحمة الله وبركاته مرحبا بك في اول مشاركه لك ..هلا رفعت ملف ليتسنى للاساتذة المساعدة

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

وان شاء الله اول ما تفتح محرر الاكواد ابحث عن الاداه ستجدها كما في الصورة بنعلم علامة صح على Selenium Type Library ونضغط أوك .. وعذرا على كثره المشاركات لانى اعمل على الموبايل

الملف اللي اسمه chromedriver دا تنسخه للمسار التالي C:\Users\%username%\AppData\Local\SeleniumBasic أو لو المسار دا مش موجود هتلاقيه في مجلد Program Files .. هتلاقي مجلد باسم SeleniumBasic ... هتلصق الملف وتوافق على الاستبدال

رابط تحميل السيلينيوم https://github.com/florentbr/SeleniumBasic/releases/download/v2.0.9.0/SeleniumBasic-2.0.9.0.exe رابط تحميل الدريفر الخاص بالسلينيوم https://chromedriver.storage.googleapis.com/102.0.5005.27/chromedriver_win32.zip الكروم درايفر لابد ان يكون اصداره مثل اصدار الكروم المصطب على جهازك

تفضل اخى حسام شرح للسلينيوم باللغه العربيه الرابط

وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم ترحيل الغياب.xlsm

تفضل اخى الحسام هذا الموقع به شرح لكيفيه جلب البيانات عن طريق السيلنيوم سوف يفيدك في طلبك