حسونة حسين

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

اخى واستاذنا الفاضل @Ali Mohamed Ali للرفع رفع الله قدركم

السلام عليكم ورحمة الله وبركاته الدخول يكون عن طريق الاميل استاذنا الفاضل @ابراهيم الحداد مفروض كده تم ارسال رساله لك على الميل سواء كان Gmail Yahoo Hotmail

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك الاستفادة من هذا الموضوع https://www.officena.net/ib/topic/82495-برنامج-جاهز-لتحويل-التاريخ-من-ميلادى-إلى-هجرى-والعكس/#comment-525026

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

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

السلام عليكم ورحمة الله وبركاته ممكن رابط لاي مجموعه بها روابط 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 ونضغط أوك .. وعذرا على كثره المشاركات لانى اعمل على الموبايل