вопросы от неумехи

[неумеха]

что нужно добавить в код, чтобы инфоокно появлялось при открытии файла?

Sub Показ_Инфо_Окна()
Инфо_Окно.Show
End Sub

[pivas]

Sub Workbook_Open()
Инфо_Окно.Show
End Sub

Макрос вставить в "Эта книга"

[неумеха]

СПАСИБО!

[неумеха]

уважаемые, знатоки.

подскажите плиз решение такой проблемы:

дано: рабочая книга примерно из 30 листов,
каждый лист соответствует рабочему дню и назван соответственно
дате, например 15.04 Также может быть и второй, и третий лист за один день, например 16.04, 16.04(2), 16.04(3)

требуеется: чтобы в итоговом листе заполнялся столбец с названиями
этих листов
01.04
02.04
03.04
03.04(2)
04.04
...
15.04 и т.д. либо, что лучше с датами соответсвующими названиям листов
01.04.09
02.04.09
03.04.09
03.04.09(2)

и т.д.

и при добавлении нового листа появлялась бы соответствующая запись в ячейке этого столбца.

такая вот проблема.

[EducatedFool]

Прикрепите к сообщению файл.

Какие данные, помимо названий листов, должны присутствовать на листе оглавления?

[неумеха]

в листе итоги данные, кот должны появляться по мере
вставки нового листа (копирование шаблона и названия листа соответственно дате, на 1 дату может быть несколько листов) и его заполнения суммами

[неумеха]

Все еще актуально

[pivas]

Sub Макрос1()
Dim List As Integer
List = ActiveWorkbook.Sheets.Count
For i = 1 To List - 1
ActiveWorkbook.Sheets("Итоги").Cell s(i + 1, 1) = ActiveWorkbook.Sheets(i).Name
Next i
End Sub

На листе "Итоги" в столбце А со второй строки заполняются имена листов (в данном примере без последнего)

[неумеха]

Спасибо огромное - то что нужно.