Question

I have two columns but the codition I would like is to be evaluated from one cell to another.

The first column has cells which have a drop down validation with names, and the second will activate only if a certain name from the adjacent cell is selected.

so far i only found this code but it does not seem to work:

Private Sub Worksheet_Change(ByVal Target As Range)     If Range('A1').Value = 'Car' Then         Range('B1').Locked = False     Else         Range('B1').Locked = True     End If End Sub 

I would need this code go from (for example) A1:A10 and B1:B10.

I hope I am making sense. If there is a way to do it without VBA, that would be great.

Thanks for the help.

Answer 1

The Target parameter tells you the range that is being changed.

You need to do something like the following:

Private Sub Worksheet_Change(ByVal Target As Range)     Dim rng As Range      Set rng = Intersect(Range('A1:A10'), Target)     If rng Is Nothing Then         ' Not updating the range we care about         Exit Sub     Else         rng.Offset(0, 1).Locked = ... whatever ...     End If End Sub 

Note that your target range can be more than one cell (e.g. when using copy/paste), so you need to handle and test this case.

Calling Intersect returns you the intersection of the target range and the range you are interested in testing (A1:A10 in this sample).

You can then access the corresponding adjacent cell(s) using .Offset(0,1)