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

• #52779 föccer nagyúr föccer #52778

  Új Válasz 2024-06-03 14:41:06 #52779

  Ú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

  

  föccer

  nagyúr

  válasz föccer #52778 üzenetére

  Ezt 1x kell lefuttatni, ez megcsinálja annyiszor a másolást, ahány a For i = WsC to WsC+10 sor végén a szám (jelenleg a 10)

  A munkalapon neve az N betűből és egy sorszámból fog állni.

  sub Szetmasolas()
  Dim i As Integer
  Dim WsC As Integer
  WsC = ActiveWorkbook.Sheets.Count
  For i = WsC To WsC + 10
  Sheets("16-32").Copy After:=Sheets(i)
  Sheets("16-32 (2)").Name = "N" & i - WsC + 1
  Next
  End Sub

  Ez pedig kijelöli és nyomtatóra küldi az összes (jelenleg 10) munkalapot.

  Sub kijelolnyomtat()
  
  Sheets(Array("N0", "N1", "N2", "N3", "N4", "N5", "N6", "N7", "N8", "N9", "N10")).Select
  Sheets("N0").Activate
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  IgnorePrintAreas:=False
  End Sub

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