VBA - Loop: check values in given column; if value = 1 -> delete entire row. Proceed until row no x

[mesje]

Hello All,

I have a typical PEBKAC due to lack of knowledge about VBA syntax...

I need one simple VBA loop:

1). go to cell U2 and start the following loop:
[start]
-if cell value equals not 1 then delete entire row;
move to next row; end loop at row number X.

It's probably a small thing, but can cause a lot of hapiness

Thank you for your help!
Mesje

 

[VoG]

Try

Sub Test()
Dim LR As Long, i As Long
LR = Range("U" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    If Range("U" & i).Value <> 1 Then Rows(i).Delete
Next i
End Sub

 

[mesje]

It seems that you replied before I managed to click 'Submit new therad' button!
Thank you very much.

Will give it a go.