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

• #29274 m.zmrzlina senior tag Reinhardt #29271

  Új Válasz 2015-10-30 13:52:53 #29274

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Reinhardt #29271 üzenetére

  Ez is valami hasonló, csak ez nem nyomtat, hanem létrehozza a munkalapot amit neked kell kinyomtatni.

  Sub letrehoz()
  k = 1
  For i = 1 To 50
  Sheets("Munka1").Copy after:=Sheets(Sheets.Count)
  Sheets(Sheets.Count).Name = i
  For j = 4 To 22 Step 2
  Sheets(Sheets.Count).Range("G" & j).Value = k
  k = k + 1
  Next
  Next
  End Sub

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