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

• #20329 bteebi veterán

  Új Válasz 2014-02-05 18:52:59 #20329

  Ú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

  

  bteebi

  veterán

  Sziasztok!

  Egy olyan makróra lenne szükségem, ami egy adott lap élőfejébe (többek között) egy másik lapon lévő cella tartalmát beleírja. Annyit már el tudtam érni (más példák alapján), hogy működjön, de csak úgy, ha manuálisan lefuttattam a makrót, és ha meg volt adva az összes fülnek a neve egyesével.

  A példában legyenek a fülek: "Lista", meg mondjuk különböző autótípusok nevei ("Suzuki", stb.). A "Lista" lap adott cellájában (itt A1) lévő értéket szeretném beleírni az élőfejbe az összes fülön, a "Lista"-t leszámítva.

  Sub Varos()
  Sheets("Suzuki").PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
  Sheets("...").PageSetup.CenterHeader = "Szín: " & Sheets("Lista").Range("A1").Value
  .
  .
  .
  End Sub

  Meg lehet úgy csinálni, hogy automatikusan (például az A1 cella tartalmának változására, vagy fül váltására) lefusson a makró az összes fülre? Kivéve persze a "Lista"-t, de ha csak ezen múlik, akkor annak a fejlécében is benne lehet, vagy akár a kód végén az is lehetne, hogy

  Sheets("Lista").PageSetup.CenterHeader = ""

  Tudnátok tanácsot adni az automatikus futtatásra, és esetleg arra, hogy ne kelljen minden fülre külön megadni a parancsot? Előre is köszönöm a segítségeteket!

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