Delete Row A if Row B Contains

[justdream]

Dear Experts,

Could you kindly advice how to Delete Row A if Row B doesn't Contain: THERADIUS 0
Below is an example of input and output

Thanks in advance
14302

[mperrah]

Sub delRowAif()

' this just checks range("B1)
If Cells(2, 1).Value <> "THERADIUS 0" Then
Rows(1).EntireRow.Delete
End If


End Sub

[Aussiebear]

Try the following

Private DeleteRow()
For Each cel In Rng.Rows(2).Cells
If cel.Value <> "THERADIUS 0" Then
Rows(1).EntireRow.Delete
End If
Next cel
End Sub

[salim ali]

USE THIS CODE


Sub Del_Row()
Set myrange = Rows(2).Cells
If Application.CountIf(myrange, "THERADIUS 0") Then Rows(1).EntireRow.Delete
End Sub