For i .....next i

[Forestq]

Hi,

I want to delete row when my cells = 2

For i = 2 To a    
    If Cells(i, 15) = "2" Then Cells(i, 15).EntireRow.Delete
Next i

But when the row it's deleted macro is skipped one row.

How can I avoid the situation?

 

[VoG]

You need to loop backwards

For i = a To 2 Step -1

 

[Andrew Poulsom]

You need to loop backwards:

For i = a To 2 Step -1

 

[Forestq]

here is my all code:

MsgBox "Open files"
Application.Dialogs(xlDialogOpen).ShowDim WB As Workbook
Set WB = ActiveWorkbook
Dim WS As Worksheet
Set WS = WB.Sheets("Sheet1")
    
Dim a, i As Long
a = Application.WorksheetFunction.CountA(Columns(15))

For i = a To 2 Step -1
    
    If Cells(i, 15) = "2" Then Cells(i, 15).EntireRow.Delete
    
Next i

but doesn't work properly

 

[Andrew Poulsom]

In what way doesn't it work properly? Maybe you need to remove the double quotes around "2".

 

[Teeroy]

Also if you have any blank cells in column 15 between the last row and row 1 you will miss checking rows as the results of counta and cells(i,j) won't align.

 

[Forestq]

my mistake

works now, perfect!

thank you all!!!