Homer,
Sorry for the late reply.
Actually I am looking at different categaries (Working, Resigned and
absconding) to be copied on to different sheets (Sheet names ex: working,
resigned and absconding)

Once again sorry for the late reply.


"Homer" wrote:

How would I modify the code to copy rows to different sheets based on the
contents of the cell.

To keep on the same page as previous:

Say there was another sheet named "absconding" and whenever the "AB" was in
the cell that row is copied to the sheet "absconding". And there is a third
sheet named "working" and whenever the "W" was in the cell that row is copied
to the sheet "working".

I have 4-5 possibilities for the contents of the cell and I want to have 4-5
sheets. Each sheet for each posibility.



"Mike H" wrote:

I forgot,

You never said which column the code "R" was in so I assumed column D.
Change to suit.

Mike

"Mike H" wrote:

Hi,

Right click the sheet tab with the data in, view code and paste this in and
run it

Sub stance()
Dim MyRange
Dim copyrange As Range
Lastrow = Cells(Cells.Rows.Count, "D").End(xlUp).Row
Set MyRange = Range("D1:D" & Lastrow)
For Each C In MyRange
If UCase(C.Value) = "R" Then
If copyrange Is Nothing Then
Set copyrange = C.EntireRow
Else
Set copyrange = Union(copyrange, C.EntireRow)
End If
End If
Next
If Not copyrange Is Nothing Then
copyrange.Copy
Sheets("Resigned").Range("A1").PasteSpecial
End If
End Sub


Mike
"Vijay DSK" wrote:

Hi all,
i am a novice in Excel. Need your advise in solving a problem.
The issue is I have a sheet with all my employee names with their working
status as "W" for Working "R"for Resigned and "AB" absconding.
I conditionally formatted the cell, as it was filled with Red color where R
is the condition.

Now i am looking a solution, i want to copy that entire row to a sheet by
name "Resigned" where working status is "R".
I am looking for vba code as it could not be viewed by lay men.

Thanks in advance for resolving the issue.