I have these two pieces of code:
They both work great independently, but I need to somehow merge them to fit together under Worksheet_Change as 1 piece of code. Ive tried everything, but Im getting errors like "End if without block if", "object not defined", "Next without for"... TIA
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value Like "Moved to last planner" Then
Sheets("Last Planner").Range("A" & Rows.Count).Find("").End(xlUp).Offset(1, 0) = Target.Offset(0, 2 - Target.Column()).Value
Else
If Target.Value <> "Moved to last planner" Then
End If
End If
End Sub
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 30
If Target.Value Like "Not Implemented" Then
If Sheets("Last Planner").Range("A" & i) = Target.Offset(0, 2 - Target.Column()).Value Then
Sheets("Last Planner").Range("A" & i) = ""
Else
End If
End If
Next i
End Sub
They both work great independently, but I need to somehow merge them to fit together under Worksheet_Change as 1 piece of code. Ive tried everything, but Im getting errors like "End if without block if", "object not defined", "Next without for"... TIA