fixing code delete rows specific rows based on condition without effect on specific column

alhagag · May 27th 2020

hello

i have this code but not work as what i want it delete all of rows while i specified the condition is when column f contains 2/3,1/3 only delete rows theses from b2:i1000 without effect on column a

Code

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 Range("B2:G1000").Delete Shift:=xlUp

    Next
Application.ScreenUpdating = True
End Sub

Display More

dangelor · May 27th 2020

Try...

Code

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

alhagag · May 27th 2020

well done , it works but i have simple request it just curiosity if you don't mind what if i delete from d:g with stay a,b,c how becomes the code

dangelor · May 27th 2020

Code

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

alhagag · May 27th 2020

great work thanks for your time

dangelor · May 27th 2020

Glad to help!

fixing code delete rows specific rows based on condition without effect on specific column

Participate now!

Share

Users Viewing This Thread