Edit a value from to different cells

[fyrsten]

Hey

Is it possible to edit a value in a cell in sheet 1, so that it also changes in sheet 2, and then if i change the value in sheet 2 then it changes back in sheet 1 again?

I have tried this macro, but it doesn't do the magic.

ThisWorkbook.Sheets("Sheet2").Range(Target.Address) = Target.Value

Does anyone have a solution to this?

[fyrsten]

Is it possible to use this function "ObjectListView.CELLEDIT", so that every time i change the sub cell, it also changes the primary cell?

[Mumps1]

Put this macro in the code module for Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Sheet2").Cells(Target.Row, Target.Column) = Target
End Sub

and this macro in the code module for Sheet2:

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Sheet1").Cells(Target.Row, Target.Column) = Target
End Sub

Keep in mind that as written, these macros will apply to all cells in the worksheets. If you want to limit this from happening to only certain cells, then I would need to know which cells you want to copy from one sheet to the next.

[fyrsten]

Thanks! it works.

The certain cells would be E8 to E20. Does it have to be the same cells in sheet2?
I have Interactive sheetnames, is it possible to link to the sheet in a nother way?

[Mumps1]

It doesn't have to be the same cells in Sheet2 but if those cells are different, then I would need to know the location of the cells in Sheet2. What do you mean by "Interactive sheetnames"?

[fyrsten]

D4 to D16 in sheet2.

When i choose a nother year in E5 all but the startsheet change name. You can see it in the link below:
http://www.filedropper.com/projektsuper1

[Mumps1]

We can refer to the sheets by using their codenames. At present, Sheet1 is named "Start" and Sheet2 is named "2005". Are these the two sheets in which you want the cell changes?

[fyrsten]

ok.
Yes, lets just use them.

[Mumps1]

Have a look at the attached file. I was getting an "Out of stack space" error when I tried to combine the running of the NamesWS macro with the code to copy the cells from Sheet(1) to Sheet(2). By the way, Sheet(1) will always be the first tab and Sheet(2) will always be the second tab regardless of what the actual sheet names are. I separated the two procedures to avoid the "Out of stack space" error. In the "Start" sheet select the year in cell E5 and then click the "Run NamesWS" button. Your sheets will be updated. Now enter a value in any cell in range E8:E20 in the "Start" sheet or enter a value in the range D4:D16 in the second sheet and the values will be copied. I'm not sure if this will work for you but I don't know of any other way to avoid the error.