Hello! I've spent a couple days searching the boards and can't quite find what I need - or I find too many answers and can't tell which to use.
Hopefully I can succinctly spell what I need. Your assistance is greatly appreciated! (BTW, looking forward to crypto-currency tipping! It would be fantastic here for tipping you folks who offer so much assistance!)
I have a To Do list that is combined work and personal items.
Worksheets are: Stuff To Do, "1", "2", "3", Complete
The first page is a brain dump of all my tasks, that I then add a priority to.
Columns are:
Stuff to do (text);
priority (1, 2, 3);
how soon? (now, today, this week, this month, someday);
work or personal (W P);
status (blank, in progress, need info, complete);
misc (text)
Once the priority is set on the first page, I need it to auto-move to another sheet (priority number).
If the priority changes, I need it to automatically move to the appropriate sheet.
When the status changes to complete, I need it to move to the "Complete" sheet.
____
I already have this code in place for my main page "Stuff to do" and it is on the (Sheet1 (code)):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
Select Case Target.Value
Case "1"
Target.EntireRow.Cut Worksheets("1").Range("A65536").End(xlUp).Offset(1, 0)
Case "2"
Target.EntireRow.Cut Worksheets("2").Range("A65536").End(xlUp).Offset(1, 0)
Case "3"
Target.EntireRow.Cut Worksheets("3").Range("A65536").End(xlUp).Offset(1, 0)
End Select
End Sub
But this leaves blank rows.
Similarly, on sheets 2, 3, and 4, I have the same code that cuts rows and pastes them on the other sheets based on the priority in column 3. Again, it leaves the blank rows.
I've tried a couple of the "delete blank rows" solutions on the board, but kept losing data. Not sure what I'm doing wrong. And one solution went into orbit and ran forever!
Really appreciate your help!
Hopefully I can succinctly spell what I need. Your assistance is greatly appreciated! (BTW, looking forward to crypto-currency tipping! It would be fantastic here for tipping you folks who offer so much assistance!)
I have a To Do list that is combined work and personal items.
Worksheets are: Stuff To Do, "1", "2", "3", Complete
The first page is a brain dump of all my tasks, that I then add a priority to.
Columns are:
Stuff to do (text);
priority (1, 2, 3);
how soon? (now, today, this week, this month, someday);
work or personal (W P);
status (blank, in progress, need info, complete);
misc (text)
Once the priority is set on the first page, I need it to auto-move to another sheet (priority number).
If the priority changes, I need it to automatically move to the appropriate sheet.
When the status changes to complete, I need it to move to the "Complete" sheet.
____
I already have this code in place for my main page "Stuff to do" and it is on the (Sheet1 (code)):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
Select Case Target.Value
Case "1"
Target.EntireRow.Cut Worksheets("1").Range("A65536").End(xlUp).Offset(1, 0)
Case "2"
Target.EntireRow.Cut Worksheets("2").Range("A65536").End(xlUp).Offset(1, 0)
Case "3"
Target.EntireRow.Cut Worksheets("3").Range("A65536").End(xlUp).Offset(1, 0)
End Select
End Sub
But this leaves blank rows.
Similarly, on sheets 2, 3, and 4, I have the same code that cuts rows and pastes them on the other sheets based on the priority in column 3. Again, it leaves the blank rows.
I've tried a couple of the "delete blank rows" solutions on the board, but kept losing data. Not sure what I'm doing wrong. And one solution went into orbit and ran forever!
Really appreciate your help!
