حذف صفوف بناء على شرط معين

[hamed.34552]

السلام عليكم من فضلكم اريد حذف  الصف الثالث من الشيت بناء على شرط الفصل

بمعنى ان كل طالب مكتوب فى فصل 1/3  او 2/3 يحذف

ولسيادتكم جزيل الشكر

hamed1.xlsx

[عبدالفتاح في بي اكسيل]

جرب  هذا  الكود  لعله  يفي  بالغرض 

Sub Test()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "f").End(xlUp).Row
For i = Lastrow To 1 Step -1
    If Cells(i, "f").Value = "1/3" Or Cells(i, "f").Value = "2/3" Then Rows(i).Delete
    Next
Application.ScreenUpdating = True
End Sub

 

[عبدالفتاح في بي اكسيل]

ايضا  هذا  كود  اخر  جميل  وتعدد الخيارات  بمجرد  تشغيل   تستطيع  تحدد  العمود  الذي  تريد  من تحدف  منه  البيان    وكذلك  الكلمة او القيمة  التي  تريدها  

Sub DeleteRows()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
        End If
    End If
Next
DeleteRng.EntireRow.Delete
End Sub

 

[hamed.34552]

الاستاذ عبد الفتاح كودك جميل لكن اريد تعديل بسيط 

اريد حذف الصفوف للصف الثالث دون ان يحذف اي بيانات عمود A 

حذف صفوف بناء على شرط.xlsm

[عبدالفتاح في بي اكسيل]

اخي  الكريم  طلبك  غريب  بخصوص  العمود a     عبارة  عن  ترقيمات  ليس  بيانات  مهمة  يمكنك  ترقيم  ذلك  اوتوماتيكيا  اما   من  خلال  المعادلة  اوالكود  وهذه  متوفرة  بكثرة  في  المنتدى 

[hamed.34552]

هذا هو الملف اريد حذف بيانات الصف الثالث من العمود b حتى العمود k 

وترك العمود A والعمود L كما هما حيث بهما دوال

hamed1.xlsm