مساعدة فى حذف بعض الصفوف

[jimsstreet]

بعد إذن حضراتكم ممكن حل لهذه المشكلة

أنا جربت الأمر ده

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

تم تعديل يناير 2, 2012 بواسطه jimsstreet

[الـعيدروس]

وش نوع الملف الذي انت مرسله

لا يفتح

نرجو ارفاق ملف اكسل واعمل عليه ضغط

بااحد برامج الضغط winrar و winzeb

[عبدالله المجرب]

السلام عليكم

جرب هذا الكود على اساس ان الوقت في العمود E بهذا الفورمات hh:mm:ss

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 Minute(Cells(a, 5)) = "15" Or Minute(Cells(a, 5)) = "30" Or Minute(Cells(a, 5)) = "45" Then

Rows(a).Delete

End If

Next a

Application.ScreenUpdating = True

End Sub

[jimsstreet]

ألف شكر على سرعة الرد

بس بتظهر رسالة type mismatch فى السطر ده

If Minute(Cells(a, 5)) = "15" Or Minute(Cells(a, 5)) = "30" Or Minute(Cells(a, 5)) = "45" Then

و الفورمات فى الخلية hh:mm

تم تعديل يناير 2, 2012 بواسطه jimsstreet

[عبدالله المجرب]

اخي هلا ارفقت ملف اكسل

[عبدالله المجرب]

اخي الفاضل

المشكلة انك واضع الارقام هكذا

"09:00"

ويفترض ان تكون هكذا

09:00

[عبدالله المجرب]

هذا المرفق بعد ازالة "

وتنفيذ الكود

ابواحمد.rar

[jimsstreet]

أنا أرفقت الملف فى أول الموضوع

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

[jimsstreet]

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

[عبدالله المجرب]

قمت بتحديد العمود E ثم

قمت بعملية استبدال (Ctrl + F )

وضعت في خانة البحث عن "

وتركت خانة استبدال ب فارغة

ثم اضغط استبدال الكل

[jimsstreet]

ألف ألف ألف شكر

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

[الـعيدروس]

السلام عليكم

جزاك الله خير استاذ عبدالله المجرب

تقبل مروري