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

• #40099 Pakliman tag EmberXY #40097

  Új Válasz 2019-01-30 13:59:25 #40099

  Ú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

  

  Pakliman

  tag

  válasz EmberXY #40097 üzenetére

  Szia!

  Makróval megoldható.
  A vázlata a következő (egy lehetséges megoldás):
  'végiglépkedsz a táblázatban a neveket tartalmazó cellákon:
  'Tegyük fel, hogy a nevek a Névsor munkalap A oszlopában vannak

  For sor = 2 To utolsó_név_sora
'a nevet bemásolod a fejlécbe
Range(fejléc_neve_vagy_címe) = Worksheet("Névsor").Cells(sor, 1)
'Kinyomtatod
ActiveSheet.PrintOut
Next sor

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