HI,

I wish to delete entire row if value in col J is "--"

I did some work but not working properly.
data id huge of 400 rows.

Thanks for help.
Boss


Sub delete()
Dim rng As Range
Dim rngAll As Range

Set rngAll = Range("j:j")

For Each rng In rngAll
If rng.Value = "--" Then

rng.EntireRow.Delete
End If
Next rng

Set rng = Nothing
Set rngAll = Nothing

End Sub

Sub marine()
Set rngAll = Intersect(Range("i:j"), ActiveSheet.UsedRange)
Set rdel = Nothing
For Each r In rngAll
If r.Value = "--" Then
If rdel Is Nothing Then
Set rdel = r
Else
Set rdel = Union(rdel, r)
End If
End If
Next
If rdel Is Nothing Then
Else
rdel.EntireRow.Delete
End If
End Sub

--
Gary''s Student - gsnu200769


"Boss" wrote:

> HI,
>
> I wish to delete entire row if value in col J is "--"
>
> I did some work but not working properly.
> data id huge of 400 rows.
>
> Thanks for help.
> Boss
>
>
> Sub delete()
> Dim rng As Range
> Dim rngAll As Range
>
> Set rngAll = Range("j:j")
>
> For Each rng In rngAll
> If rng.Value = "--" Then
>
> rng.EntireRow.Delete
> End If
> Next rng
>
> Set rng = Nothing
> Set rngAll = Nothing
>
> End Sub
>