حسونة حسين

وعليكم السلام ورحمة الله وبركاته 

ممكن صورة للكود المستخدم

وصورة لاسماء الشيتات في صفحه الكود

اخى محمد عدنان 

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

وعليكم السلام ورحمة الله وبركاته 

اخى محمد عدنان

حضرتك عايز ترحل من الخليه رقم كام ؟

الى الخليه رقم كام ؟

ومن العامود رقم كام ؟

الى العامود رقم كود ؟

ممكن تعمل صورة لشكل النتائج التي تريدها يدوي ليفهم الاخوة ما تريد

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

تفضل اخى 

برنامج نمازج (1).xlsm

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

كتبت لك معادله تكتب يوم الميلاد وشهر الميلاد وسنة الميلاد

لو اليوم والشهر  مظبوطين في المعادله في المعادله بلغنى

عدد 291 موظف.xlsx

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

حدد عامود التاريخ كله ثم من قائمه data

اختر text to columns

سوف تظهر لك هذه الصورة اختر next

ثم تظهر هذه الرساله

اختر كما بالصورة date

ثم finish

الشكر لله

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

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

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

تفضل اخى احمد

مشكله ملفك ان التواريخ لم تكن بصيغه تواريخ

تم التعديل في المرفق

عدد 291 موظف.xlsx

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

المشرف هو من يحذف المواضيع المكررة

ان احتجت حاجه تانيه أعرض مشكلتك وستجد من يحلها لك ان شاء الله

وجزاكم الله خيرا على دعائك الطيب

ايه الملف الزياده اخى

تقصد الموضوع الثانى

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

تفضل اخى الكريم 

برنامج نمازج.xlsm

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

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

حبيبي في الله 

كل مشكله يكون لها موضوع مستقل 

حتى يستفاد الاعضاء فيما بعد

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

اخى الكريم 

اكتب موضوع جديد

وبه سؤالك الجديد وستجد ان شاء الله

اجابه لطلبك سواء منى او من الاساتذه 

اقتباس

تمام انا محتاج ان يكون البحث بالشكل دة لو وضعت تاريخ يبحث من sheet2 ولو بدون تاريخ يبحث زى ماانا عامل من sheet4 وشكرا

اقتباس

انا اسف على الاطالة بس الكود ناقص انه لو البحث بدون تاريخ يعطينى النتيجه من sheet 4

اقتباس

دى المرة دى مبقتش تعمل بحث خالص بقت لو بحثت بتاريخ تدي خطاء ولو من غير تاريخ بردو تدي خطاء

كل اسئلتك تتكلم عن البحث بالتاريخ 

وكود التاريخ كده مفيش اي مشكله

صح اخى ولا خطأ؟

تفضل اخى الكريم 

جرب هذا الملف 

برنامج_ نمازج.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

في اخر ملف لك 

اما في الملف الاول لك في اول مشاركه الارقام موجوده ويحذفها 

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

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