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

• #9280 Delila_1 veterán M4xi3s #9279

  Új Válasz 2011-01-29 10:45:34 #9280

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

  Az aktuális lap adatait használja. Ha nem az aktuális lapról akarod a nev(ek)et venni, a
  Sheets("Munka2").Name = Cells(1, 1)

  sor így nézne ki:
  Sheets("Munka2").Name = Sheets("Másik lap").Cells(1, 1)

  Ha az aktív lapot akarod átnevezni,
  ActiveSheet.Name = "mmm"

• #9278 Delila_1 veterán M4xi3s #9277

  Új Válasz 2011-01-29 10:27:56 #9278

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

  Sub Ujlapnev()
  Sheets("Munka2").Name = Cells(1, 1)
  End Sub

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