Intersect(ActiveCell) Combining Ranges and Target.Value

[kivikatz]

Hi All. Is it possible to combine the following two If Not Intersect statements into one statement? What I want to do is when I click on a cell in column B (1st If Not Intersect), it also activates the corresponding cell in column N (2nd If Not Intersect). For example, if click on B50 (which is inserted into "Symbol"), it will also activate N50 (which is inserted into "DateInput").

Hope you understand what I am trying to do. Thanks.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(ActiveCell, Range("B10:B110")) Is Nothing Then
Sheet311.Range("Symbol") = Target.Value
End If

If Not Intersect(ActiveCell, Range("N10:N110")) Is Nothing Then
Sheet311.Range("DateInput") = Target.Value - 1
End If

End Sub

 

[Joe4]

Just have the first IF block select the same row in column N, which will trigger the code to run again, i.e.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.CountLarge > 1 Then Exit Sub

If Not Intersect(Target, Range("B10:B110")) Is Nothing Then
    Sheet311.Range("Symbol") = Target.Value
    Cells(Target.Row, "N").Select
End If

If Not Intersect(Target, Range("N10:N110")) Is Nothing Then
    Sheet311.Range("DateInput") = Target.Value - 1
End If

End Sub

Also note. Typically in these kind of event procedures, you do not use ActiveCell, but rather use Target (which is the cell that is selected that activates the code to run).

 

[kivikatz]

Thanks! That works really well.

 

[Joe4]

You are weclome.
Glad I was able to help!