VBA to Move rows Automatically from one sheet to another

[kclynn19]

I watched a video on you tube on how to do this but I don't know what I am doing wrong. I keep getting an error when I go to debug. The first error is on the second line. I am unsure how to upload a mini sheet.
The code used:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xIUP).Row

For i = 2 To a
If Worksheets("Sheet1").Cells(i, 14).Value = "C" Then
Worksheets("Sheet1").Rows(i).Cut
Worksheets("Complete").Activate
b = Worksheets("Complete").Cells(Rows, Count, 1).End(xIUP).Row
Worksheets("Complete").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Sheet1").Activate
End If

Next
For i = 2 To a
If Worksheets("Sheet1").Cells(i, 1).Value = "" Then
Rows(i).Delete
End If
Next


End Sub

 

[RobP]

Hi, you have a typo here at the end of the line :

.End(xlUp).Row

should be lowercase x, lowercase l (L) , uppercase U lowercase p as I have it above.
cheers
Rob

 

[kclynn19]

Hi, you have a typo here at the end of the line :

.End(xlUp).Row

should be lowercase x, lowercase l (L) , uppercase U lowercase p as I have it above.
cheers
Rob

Hi, thank you but I am still receiving this error.

on this line

 

[RobP]

Hi, I can't get it to fail on that line - it works ok for me, cuts and pastes accordingly.

Have you got this code stored in a "module" or is it stored in the "worksheet" (ie. "Sheet1" codespace) ? it should be on Sheet1.

There was also a typo on the 7th line, you have a comma rather than a fullstop in the (Rows,Count, 1) - should be (Rows.count,1)

Rgds
Rob

 

[kclynn19]

Rob, I have very little experience with visual basic, so I apologize. I believe I have it stored in the worksheet codespace.

 

[RobP]

I understand, no problem. The only other thing I can think of then is that your "Sheet1" worksheet name is not called "Sheet1" - maybe you called it "sheet1" or "Sheet1 " possibly ?
have a check on your tabname - its case sensitive and wont like spaces after it either.

Rob

 

[kclynn19]

I understand, no problem. The only other thing I can think of then is that your "Sheet1" worksheet name is not called "Sheet1" - maybe you called it "sheet1" or "Sheet1 " possibly ?
have a check on your tabname - its case sensitive and wont like spaces after it either.

Rob

Ok, I will do that. I appreciate your help.

 

[kclynn19]

Thank you. It is actually working now. I really appreciate your help!

 

[RobP]

Great, thanks for your feedback

Rob