Excel linking cells

[Hidden999]

Hi guys,

I am making a worksheet and have a question regarding linking cells.

What I want to achieve:
Having two cells (on different sheets or not) which contain the same text.
So if I change the text in one cell it also changes in the other cell. Vice versa.
I've tried doing it just like this.

A1 contains formula (=B1)
B1 contains formula (=A1)

But then if you type it overwrites the formula.

Thanks in advance!

 

[Fluff]

Hi & welcome to MrExcel
The only way to do that would be with VBA, is that an option?

 

[Hidden999]

Thank you for your quick reply! To be fair I'm a noob in Excel so it won't be a problem if I understand how it works. Don't know if it's difficult?

 

[Fluff]

Ok, what cells do you want to link?

 

[Hidden999]

Well I want to link quite some cells together. Also between 2 different sheets. Maybe it's possible to give a small instruction on how to make this happen?

 

[Fluff]

What are the cells that you want to link & what are the sheet names?

 

[Hidden999]

For example A1 on sheet (Idontknow) with A1 on sheet (noobinexcel).

I haven't made the full format yet. So if you can give an example of what the code looks like.

 

[Fluff]

In the noobinexcel sheet put

REMOVED

& in the other put

REMOVED

change values in red to your actual sheet names.
This will work for the whole of column A.
To see how to add code to a Worksheet module have a look here https://www.contextures.com/xlvba01.html

 

[Hidden999]

Cheers mate you are a legend. So that works for the column A. What if I would like row just row 1 or maybe even just one cell like row one column A?

 

[Fluff]

Please do not use the code I originally posted as it's seriously flawed
The two sets of code should be

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 Then
      Application.EnableEvents = False
      Sheets("[COLOR=#ff0000]Idontknow[/COLOR]").Range(Target.Address).Value = Target.Value
      Application.EnableEvents = True
   End If
End Sub

and

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 1 Then
      Application.EnableEvents = False
      Sheets("[COLOR=#ff0000]noobinexcel[/COLOR]").Range(Target.Address).Value = Target.Value
      Application.EnableEvents = True
   End If
End Sub