Move row to another worksheet if checked

[QualitySoup]

Hi, all

I'm Creating a job board where I need a row moved from a "Working Jobs" spreadsheet to a "completed Jobs" spreadsheet once the checkbox for said row has been checked. Can I get some assistance with this? Thanks!

 

[QualitySoup]

So you want the cells In column C to I copied to the sheet named "CONFSENT"

And where on this sheet are they copies too?
Do we paste them into C to I on sheet named CONFSENT"
So first time copy to row 2 and next time to row 3 and on and on.

That sounds perfect. Either copied to the next row down or the first empty row, if possible.

 

[My Aswer Is This]

I guess I still keep asking more questions:
You said:
2. Also, instead of typing "Alpha" into the cell then double clicking to send, would there be a way to select it from a drop down box in the cell then double click?

Why do we need a drop down box?
The values from C to I are always going to the same sheet.
You said copy C to I to sheet named "CONFSENT"
So double click on column C and the values in column C to I of that row get copied to sheet CONFSENT

Correct. If you choose anything else nothing will happen.

 

[QualitySoup]

The drop-down is not needed after all. So no new code is needed to make column "C" act as column "A" did?

 

[My Aswer Is This]

The drop-down is not needed after all. So no new code is needed to make column "C" act as column "A" did?

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

 

[QualitySoup]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Last thing, would you be able to copy the row into the first blank row on "CONFSENT"?
Sorry if I'm being difficult.

 

[My Aswer Is This]

Last thing, would you be able to copy the row into the first blank row on "CONFSENT"?
Sorry if I'm being difficult.

So now your saying "copy the row"
But when I mentioned that in my first posting you said No just:
C To I
Column C to Column I
Which is not row

 

[QualitySoup]

The whole row is fine. I rearranged my column titles to match your code. Just need the values to be pasted to the next blank row. This is what I have.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  7/15/2022  12:41:36 AM  EDT
If Target.Column = 1 Then
On Error GoTo M
Dim r As Long
Dim ans As String
ans = Target.Value
r = Target.Row
Dim Lastrow As Long
Lastrow = Sheets(ans).Cells(Rows.Count, "A").End(xlUp).Row + 1
Rows(r).Copy Sheets(ans).Rows(Lastrow)
Rows(r).ClearContents
End If
Exit Sub
M:
MsgBox "You double clicked on " & ans & vbNewLine & "This sheet does not exist"
End Sub

 

[My Aswer Is This]

The whole row is fine. I rearranged my column titles to match your code. Just need the values to be pasted to the next blank row. This is what I have.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  7/15/2022  12:41:36 AM  EDT
If Target.Column = 1 Then
On Error GoTo M
Dim r As Long
Dim ans As String
ans = Target.Value
r = Target.Row
Dim Lastrow As Long
Lastrow = Sheets(ans).Cells(Rows.Count, "A").End(xlUp).Row + 1
Rows(r).Copy Sheets(ans).Rows(Lastrow)
Rows(r).ClearContents
End If
Exit Sub
M:
MsgBox "You double clicked on " & ans & vbNewLine & "This sheet does not exist"
End Sub

Ok So what else do you need?
If this works what else do you need?

 

[QualitySoup]

Ok So what else do you need?
If this works what else do you need?

I just need the values to fill to the first blank row on the sheet "CONFSENT". Not the row at the bottom.

 

[My Aswer Is This]

I just need the values to fill to the first blank row on the sheet "CONFSENT". Not the row at the bottom.

I'm not sure how to do that.
So, we have to look down column A I assume and find first emtpy cell in column A
And paste the row in that row.
Someone else here will need to help you with that.

And by row at bottom, I assume you mean last row with data in column A
Because last row at bottom of sheet would be row 1.5 million

And you said:
first blank row

Which would mean Check every single cell on all rows to see if there is any value
Each row has I believe 1.5 thousand cells