jimsstreet

ألف ألف ألف شكر وألف شكر على هذا التواصل الرائع

ألف شكر بس ممكن أعرف إزاى حضرتك عملت الساعة بالفورمات ده hh:mm

أنا أرفقت الملف فى أول الموضوع بس علشان الملف يفتح لازم يتعملوا extract الأول وبعدين إفتح برنامج الإكسيل نفسه اللى متسطب مش الملف وبعدين من خلال البرنامج إختار file وبعدين open وبعدين إختار مكان الملف اللى حضرتك عملتله extract

ألف شكر على سرعة الرد بس بتظهر رسالة type mismatch فى السطر ده If Minute(Cells(a, 5)) = "15" Or Minute(Cells(a, 5)) = "30" Or Minute(Cells(a, 5)) = "45" Then و الفورمات فى الخلية hh:mm

بعد إذن حضراتكم ممكن حل لهذه المشكلة أنا جربت الأمر ده Option Explicit Sub Delete333Rows() Dim LR As Long, a As Long Application.ScreenUpdating = False LR = Cells(Rows.Count, 5).End(xlUp).Row For a = LR To 1 Step -1 If Cells(a, 5) = "15" Then Rows(a).Delete Next a Application.ScreenUpdating = True End Sub بس المشكلة إن ال cell موجود جواها الشكل ده "00:15" مثلا فالبرنامج مش قادر يحذف الصف اللى فية الخلية بالشكل ده من الآخر أنا عندى بيانات كل ربع ساعة عاوز أحذف الأربع دى (15و30و45) وأخلى الساعات الصحيحة زى ( 00:00و01:00و02:00) المشكلة فى الفورمات اللى موجوده بيه الساعة أرجو سرعة الرد الملف المرفق علشان يتفتح لازم يتعملوا فتح من خلال برنامج الإكسيل وليس open with tr3.rar