Validation tables

[ira daboy]

What I have is two data validation lists. One in cell H2 on sheet 1 and one in cell C7 on sheet 2. What I would like to be able to do is if I change H2 it will be copied in cell C7. Also if I change cell C7 it will be copied in cell H2. Just so can do it in either place. So I don’t have to jump from page to page. Does anyone know if this is possible?

thanx

 

[kevin9999]

You can do this using two worksheet change event subs. To enter sheet modules, right-click on the tab, select View Code and put the code in the empty window that appears on the right of the screen. I'm assuming both validation lists accept values from either list? Just change the sheet names to suit.
Put this in sheet one:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("H2"), Target) Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        Target.Copy
        Worksheets("Sheet2").Range("C7").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Application.EnableEvents = True
    End If
End Sub

and this in sheet two:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("C7"), Target) Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        Target.Copy
        Worksheets("Sheet1").Range("H2").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Application.EnableEvents = True
    End If
End Sub

 

[ira daboy]

This is just what i wanted. Sorry for the delay but i was away.

Thanks Kevin,

 

[kevin9999]

Happy to help, and thanks for the feedback