Hello,
I currently have a macro that auto shifts a row from "Currrent Tasks" to "Completed Tasks" when ever "Complete" is selected in row "I." The data is pulled in a timely manner but now where the row in "Current Tasks" once was is no just a blank unformatted row. Is there anyway to tweak the macro so that is can A: Delete the formerly filled row OR B: Keep the formatting in the Row. Bellow you can find the macro. Any help would be much appreciated!
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' Code goes in the Worksheet specific module
Dim rng As Range
' Set Target Range
Set rng = Target.Parent.Range("I5:I200")
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
' Only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
' Action if Condition(s) are met
Select Case Target.Text
Case "Complete"
Target.EntireRow.Cut Sheets("Completed Tasks").Cells(Rows.Count, "A").End(xlUp).Offset(1)
Case Is = ""
Target.EntireRow.Cut Sheets("Current Tasks").Cells(Rows.Count, "A").End(xlUp).Offset(1)
End Select
End Sub
Bookmarks