Home

Shared cell between pages

%3CLINGO-SUB%20id%3D%22lingo-sub-738764%22%20slang%3D%22en-US%22%3EShared%20cell%20between%20pages%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-738764%22%20slang%3D%22en-US%22%3EHey%20guys%2C%20i'm%20trying%20to%20make%20a%20cell%20that%20show%20the%20same%20value%20on%20two%20different%20pages%20of%20the%20worksheet%2C%20but%20when%20I%20change%20the%20value%20on%20page%202%20for%20example%20it%20also%20changes%20on%20page%201%2C%20and%20when%20I%20change%20on%20page%201%20it%20changes%20on%20page%202.%20And%20if%20possible%20also%20do%20this%20for%20more%20than%202%20pages.%20It%20would%20be%20like%20a%20shared%20cell%20between%20all%20the%20pages%20of%20the%20worksheet.%20I%20know%20I%20can%20put%20for%20example%20%22%3D%20Page1!A1%22%20but%20this%20is%20not%20what%20I%20need.%20Someone%20help%20me%20with%20that%20please%3F!%20Tnx%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-738764%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-738829%22%20slang%3D%22en-US%22%3ERe%3A%20Shared%20cell%20between%20pages%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-738829%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F371294%22%20target%3D%22_blank%22%3E%40NinoPardini%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EHi%20Nino%2C%3C%2FP%3E%3CP%3Eyou%20can%20do%20it%20with%20a%20worksheet%20event.%20See%20attached%20file%20too.%20in%20this%20example%20the%20cells%20A4%20and%20K4%20react%20like%20a%20mirror.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%3EPrivate%20Sub%20Worksheet_Change(ByVal%20Target%20As%20Range)%3CBR%20%2F%3E%3CBR%20%2F%3EApplication.EnableEvents%20%3D%20False%3CBR%20%2F%3E%3CBR%20%2F%3ESelect%20Case%20Target.Address(False%2C%20False)%3CBR%20%2F%3E%3CBR%20%2F%3ECase%20%22A4%22%3CBR%20%2F%3ERange(%22K4%22).Value%20%3D%20Target.Value%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3ECase%20%22K4%22%3CBR%20%2F%3ERange(%22A4%22).Value%20%3D%20Target.Value%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20Select%3CBR%20%2F%3E%3CBR%20%2F%3EApplication.EnableEvents%20%3D%20True%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20Sub%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EBest%20regards%3C%2FP%3E%3CP%3EBernd%3C%2FP%3E%3CP%3E%3CA%20title%3D%22The%20VBA-Tanker%22%20href%3D%22https%3A%2F%2Fvba-tanker.com%2F%22%20target%3D%22_self%22%20rel%3D%22nofollow%20noopener%20noreferrer%20noopener%20noreferrer%22%3EThe%20VBA-Tanker%20-%20a%20database%20full%20of%20usefull%20macros%3C%2FA%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E
NinoPardini
Occasional Visitor
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
1 Reply

@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

The VBA-Tanker - a database full of usefull macros

Related Conversations
Tabs and Dark Mode
cjc2112 in Discussions on
22 Replies
flashing a white screen while open new tab
cntvertex in Discussions on
13 Replies
Stable version of Edge insider browser
HotCakeX in Discussions on
35 Replies
How to Prevent Teams from Auto-Launch
chenrylee in Microsoft Teams on
28 Replies