Circular Reference - Worksheet Cells Dependency

[jimlemond]

I have an issue that is similar to the one discussed in the thread at https://www.mrexcel.com/forum/excel...ant-eachother-circular-reference-problem.html; however, it stretches across multiple tabs.

This is a spreadsheet used as a statistical scorecard for employees. There is one tab for each month. When an employee name is selected in cell D4 of any tab (tabs are named January, February, all the way down to December), I would like ALL tabs to populate respective cell D4 with the same value.

There is no master tab or master cell upon which others are dependent. Simply, if any tab's cell D4 is populated, all tabs' cell D4 should be automatically populated with the same value.

First-time poster - many thanks in advance!

Jim

 

[mumps]

Place this macro in the code module for ThisWorkbook. Do the following: Hold down the ALT key and press the F11 key. This will open the Visual Basic Editor. In the left hand pane, double click on "ThisWorkbook". Copy/paste the macro into the empty window that opens up. Close the window to return to your sheet.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("D4")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim ws As Worksheet
    For Each ws In Sheets
        ws.Range("D4") = Target
    Next ws
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[jimlemond]

Place this macro in the code module for ThisWorkbook. Do the following: Hold down the ALT key and press the F11 key. This will open the Visual Basic Editor. In the left hand pane, double click on "ThisWorkbook". Copy/paste the macro into the empty window that opens up. Close the window to return to your sheet.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Range("D4")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim ws As Worksheet
    For Each ws In Sheets
        ws.Range("D4") = Target
    Next ws
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

This worked perfectly! I can't thank you enough for the education and quick response time. Incredibly helpful! Thank you!

 

[mumps]

You are very welcome.