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

• #9528 perfag aktív tag lappy #9526

  Új Válasz 2011-02-22 15:27:22 #9528

  Ú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

  

  perfag

  aktív tag

  válasz lappy #9526 üzenetére

  Ez a sorod:
  Range(Cells(a, 1), Cells(a, 1)).Select
  az A2 cellát választja ki. Ezt írd át, hogy arra a listatartományra mutasson, aminek "első oszlopában számozás van a második oszlopában nevek".

  (Elmerengtem, kicsit hogy miért is tetted ezt For-Next ciklusba, mit keres ebben a ciklusban a nyomtatás parancs ... de azt hiszem a nagyon gonosz gondolataimat inkább nem írom le.

  Delila megelőzött. Jobb, ha nem is olvasd el amit írtam.)

  [ Szerkesztve ]

• #9527 Delila_1 veterán lappy #9526

  Új Válasz 2011-02-22 15:24:48 #9527

  Ú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

  

  Delila_1

  veterán

  válasz lappy #9526 üzenetére

  Mit is kellene nyomtatni? Elláttam magyarázatokkal a makródat.

  Sub nyomtat()
  'A névsor lap A2 cellájának az értékét teszi a b változóba
  b = Worksheets("névsor").Cells(2, 1).Value
  b = b + 1 'növeli a b értékét
  For a = 2 To b 'A névsor lapon a 2. sortól megy a ciklus b-ig
  Sheets("névsor").Select 'bár a névsor lap az aktív, a ciklusban mindig
  'kijelöli ugyanezt a lapot (?!)
  Range(Cells(a, 1), Cells(a, 1)).Select 'rááll az a-adik cellára az A oszlopban
  Selection.Copy 'másolja ezt a cellát
  Sheets("Sima").Select 'átmegy a Sima lapra
  Range("C3").Select 'beilleszti az előbb másoltat mindig ugyanoda, C3-ba
  Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Application.CutCopyMode = False 'kijelölés megszüntetése
  'nyomtatja a Sima lapról az előzően nyomtatási területként kijelölt tartományt
  'itt az a szám látszik, amit a ciklusban utoljára a C3-ba írattál
  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

  [ Szerkesztve ]

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