I would like to know if a macro can accomplish the following: I have a large
worksheet with about 600 employees, and each employee has at least 1 row for
each date of the month.

For each employee, I would like to search in Column C for one of 2 different
values (RSV, NEW). If that value is found in ANY row for that employee, it
will copy all values in column C (for that employee) to the corresponding row
in column D.

Please see first reply for an example.

You could use a FINDNEXT macro(look in the vba help for FINDNEXT) to do just
that

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"richzip" wrote in message
...
I would like to know if a macro can accomplish the following: I have a
large
worksheet with about 600 employees, and each employee has at least 1 row
for
each date of the month.

For each employee, I would like to search in Column C for one of 2
different
values (RSV, NEW). If that value is found in ANY row for that employee,
it
will copy all values in column C (for that employee) to the corresponding
row
in column D.

Please see first reply for an example.

Try this code. It uses Sumproduct on the worksheet

Sub copycolumn()

OldEmployee = 0
RowCount = 1
Start = RowCount
CopyCol = False
Do While Range("A" & RowCount) < ""
If Range("A" & RowCount) < Range("A" & (RowCount + 1)) Then
Employee = Range("A" & RowCount)
ColARange = "A" & Start & ":A" & RowCount
ColCRange = "C" & Start & ":C" & RowCount

RSVSumProduct = "Sumproduct(--(" & ColARange & "=" & Employee & ")," & _
"--(" & ColCRange & "=""RSV""))"

RSVResult = Evaluate(RSVSumProduct)

NewSumProduct = "Sumproduct(--(" & ColARange & "=" & Employee & ")," & _
"--(" & ColCRange & "=""NEW""))"

NewResult = Evaluate(NewSumProduct)

Result = RSVResult + NewResult

If Result 0 Then
Range(ColCRange).Copy Destination:=Range("D" & Start)
End If

Start = RowCount + 1
End If
RowCount = RowCount + 1
Loop
End Sub


"Don Guillett" wrote:

You could use a FINDNEXT macro(look in the vba help for FINDNEXT) to do just
that

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"richzip" wrote in message
...
I would like to know if a macro can accomplish the following: I have a
large
worksheet with about 600 employees, and each employee has at least 1 row
for
each date of the month.

For each employee, I would like to search in Column C for one of 2
different
values (RSV, NEW). If that value is found in ANY row for that employee,
it
will copy all values in column C (for that employee) to the corresponding
row
in column D.

Please see first reply for an example.