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

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