MS Excel

názov listu, cestu k súboru, dátum číslo strany a pod. priamo v nastavení strany, hlavička a päta, vlastná hlavička

obsah konkrétnej bunky pôjde iba makrom
napr. vložiť v aktívnom hárku na pravú stranu hlavičky hodnotu z bunky C16 na hárku xyz:
ActiveSheet.PageSetup.RightHeader = _
Format(Worksheets("xyz").Range("C16").Value)citovat

"_" je pokračovanie riadka kódu
ak to nemení automaticky, tak asi preto lebo nevie, že to má robiť
Ak je potrebné, aby po každej zmene danej bunky bolo prepísané záhlavie potom napr.:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bunka As Range
Set Bunka = Range("C16")
If Target.Address = Bunka.Address Then
ActiveSheet.PageSetup.RightHeader = _
Format(Range("C16").Value)
End If
End Subcitovat

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$16" Then PageSetup.RightHeader = CStr(Range("C16").Value)
End Sub

no a s ďalším textom spolu
... PageSetup.RightHeader = "abc " & CStr(Range("C16").Value)
Jáj, a zápätie/päta (zápatí) bude RightFooter namiesto RightHeader.

Vľavo je LeftHeader/LeftFooter a v strede zase CenterHeader/CenterFooter.

Ak hrozí, že bude hromadná zmena dát (kopírovanie) zároveň s bunkou C16, treba ošetriť nasledovne:
If Not Intersect(Target, Range("C16")) Is Nothing Then ...

Ak má byť kontrola na základe hodnoty menenej vzorcom, tak Worksheet_Change nepomôže, a to bude problém, pretože v Calculate metóde nieje možné nastavovať hlavičku/pätu.citovat

Ešte by sa to dalo riešiť pred tlačou, alebo pred uložením
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call UpravitHlavicku("Hárok1", "C16")
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call UpravitHlavicku("Hárok1", "C16")
End Sub

Sub UpravitHlavicku(List As String, Bunka As String)
With Worksheets(List)
.PageSetup.LeftHeader = CStr(.Range(Bunka))
End With
End Sub
prípadne pri Workbook_Open() alebo Worksheet_Activate().citovat

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then PageSetup.LeftHeader = _
"Příloha č. 3 ke Kolovadlu č. " & CStr(Range("E1").Value) & " IPP" & _
Chr(10) & "&""-,Bold""Přehled vydaných částek Sbírky zákonů s obsahem za dané období"
End Sub

Vravíte ľavý, píšete pravý (RightHeader).

Ak bude hodnota v E1 počítaná vzorcom, tak to fungovať nebude, lebo vzorcom vypočítaná hodnota nevyvolá procedúru Worksheet_Change.
Preto som vravel, že by sa aktualizácia hlavičky mala urobiť pri inej príležitosti. Na čo je hlavička aby bola hlavne pri tlači na stránkach. Tak preto som navrhol, aby sa pred tlačou aktualizovala (Workbook_BeforePrint). Prípadne, ak nie, navrhol som, aby sa aktivovala zmena hlavičky pri prepnutí medzi listami na daný list. Alebo proste pri inej príležitosti. Alebo si urobte tlačítko.

Vzorec totiž vyvolá procedúru Worksheet_Calculate, ktorá je Vám na nič, lebo v nej nieje možné meniť hlavičku.citovat