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

• #9277 M4xi3s csendes tag M4xi3s #9275

  Új Válasz 2011-01-29 10:20:38 #9277

  Ú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

  

  M4xi3s

  csendes tag

  válasz M4xi3s #9275 üzenetére

  Köszönöm, ez jó, ebből már tudok haladni.
  A cellából lapnév átírásra is tudsz ilyen finom megoldást?

• #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