Sub CopyData()
Dim rng as Range, rng1 as Range, cell as Range
With worksheets("Sheet1")
set rng = .Range(.cells(2,3),.Cells(2,3).End(xldown))
end with
for each cell in rng
if instr(1,cell,"3f",vbTextCompare) then
if rng1 is nothing then
set rng1 = cell
else
set rng1 = union(rng1,cell)
end if
end if
Next
if not rng1 is nothing then
rng1.EntireRow.copy Destination:=Worksheets( _
"Sheet2").Range("A1")
rng1.EntireRow.Delete
end if
End Sub

This assumes you won't have codes like 3f2, which contain 3f, but would
not indicate the row should be copied.


--
Regards,
Tom Ogilvy


wrote in message
oups.com...
Hi,

I'm trying to write a macro in excel to find a predefined codes ina
sequence of codes in a single cell, if the any of the codes match the
predefined codes macro has to cut that particualr row and paste the
same in another spreadsheet.


Example :-


Loan# Exclude 1 Exclude 2
123465 LI,SA sa,li,3f
123466 dd sf,dd,ex,gh,LIP
123467 co cop
123468 aa sf,dd,ex,gh,LIP
123469 fdf sa,li,3f
123470 fdf cop
123471 df co
123472 dd aa
123473 dd fdf


if in first row 3f is the predefined code so it has to cut this
particular row and paste in another spreadsheet for further research.


please help me on this.