حسونة حسين

وعليكم السلام ورحمة الله وبركاته هل تتذكر اي شيئ عن الرقم السري ارقام. ولا حروف ولا رموز ولا الكل معا هل تتذكر اي شيى ام لا. فيديو يوضح لك طريقه لمحاوله فتح الملف https://youtu.be/S-_O9H0Mm0c

وعليكم السلام ورحمة الله وبركاته الملف ليس به اي مشاكل اخى مهند المشكله عندك في اللغه العربيه الخاصه بجهازك

يمكنك الاستفادة من هذا الموضوع

وعليكم السلام ورحمة الله وبركاته كيف حالك اخى هانى علم علامه صح على unblock

وعليكم السلام ورحمة الله وبركاته عدل هذا السطر If ws.Cells(r, c + 1).Value2 >= myDate Then ليصبح هكذا If ws.Cells(r, c + 1).Value2 >= myDate and If ws.Cells(r, c + 1).Value2 <= CLng(DateSerial(2019, 1, 1)) Then

وعليكم السلام ورحمة الله وبركاته من هنا البدايه https://www.officena.net/ib/topic/37509-ساعه-رقمي-وتناظري

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

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