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

• #15705 Delila_1 veterán zhari #15701

  Új Válasz 2012-12-05 14:57:27 #15705

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

  Egy másik megoldás:

  Sub UjLapok()
  Dim sor%, WSKezd As Worksheet
  Set WSKezd = Sheets(1)
  
  sor% = 1
  Do While WSKezd.Cells(sor, 1) <> ""
  Sheets.Add(After:=Sheets(sor%)).Name = WSKezd.Cells(sor%, 1)
  ActiveSheet.Cells(1) = WSKezd.Cells(sor%, 1)
  sor% = sor% + 1
  Loop
  End Sub

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