Applying code to multiple cells & rows

[Bolter LAC]

A forum member has kindly provided some code which works a treat. I need to apply it to multiple columns A through to F and cells 2 down to 36. How do I incorporate this into the code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Count > 1 Then
If Target.Address = "$A$2" Then
If Target.Value = "X" Then Application.Goto ThisWorkbook.Sheets("Sheet2").Range("A2")
End If
End If
End Sub

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  10/28/2020  9:51:02 PM  EDT
If Not Target.Count > 1 Then
If Target.Row = 1 Then MsgBox "Does not work on Row(1)": Exit Sub
If Target.Column < 7 And Target.Row < 37 Then
If Target.Value = "X" Then Application.Goto ThisWorkbook.Sheets("Sheet2").Range(Target.Address)
End If
End If
End Sub

 

[My Aswer Is This]

I added one little extra part. So use this script:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  10/28/2020  10:01:32 PM  EDT
If Not Target.Count > 1 Then
If Target.Row = 1 And Target.Column < 7 Then MsgBox "Does not work on Row(1)": Exit Sub
If Target.Column < 7 And Target.Row < 37 Then
If Target.Value = "X" Then Application.Goto ThisWorkbook.Sheets("Sheet2").Range(Target.Address)
End If
End If
End Sub

 

[Bolter LAC]

Hi My Aswer is This,

Legend thanks. Works perfectly.

 

[My Aswer Is This]

Hi My Aswer is This,

Legend thanks. Works perfectly.

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.