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

• #9526 lappy őstag

  Új Válasz 2011-02-22 15:09:52 #9526

  Ú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

  Sziasztok!
  Egy kérdésem lenne!
  Adott egy lista aminek első oszlopában számozás van a második oszlopában nevek.
  A kis macro feldata az lenne hogy adott helyre illessze be a neveket, de csak a számozást
  változtatja! Mit kell átírnom??
  Sub nyomtat()
  b = Worksheets("névsor").Cells(2, 1).Value
  b = b + 1
  For a = 2 To b
  Sheets("névsor").Select
  Range(Cells(a, 1), Cells(a, 1)).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