aledger
Might be just as easy to DataAutofilter for Vice President on Column C then
F5SpecialVisble Cells OnlyOK
Copy to next sheet.
Anyway.......macro as requested.
Sub Copy_Rows()
Dim RngCol As Range
Dim i As Range
Set RngCol = Range("C1", Range("C" & Rows.Count). _
End(xlUp).Address)
For Each i In RngCol
If i.Value = "Vice President" Then _
i.Rows.Copy Destination:=Sheets("Sheet2") _
.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Next i
End Sub
Gord
On Mon, 7 Mar 2005 10:53:09 -0800, "aledger"
wrote:
You will only see Vice President in column C throughout various rows.
"Gord Dibben" wrote:
Is it likely that more than one cell contains the string "Vice President"?
Is it likely that string would be part of a larger string in the cell(s)?
Gord Dibben Excel MVP
On Fri, 4 Mar 2005 13:29:02 -0800, "aledger"
wrote:
If a cell contains the word Vice President I would like to copy the entire
row it sits on to the next worksheet. Is there a way to do this as a macro or
formula without using autofilter and copying the row manually?
|