Delete row if cell J contains any text

[tactical]

Hello,

I am trying to write a program to delete a row if column J contains any sort of text. The text in column J is not the same. Any help is appreciated!

TIA

[AlvaroSiza]

*Untested*

Please make a copy of your workbook and test on the copy. If you are unfamiliar with how to run the code, please use the instructions in my signature.

Sub DeleteRow()

Dim rngSearch As Range
Dim rngCell As Range

'You will need to change the sheet name if different from "Sheet1"
Set rngSearch = ActiveWorkbook.Sheets("Sheet1").Range("J1", Range("J1").End(xlDown))

   For Each rngCell In rngSearch
      If Application.WorksheetFunction.IsText(Range(rngCell)) Then
         rngCell.EntireRow.Delete
      End If
   Next rngCell

End Sub

[oeldere]

I have used this one.

Sub wis_niet_lege_rijen_oeldere()
    Columns(11).SpecialCells(2).EntireRow.Delete             'cells contains text
 
    Columns(11).SpecialCells(-4123).EntireRow.Delete         'cells contains formula
  
  If Err.Number <> 0 Then MsgBox "There are no empty cells"
  
 End Sub

Columns(11) = "J"

[tactical]

I have used this one.

Sub wis_niet_lege_rijen_oeldere()
    Columns(11).SpecialCells(2).EntireRow.Delete             'cells contains text
 
    Columns(11).SpecialCells(-4123).EntireRow.Delete         'cells contains formula
  
  If Err.Number <> 0 Then MsgBox "There are no empty cells"
  
 End Sub

Columns(11) = "J"

J is actually column 10. I am getting Delete method of Range class failed error for this one

[oeldere]

J is actually column 10

you are right => J= colomn 10

I send you my example.

first run macro

Sub delete_NOT_empty_row_in_columnC_oeldere()

then run

Sub delete_empty_row_in_columnA()

This one works fine for me.

[tactical]

J is actually column 10

you are right => J= colomn 10

I send you my example.

first run macro

Sub delete_NOT_empty_row_in_columnC_oeldere()

then run

Sub delete_empty_row_in_columnA()

This one works fine for me.

Yours is working, but mine is not.

[tactical]

*Untested*

Please make a copy of your workbook and test on the copy. If you are unfamiliar with how to run the code, please use the instructions in my signature.

Sub DeleteRow()

Dim rngSearch As Range
Dim rngCell As Range

'You will need to change the sheet name if different from "Sheet1"
Set rngSearch = ActiveWorkbook.Sheets("Sheet1").Range("J1", Range("J1").End(xlDown))

   For Each rngCell In rngSearch
      If Application.WorksheetFunction.IsText(Range(rngCell)) Then
         rngCell.EntireRow.Delete
      End If
   Next rngCell

End Sub

Im getting a on Method 'Range' of object '_Global' failed error with this code.

I don't think it like the "If Application.WorksheetFunction.IsText(Range(rngCell)) Then" line

[HSV]

Sub hsv()
Dim i As Long
Application.ScreenUpdating = False
 For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
  If Cells(i, 10) = "" Then Cells(i, 10).EntireRow.Delete
 Next i
End Sub

[tactical]

Sub hsv()
Dim i As Long
Application.ScreenUpdating = False
 For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
  If Cells(i, 10) = "" Then Cells(i, 10).EntireRow.Delete
 Next i
End Sub

This deletes the empty rows. What do I need instead of "" to make it delete rows that contain any string?

[HSV]

Use:

<> ""