Combine 2 worksheet_change functions into one

Drivium · March 24th, 2013, 11:30 AM

I have these 2 pieces of code that work great individually, but i need them both on the same worksheet and I cannot figure out how to merge them without errors..

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

I just need these merged into a single worksheet_change event...any help would be awesome. I'm losing my mind with this issue...

Shasur · March 28th, 2013, 02:25 AM

Hi

Since the two pieces of code needs to be run based on Target. Value you can use something similar to the following:

Code:

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

ElseIf Target.Value =  "Not Implemented" Then

If Sheets("Last Planner").Range("A" & i) = Target.Offset(0, 2 - Target.Column()).Value Then
Sheets("Last Planner").Range("A" & i) = ""
End If

End If