اذهب الي المحتوي
أوفيسنا

حسونة حسين

أوفيسنا
  • Posts

    1082
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    30

كل منشورات العضو حسونة حسين

  1. تفضل اخى محمد جرب هذا التعديل نسخة من دفتر علامات 2022.xlsm
  2. اخى محمد عدنان هذا الموضوع يمكنك الاستفادة منه
  3. وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم Me.TextBox3.Value = Me.TextBox1.Value & " " + Me.TextBox2.Value
  4. وعليكم السلام ورحمة الله وبركاته ممكن صورة للكود المستخدم وصورة لاسماء الشيتات في صفحه الكود
  5. اخى محمد عدنان اطلع على هذا الموضوع هل هو ما تريد فعله ام لا
  6. وعليكم السلام ورحمة الله وبركاته اخى محمد عدنان حضرتك عايز ترحل من الخليه رقم كام ؟ الى الخليه رقم كام ؟ ومن العامود رقم كام ؟ الى العامود رقم كود ؟ ممكن تعمل صورة لشكل النتائج التي تريدها يدوي ليفهم الاخوة ما تريد
  7. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى برنامج نمازج (1).xlsm
  8. الحمد لله الذي بنعمته تتم الصالحات
  9. كتبت لك معادله تكتب يوم الميلاد وشهر الميلاد وسنة الميلاد لو اليوم والشهر مظبوطين في المعادله في المعادله بلغنى عدد 291 موظف.xlsx
  10. ارفق ملفك الذي به مشكله التواريخ وياريت تظلل التواريخ اللي فيها مشكله بلون اصفر مثلا
  11. حدد عامود التاريخ كله ثم من قائمه data اختر text to columns سوف تظهر لك هذه الصورة اختر next ثم تظهر هذه الرساله اختر كما بالصورة date ثم finish
  12. الشكر لله الحمد لله الذي بنعمته تتم الصالحات
  13. آمين يارب العالمين وجميع المسلمين
  14. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى احمد مشكله ملفك ان التواريخ لم تكن بصيغه تواريخ تم التعديل في المرفق عدد 291 موظف.xlsx
  15. الحمد لله الذي بنعمته تتم الصالحات المشرف هو من يحذف المواضيع المكررة ان احتجت حاجه تانيه أعرض مشكلتك وستجد من يحلها لك ان شاء الله وجزاكم الله خيرا على دعائك الطيب
  16. ايه الملف الزياده اخى تقصد الموضوع الثانى
  17. السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى الكريم برنامج نمازج.xlsm
  18. السلام عليكم ورحمة الله وبركاته وبها نبدأ ارفق ملف ليري الاخوة المشكله ليساعدوك في حلها
  19. حبيبي في الله كل مشكله يكون لها موضوع مستقل حتى يستفاد الاعضاء فيما بعد
  20. الحمد لله الذي بنعمته تتم الصالحات
  21. اخى الكريم اكتب موضوع جديد وبه سؤالك الجديد وستجد ان شاء الله اجابه لطلبك سواء منى او من الاساتذه
  22. كل اسئلتك تتكلم عن البحث بالتاريخ وكود التاريخ كده مفيش اي مشكله صح اخى ولا خطأ؟
  23. تفضل اخى الكريم جرب هذا الملف برنامج_ نمازج.xlsm
  24. وجزاكم مثله اخى الكريم على دعاؤك الطيب الحمد لله الذي بنعمته تتم الصالحات
  25. هنا الكود كاملا Option Explicit Sub Delete_Row_If_Equal_A_Specific_Value() Dim WB As Workbook, WS As Worksheet, SH As Worksheet, sPath As String, sFile As String Dim C As Range, M As Long, R As Long Application.ScreenUpdating = False: Application.DisplayAlerts = False: Application.EnableEvents = False Set SH = ThisWorkbook.Worksheets("Sheet1") sPath = ThisWorkbook.Path & "\222\" sFile = Dir(sPath & "*.xls*") Do While sFile <> "" Set WB = Workbooks.Open(sPath & sFile, False) For Each WS In WB.Worksheets M = SH.Range("A" & Rows.Count).End(xlUp).Row For R = 2 To M Set C = WS.Range("A:A").Find(What:=SH.Range("A" & R).Value, LookAt:=xlWhole) If C Is Nothing Or IsEmpty(C) Then GoTo 1 WS.Rows(C.Row).Delete 1 Next R Next WS WB.Close SaveChanges:=True sFile = Dir Loop Application.ScreenUpdating = True: Application.DisplayAlerts = True: Application.EnableEvents = True End Sub
×
×
  • اضف...

Important Information