Forum Discussion

NinoPardini's avatar
NinoPardini
Copper Contributor
Jul 04, 2019

Shared cell between pages

Hey guys, i'm trying to make a cell that show the same value on two different pages of the worksheet, but when I change the value on page 2 for example it also changes on page 1, and when I change on page 1 it changes on page 2. And if possible also do this for more than 2 pages. It would be like a shared cell between all the pages of the worksheet. I know I can put for example "= Page1!A1" but this is not what I need. Someone help me with that please?! Tnx
excel
Formulas and Functions

1 Reply

  • Berndvbatanker's avatar
    Berndvbatanker
    Iron Contributor
    Jul 04, 2019

    NinoPardini 

    Hi Nino,

    you can do it with a worksheet event. See attached file too. in this example the cells A4 and K4 react like a mirror.

     

    Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    Select Case Target.Address(False, False)

    Case "A4"
    Range("K4").Value = Target.Value


    Case "K4"
    Range("A4").Value = Target.Value


    End Select

    Application.EnableEvents = True

    End Sub

     

    Best regards

    Bernd

    https://vba-tanker.com/

Resources