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

• #9276 Delila_1 veterán M4xi3s #9275

  Új Válasz 2011-01-29 09:54:44 #9276

  Ú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 M4xi3s #9275 üzenetére

  A sub és end sub közé:

  lapnev = Sheets(1).Name
  For lap = 1 To 9
  Sheets.Add
  Sheets(1).Name = Sheets(lapnev).Cells(lap, 1)
  Next

  Ha nem a füzetben lévő első lapon vannak az adatok az új lapok nevéhez, akkor a lapnev=sheets(1).name sorban írd át az (1)-et.

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