Sub TaskMan()
Dim n As Long, i As Long
n = Cells(Rows.Count, "B").End(xlUp).Row
For i = n To 1 Step -1
If Cells(i, "D").Value = "x" Then
Rows(i).Delete
End If
Next

n = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To n
Cells(i, "A").Value = i
Next
End Sub

--
Gary''s Student - gsnu200813


"Srinivasulu Bhattaram" wrote:

I have a spread sheet

It's a ToDo List
The structure is like this
Column A Sl No
Column B Task
Column C Person
Column D Completed

To start with I keep entering the tasks in one stretch and take a print out.
The first Column (A) will be a serialized.
I wil be using this print out for few days.
After two/three days, I would like to open the spread sheet and enter fresh
tasks
For all completed tasks I put x in Col D.
What I currently require is a macro to

1.. Remove all rows where Column D contains 'x" (quotes not included.)
2.. After this operation, contents of Column A will have to be serialsed.

seena




---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 081112-0, 11/12/2008
Tested on: 11/13/2008 6:45:32 PM
avast! - copyright (c) 1988-2008 ALWIL Software.
http://www.avast.com