Название рабочих листов в ячейки!

Пользователь

Сообщений: 14 Регистрация: 01.01.1970

01.04.2010 16:38:55

Здраствуйте!
Такая ситуация в книге есть много рабочих листов их названия - это Фамилии (Фамилия1, Фамилия2, Фамилия3...)
Так вот можно ли создать макрос что б он создовал новый рабочий лист и вписал туду название предыдущих рабочих листов в ячейки (в столбик)

Артем Гость	#2 01.04.2010 16:52:41 как то так Sub dsds() For Each wb In ActiveWorkbook.Sheets Cells(i + 1, 1) = wb.Name i = i + 1 Next End Sub

Serge

Пользователь

Сообщений: 11312 Регистрация: 01.01.1970

01.04.2010 16:53:34

Есть такое:

Sub SheetList()
Dim sheet As Worksheet
Dim cell As Range
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
End Sub

Но будут Гиперссылки.
Наверное можно заменить на значения, но это к макроведам :-)

Kirilll Пользователь Сообщений: 14 Регистрация: 01.01.1970	#4 01.04.2010 17:10:48 Спасибо огромное, очень помогли!!!

Читают тему