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

• #23216 lappy őstag gyu84 #23207

  Új Válasz 2014-09-11 21:18:51 #23216

  Ú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

  

  lappy

  őstag

  válasz gyu84 #23207 üzenetére

  Sub nyomtat()
  b = Worksheets("névsor").Cells(1, 2).Value
  b = b + 1
  For a = 2 To b
  Sheets("névsor").Select
  Range(Cells(a, 2), Cells(a, 2)).Select
  Selection.Copy
  Sheets("Sima").Select
  Range("C3").Select
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Application.CutCopyMode = False
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Next a
  MsgBox "A nyomtatás kész, ügyes vagy!!!"
  Sheets("Sima").Select
  Range("C3").Select
  Selection.ClearContents
  Range("A2").Select
  End Sub

• #23210 lappy őstag gyu84 #23207

  Új Válasz 2014-09-11 13:13:47 #23210

  Ú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

  

  lappy

  őstag

  válasz gyu84 #23207 üzenetére

  Szia!
  Nekem van egy ilyen doksim majd a macrót felrakom, de most libre office van nálam és abban nem tudom előcsalogatni.

• #23208 Fferi50 Topikgazda gyu84 #23207

  Új Válasz 2014-09-11 12:00:23 #23208

  Ú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

  

  Fferi50

  Topikgazda

  válasz gyu84 #23207 üzenetére

  Szia!

  A makróban egy ciklussal végigmész a neveken, kitöltöd a nyilvántartó lapot, kiadod rá a printout parancsot (ha szükséges, előtte beállítod a pagesetup paramétereket).

  A makróhoz segít a makórögzítő. Egy nyilvántartó lapot kinyomtatsz a makrórögzítővel és az eredmény lesz a ciklus belseje nagyjából. Egy kicsit bizonyára "szépíteni" kell majd rajta, de a mag az lehet.
  A ciklus meg a neveket tartalmazó tartományon vagy változón megy végig.

  Üdv.

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