B
bernardng
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!!
Rgds
Bernard (MIS- Excel Programmer Beginner)
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!!
Rgds
Bernard (MIS- Excel Programmer Beginner)