Ú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

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