Delete Row Help
 

I am trying to have a macro that will delete any row where B is not
"Pending." My code below is giving an error on line: If (cell.Value)
< "Pending" Then

Can you troubleshoot? Thanks.

A B C D
10/18/2006 9:39 Pending 34 Local Area Activity
11/20/2006 9:44 Completed 1 Local Area Activity
11/20/2006 9:59 Pending 2 Local Area Activity

Sub Only_Pending()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("B:B"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) < "Pending" Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next
On Error Resume Next
del.EntireRow.Delete
'
End Sub

Delete Row Help
 

Try

If cell.Value < "Pending" Then

See also the union example on this page
http://www.rondebruin.nl/delete.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


wrote in message ps.com...


I am trying to have a macro that will delete any row where B is not
"Pending." My code below is giving an error on line: If (cell.Value)
< "Pending" Then

Can you troubleshoot? Thanks.

A B C D
10/18/2006 9:39 Pending 34 Local Area Activity
11/20/2006 9:44 Completed 1 Local Area Activity
11/20/2006 9:59 Pending 2 Local Area Activity

Sub Only_Pending()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("B:B"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) < "Pending" Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next
On Error Resume Next
del.EntireRow.Delete
'
End Sub

Delete Row Help
 

On Jul 11, 1:33 pm, "Ron de Bruin" wrote:
Try

If cell.Value < "Pending" Then

See also the union example on this pagehttp://www.rondebruin.nl/delete.htm

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

wrote in glegroups.com...

I am trying to have a macro that will delete any row where B is not
"Pending." My code below is giving an error on line: If (cell.Value)
< "Pending" Then

Can you troubleshoot? Thanks.

A B C D
10/18/2006 9:39 Pending 34 Local Area Activity
11/20/2006 9:44 Completed 1 Local Area Activity
11/20/2006 9:59 Pending 2 Local Area Activity

Sub Only_Pending()
Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("B:B"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) < "Pending" Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next
On Error Resume Next
del.EntireRow.Delete
'
End Sub

I used another of your examples, and got it to work. thanks.