Страницы: 1
RSS
добавление листа если он отсутствует VBA
 
Добрый день.  
пытался соединить два макроса, но чет не получается.  
Суть: проверяем если есть лист "Листы" то создаем на нем список листов данной книги, если нет то создаем лист и список в нем.  
еще нужно будет если лист удалил чтоб из списка он тоже удалялся.
 
Модераторы прошу прощения. У меня васкакивала ошибка после которой я не проверяя создавал тему - поэтому похоже их так много получилось. Удалите пожалуйста две предыдущее. Эту оставьте.  
Заранее Спасибо.
 
Как-то так:  
Private Sub Workbook_SheetActivate(ByVal Sh As Object)  
   Dim sheet As Worksheet  
   Dim cell As Range  
   Dim sName As String 'Создаём переменную, в которую поместим имя листа.  
   sName = "Листы" 'Помещаем в переменную имя листа  
   Application.EnableEvents = 0  
   On Error Resume Next  
   If Worksheets(sName) Is Nothing Then  'действия, если листа нет  
       Worksheets.Add.Name = "Листы"  
   End If  
   Worksheets("Листы").UsedRange.ClearContents  
   With ActiveWorkbook  
       For Each sheet In ActiveWorkbook.Worksheets  
           Set cell = Worksheets(1).Cells(sheet.Index, 1)  
           .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"  
           cell.Formula = sheet.Name  
       Next  
   End With  
   Application.EnableEvents = -1  
End Sub
Я сам - дурнее всякого примера! ...
 
Спасибо. Тема закрыта.
Страницы: 1
Наверх