Worksheet_change event using SELECT CASE

[PATSYS]

Hi all,

I would like a worksheet_change event that will enter the value "Y" on a certain column depending on the target.column value (for the same row)

There must be many ways to do this but I would like to see how this is done using SELECT CASE

So if the target column is M, I would like the value "Y" to reflect on column X. If the target column is N, I would like the value "Y" to reflect on column V. If the target column is O, I would like the value "Y" to reflect on column Z.

Thanks

 

[Misca]

Try something like:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Cells.Count > 1 Then Exit Sub 'Exits sub if more than a single cell changes at the same time
Application.EnableEvents = False    'Turns off the events
Select Case Target.Column
    Case Is = 13 'Column M
        i = 11
    Case Is = 14 'Column N
        i = 8
    Case Is = 15
        i = 11
    Case Else
        GoTo TheEnd 'Jumps to the turning the events back on part of the code
End Select
    Target.Offset(0, i).Value = "Y"
TheEnd:
Application.EnableEvents = True     'Turns the events back on
End Sub

 

[PATSYS]

Thanks Misca.