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
Highlighted

@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
flashing a white screen while open new tab
cntvertex in Discussions on
13 Replies
Tabs and Dark Mode
cjc2112 in Discussions on
22 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
PacketMon Components are not loading in WAC 1909
HotCakeX in Windows Admin Center on
2 Replies