Excel Table Header Row

[ManUBlueJay]

I would like table 2 header rows to be linked to some of table 1' header row.
SO when I Change the header in the linked cell in table 1 it automatically changes in in table 2.

As soon as I link it and hit enter it inserts a 0 instead.
Any clues or work around would be appreciated.

 

[Yongle]

Formulas are not permitted in structured Table header cells
VBA can be used to make the header cells identical

 

[ManUBlueJay]

I have tried this without success:
Range("MDLReportsHeaderRange") = Range("DatabaseReportsHeaderRange").Value

I am using Private Sub Worksheet_Change(ByVal Target As Range) that when I change something in that Header it runs the code.
The code runs but nothing changes

 

[Yongle]

Are you trying to make every header cell identical?
Are the tables in 2 different sheets?
Are they the only tables in those sheets
If so, code below will do what you want (Amend sheet name MDL)
(If not, please detail)

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.ListObjects(1).HeaderRowRange.Copy Sheets("MDL").ListObjects(1).HeaderRowRange
End Sub

 

[ManUBlueJay]

The tables are on 2 separate sheets. Table 1 is 16 Cols wide. Table 2 is 8 Cols Wide.
I want to Update all of Table 2 headers with 8 contiguous Cols that are part of table 1 header row

 

[Yongle]

Amend to match your requirements ...

example1 copies FIRST 8 header cells

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.ListObjects(1).HeaderRowRange.Resize(, 8).Offset(, 0).Copy Sheets("XXX").ListObjects(1).HeaderRowRange
End Sub

example 2 copies 8 header cells starting with 2nd column

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.ListObjects(1).HeaderRowRange.Resize(, 8).Offset(, 1).Copy Sheets("XXX").ListObjects(1).HeaderRowRange
End Sub

 

[ManUBlueJay]

That works perfect but it changes the formats. How could I make it only copy the values

 

[ManUBlueJay]

In the end I just Formated the Header on Table 1 which is hidden anyway to match Table 2, so it works. It would have been good to know for future education

 

[Yongle]

Try ...

Private Sub Worksheet_Change(ByVal Target As Range)
   Sheets("XXX").ListObjects(1).HeaderRowRange.Value =  Me.ListObjects(1).HeaderRowRange.Resize(, 8).Offset(, [B]1[/B]).Value
End Sub

 

[ManUBlueJay]

Thank you. I tried and it gives me a compile error on Offset(, 1).Value "Expected a list separator or )"
I would be interested what the code inside the offset represent as it would help me understand the code.
Cheers