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

• #15700 poffsoft veterán zhari #15698

  Új Válasz 2012-12-05 11:42:43 #15700

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

  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).Value).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

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