Ú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

• #15703 poffsoft veterán zhari #15701

  Új Válasz 2012-12-05 13:24:08 #15703

  Ú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

  

  poffsoft

  veterán

  válasz zhari #15701 üzenetére

  nem excel korlát, én hibáztam.
  Nem gondoltam, hogy sima szám is lehet a név...
  Option Explicit
  Sub lapok()
  Dim sorIN%, WSIN As Worksheet
  Set WSIN = Sheets(ActiveSheet.Index)
  
  sorIN% = WSIN.Cells(Rows.Count, "A").End(xlUp).Row
  Do While sorIN% > 0
  If Not (WorksheetExists(WSIN.Cells(sorIN%, 1))) Then
  Sheets.Add(After:=WSIN).Name = "" & WSIN.Cells(sorIN%, 1)
  Sheets("" & WSIN.Cells(sorIN%, 1)).Range("A1") = WSIN.Cells(sorIN%, 1)
  End If
  sorIN% = sorIN% - 1
  Loop
  WSIN.Select
  
  End Sub
  Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
  
  Dim Sht As Worksheet
  
  WorksheetExists = False
  
  For Each Sht In ActiveWorkbook.Worksheets
  If Sht.Name = WorksheetName Then WorksheetExists = True
  Next Sht
  
  End Function

  nem sokat kellet változtatni rajta

  amúgy nincs mit

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