data validation

[cybergremlin]

Hi

Is it possible to link multiple data validation boxes?
What i mean is if i have a validation box in cell B1 and another in cell C1 when i update 1 the other also updates and visa versa?

thanks

 

[My Aswer Is This]

If im correct the the VBA code refers 1 cell the ther other cell so how would i add another validation list to the code say in cell D1?

Explain more about D1

If you enter value into D1 what do you want to happen?

 

[cybergremlin]

I have another data validation list in cell D1 so i also want that to update when i choose something from either B1/C1 and then if i choose somethin from D1 both B1 & C1 also update

 

[My Aswer Is This]

So you want B1 C1 and D1 to always be the same is this correct?

And is this the last one or do you have more.

 

[cybergremlin]

So you want B1 C1 and D1 to always be the same is this correct?

And is this the last one or do you have more.

yes this would be the last 1 thanks

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/13/2018  6:01:06 AM  EST
Application.EnableEvents = False
If Target.Column = 2 And Target.Row = 1 Then Range("C1,D1").Value = Target.Value
If Target.Column = 3 And Target.Row = 1 Then Range("B1,D1").Value = Target.Value
If Target.Column = 4 And Target.Row = 1 Then Range("B1,C1").Value = Target.Value
Application.EnableEvents = True
End Sub

 

[cybergremlin]

thank you very much

 

[My Aswer Is This]

I could have written it like this:

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  12/13/2018  6:47:16 AM  EST
If Not Intersect(Target, Range("B1:D1")) Is Nothing Then
Application.EnableEvents = False
Dim r As Range
    For Each r In Range("B1:D1")
        If r.Value <> Target.Value Then r.Value = Target.Value
    Next
Application.EnableEvents = True
End If
End Sub

 

[My Aswer Is This]

thank you very much

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