If cell is non-blank then delete row

[Sontauzo]

Hello,

I am using the code below to try to remove rows that contain any value in a certain column (Column AK). Presently, the code is deleting every line. I am probably missing something really obvious, but i have looked on several different sites and I can't seem to sort it out.

Any help would be greatly appreciated.

Variable p is a particular worksheet that is declared earlier in the code

For t = t To 1 Step -1
If p.Cells(t, "AK") = "" Then
Else
p.Rows(t).EntireRow.Delete
End If
Next

BWL

 

[jolivanes]

Please add code tags around your code.

Sub Maybe()
Dim sh As Worksheet, i As Long, lr As Long
    Set sh = Worksheets("Sheet3")    '<----- Change as required
    lr = sh.Cells(Rows.Count, "AK").End(xlUp).Row
        With sh
            For i = lr To 1 Step -1
                If .Cells(i, 37) <> "" Then .Cells(i, 37).EntireRow.Delete Shift:=xlUp
            Next i
        End With
End Sub

 

[Sontauzo]

Thank you for the the suggestion, and my apologies for not tagging the code properly. However, macro that you included still deletes all rows. I tried running it initially in the context of the larger Macro that i am running and then as a stand alone and the results were the same both times.

 

[jolivanes]

Do the so called empty cells have a space in it so they appear empty but in reality are not?
Obviously, they are not empty.
Put this in a cell a few columns away and pull down to cover your range.

=Len(AK1)

See what the result is.

 

[rpaulson]

try this on a copy of your file

Sub DeleteRows()

    Application.ScreenUpdating = False

    With Range("T:T")
        .Replace "*", True, xlWhole
        .SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
    End With

    Application.ScreenUpdating = True

End Sub

hth,
Ross

 

[Sontauzo]

Do the so called empty cells have a space in it so they appear empty but in reality are not?
Obviously, they are not empty.
Put this in a cell a few columns away and pull down to cover your range.

=Len(AK1)

See what the result is.

Thank you for this suggestion. It turns out there was a space in each cell. I was able to remove that from the report and use my original code. Thanks again!

 

[jolivanes]

Glad you have it all sorted.
Thanks for letting us know and good luck