makro na vyplnění záhlaví

[Sirka]

Ahoj, potřeboval bych poradit nějaký makro něbo něco automatizovaneho co by vždy vyplnilo záhlaví například buňkou A1 z listu Vzor. Klidně na nějaký tlačítko v tom Vzor ... tzn po kliknutí přepsat záhlaví v určitém listu

předem Díky za pomoc :)

[Reklama]

[Azuzula]

Ahoj, co třeba dát na každý list, kde je potřeba to záhlaví, vzorec? =vzor!A1 Pokud teda je celé záhlaví v jedné buňce jak jsem snad pochopila.

[Sirka]

sakra xD špatná odpověĎ xD mno nevím jak přesně to myslíš ale nejde mi tam vložit vzorec mohl by jsi mi popsat kam to napsat přesně?

[cmuch]

Makro takto.
Vloží do aktivního listu

Kód: Vybrat vše

Sub Zapati()

    With ActiveSheet.PageSetup
   
      .LeftFooter = Range("A1")
      .CenterFooter = ""
      .RightFooter = ""
    End With
End Sub

[Sirka]

je to sice zápatí né záhlaví ale funguje děkuju :)))

[cmuch]

Já si to asi špatně přečet. Tady je záhlaví.

Kód: Vybrat vše

Sub Zahlavi()

    With ActiveSheet.PageSetup
   
       .LeftHeader = Range("A1")
       .CenterHeader = ""
       .RightHeader = ""
    End With
End Sub