Find 2 Matches Wors Then Cut Selected Rows
 

I need to write a coding to identified the specified row is stated
Completed or Not Completed, If Completed the selected row will cut and
paste to Completed Task (Next Sheet), Not Completed will move down to
bottom.

I have wrote a coding with using FIND method to searching the Completed
word, if this word found, then cut the specified row or rows and do the
paste.

The problem i have found is, Let say there is two "Completed" rows in
my worksheet, i need to click twice commandbutton in order to Find this
words. Is there any method to be done once button clicks, ALL Completed
rows will automaticaly move & cut to next sheets.


Code:
--------------------

Private Sub CommandButton3_Click()

Dim fRange As Range

On Error Resume Next
Set fRange = Range("A18:F37").Find(What:="Completed", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
Cell.FindNext(After:=ActiveCell).Activate
Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, -5)).Cut Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1)

End Sub

--------------------


Please help on this!! :confused:

Rgds
Bernard (MIS- Excel Programmer Beginner)


--
bernardng
------------------------------------------------------------------------
bernardng's Profile: http://www.excelforum.com/member.php...o&userid=34117
View this thread: http://www.excelforum.com/showthread...hreadid=543976

Find 2 Matches Wors Then Cut Selected Rows
 

Hi Bernard
I've replied in Tek-Tips suggesting you check out the help file for Find as
the example is good for loping through all occurances of what you are
looking for.

;-)

"bernardng" wrote
in message ...

I need to write a coding to identified the specified row is stated
Completed or Not Completed, If Completed the selected row will cut and
paste to Completed Task (Next Sheet), Not Completed will move down to
bottom.

I have wrote a coding with using FIND method to searching the Completed
word, if this word found, then cut the specified row or rows and do the
paste.

The problem i have found is, Let say there is two "Completed" rows in
my worksheet, i need to click twice commandbutton in order to Find this
words. Is there any method to be done once button clicks, ALL Completed
rows will automaticaly move & cut to next sheets.


Code:
--------------------

Private Sub CommandButton3_Click()

Dim fRange As Range

On Error Resume Next
Set fRange = Range("A18:F37").Find(What:="Completed", After:=ActiveCell,
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
Cell.FindNext(After:=ActiveCell).Activate
Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, -5)).Cut Range("A" &
Cells(Rows.Count, 1).End(xlUp).Row + 1)

End Sub

--------------------


Please help on this!! :confused:

Rgds
Bernard (MIS- Excel Programmer Beginner)


--
bernardng
------------------------------------------------------------------------
bernardng's Profile:
http://www.excelforum.com/member.php...o&userid=34117
View this thread: http://www.excelforum.com/showthread...hreadid=543976

Find 2 Matches Wors Then Cut Selected Rows
 

Thanks for ur reply, I know is must using Loop To find untill it found,
but I dont know how to put in at my coding, If you do, please provide
some tips for me. Thanks!

For more understanding, you can refer to my attachment excel files.


+-------------------------------------------------------------------+
|Filename: Meeting management1.zip |
|Download: http://www.excelforum.com/attachment.php?postid=4795 |
+-------------------------------------------------------------------+

--
bernardng
------------------------------------------------------------------------
bernardng's Profile: http://www.excelforum.com/member.php...o&userid=34117
View this thread: http://www.excelforum.com/showthread...hreadid=543976