حسونة حسين

اخى واستاذنا الفاضل @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

ونضغط أوك ..

وعذرا على كثره المشاركات لانى اعمل على الموبايل

الملف اللي اسمه chromedriver دا تنسخه للمسار التالي

C:\Users\%username%\AppData\Local\SeleniumBasic 

أو لو المسار دا مش موجود هتلاقيه في مجلد

Program Files ..

هتلاقي مجلد باسم SeleniumBasic ...

هتلصق الملف وتوافق على الاستبدال