حسونة حسين

اخى محمد عدنان اطلع على هذا الموضوع هل هو ما تريد فعله ام لا

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى برنامج نمازج (1).xlsm

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

كتبت لك معادله تكتب يوم الميلاد وشهر الميلاد وسنة الميلاد لو اليوم والشهر مظبوطين في المعادله في المعادله بلغنى عدد 291 موظف.xlsx

ارفق ملفك الذي به مشكله التواريخ وياريت تظلل التواريخ اللي فيها مشكله بلون اصفر مثلا

حدد عامود التاريخ كله ثم من قائمه data اختر text to columns سوف تظهر لك هذه الصورة اختر next ثم تظهر هذه الرساله اختر كما بالصورة date ثم finish

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

آمين يارب العالمين وجميع المسلمين

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى احمد مشكله ملفك ان التواريخ لم تكن بصيغه تواريخ تم التعديل في المرفق عدد 291 موظف.xlsx

الحمد لله الذي بنعمته تتم الصالحات المشرف هو من يحذف المواضيع المكررة ان احتجت حاجه تانيه أعرض مشكلتك وستجد من يحلها لك ان شاء الله وجزاكم الله خيرا على دعائك الطيب

ايه الملف الزياده اخى تقصد الموضوع الثانى

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى الكريم برنامج نمازج.xlsm

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

حبيبي في الله كل مشكله يكون لها موضوع مستقل حتى يستفاد الاعضاء فيما بعد

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

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

كل اسئلتك تتكلم عن البحث بالتاريخ وكود التاريخ كده مفيش اي مشكله صح اخى ولا خطأ؟

تفضل اخى الكريم جرب هذا الملف برنامج_ نمازج.xlsm

وجزاكم مثله اخى الكريم على دعاؤك الطيب الحمد لله الذي بنعمته تتم الصالحات

هنا الكود كاملا 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

اخى عدل هذا السطر If C Is Nothing Then GoTo 1 ليكون If C Is Nothing Or IsEmpty(C) Then GoTo وحاجه تانيه الملف الذي به الكود جميع الارقام التي به ليست موجوده في الملفات الموجوده في فولدر 222 في اخر ملف لك اما في الملف الاول لك في اول مشاركه الارقام موجوده ويحذفها

ارفق ملفك بعد وضع الكود به لان الكود يعمل معى بشكل صحيح

ارفق ملفك اخى بعد وضع الكود به

وجزاكم مثله اخى الكريم