Cut entire rows to another sheet

[juannava]

I would like help in this, I have a list of projects in several rows and at the column "K" is the status of the project, according to the status of the projects if the status is completed I want cut this entire rows and paste to another sheet calls Projects_Completed by using a macro

Thanks in advance =)

 

[lgroulx2000]

Thanks VoG,

Yes, I did that.

If Target.Count > 1 Then Exit Sub What is Target.Count?
If Target.Column = 11 And LCase(Target.Value) = "completed" Then Must be lower case?

Larry

 

[VoG]

If Target.Count > 1 Then Exit Sub What is Target.Count?

Target.Count is the number of cells in the range that you changed. The code is designed to operate on a single cell only, so if the count is greater than 1 the code exits.


If Target.Column = 11 And LCase(Target.Value) = "completed" Then Must be lower case?

No. This is a case-insensitive comparison. It converts whatever you entered to lower case then makes the comparison.

 

[lgroulx2000]

Thanks for your help,

I didn't change a cell. I just was typing completed trying to move a whole row.

Larry

 

[VoG]

By typing completed you are changing a cell. Make sure that you are entering that in column K. This obviously worked for juannava.

 

[lgroulx2000]

It's working now.

Thanks for your help.

 

[VoG]

Glad to hear that it works but for future reference what did you do to make it work?