Új hozzászólás Aktív témák

• #9855 Delila_1 veterán Mr.Csizmás #9854

  Új Válasz 2011-03-31 14:33:13 #9855

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Mr.Csizmás #9854 üzenetére

  Van most a füzetedben 1 lap, amiben jó az élőfej.
  Indítasz egy makrórögzítést.
  A jó lapon állva átkapcsolsz a nyomtatási képbe, ott is a beállításokba, az élőfejbe.
  OK. Belépsz (ha van) az élőlábba, OK. Rögzítés vége.

  Szép hosszú makrót kapsz, amiből csak néhány sort hagysz meg:

  With ActiveSheet.PageSetup
  .LeftHeader = "Valami1"
  .CenterHeader = "Valami2"
  .RightHeader = "Valami3"
  .LeftFooter = "Valami4"
  .CenterFooter = "Valami5"
  .RightFooter = "Valami6"
  End With

  Természetesen a Valamik helyett a saját adataid lesznek az egyenlőségjel után.
  Ha élőláb nincs, a Footer-es sorokat is kihagyhatod.
  Most beviszel egy új makrót:

  Sub Élőfejek()
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  '***ide másolod be az előbb rögzített sorokat ***
  With ActiveSheet.PageSetup
  .LeftHeader = "Valami1"
  .CenterHeader = "Valami2"
  .RightHeader = "Valami3"
  .LeftFooter = "Valami4"
  .CenterFooter = "Valami5"
  .RightFooter = "Valami6"
  End With
  '*******************************************************
  Next
  End Sub

  Ahol jelöltem, beviszed a rögzített makró rövidített részét, és futtatod az újat. Minden lapra bemásolja az élőfejet, és ha van, az élőlábat is.

Új hozzászólás Aktív témák