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

• #2423 Delila_1 veterán #16741888 #2422

  Új Válasz 2007-09-03 07:33:31 #2423

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

  Szia PumPi!
  Másold be azt a makrót:
  
  Sub Lapnevek()
  Dim név(10)
  Sheets(''Munka1'').Select
  For a = 1 To 10
  név(a) = Cells(a, 1).Value
  Next
  For a = 1 To 10
  Sheets(''Munka'' & a).Select
  ActiveSheet.Name = név(a)
  Next
  End Sub
  
  

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