Find string in specific column of active selected row...

[7hc784hdi]

Hi all. New on here. Trying to get some basic programming done on an invoice template I'm working on for my job.
Feel pretty stupid but I'm also newer to programming so that will explain my lack of knowledge of the language. Here's my problem..

I have a button to delete an entire row if not needed. I have in column U text that simply says "OK"
I would like to delete the entire selected row when I click the button as long as column U doesn't say "OK".

I can't figure out what the syntax should be in vba.

I have this which obviously doesn't work:

Sub Button8_Click() 'Delete

If Application.CountA(ActiveCell.EntireRow) And Columns("U:U") = "OK" Then 'My problem line!

ActiveCell.Offset(0, 1).EntireRow.Delete
End If

End Sub

Any help would be great. Thanks!

[Mumps1]

Try:

Sub Button8_Click()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("U1:U" & LastRow).AutoFilter Field:=1, Criteria1:="<>OK"
    Range("U2:U" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    Application.ScreenUpdating = True
End Sub

This macro assumes you have headers in row 1 and your data starts in row 2. It deletes all rows that don't have "OK" in column U.

[mehmetcik]

Sub Button8_Click() 'Delete

If Range("U" & activecell.row).value <> "OK" Then ActiveCell.EntireRow.Delete

End Sub

[mehmetcik]

Sub Button8_Click() 'Delete

If Range("U" & activecell.row).value <> "OK" Then ActiveCell.EntireRow.Delete

End Sub

Or

Sub Button8_Click() 'Delete

If Range("U" & ActiveCell.Row).Value <> "ok" And Range("U" & ActiveCell.Row).Value <> "OK" Then ActiveCell.EntireRow.Delete

End Sub

[7hc784hdi]

Thank you for the quick replies.
I was looking for the solution like mehmetcik's. Simple and allows me to do per row manually.

Works wonderfully! Thank you!