подробнее напишу в личку

есть макрос в примерах , по оглавлению книги эксель
может кто то построчно объяснить что тут за что отвечает , что бы я мог его подкорректировать под себя



благодарен за ответы

Доброго времени суток уважаемие форумчане
нужна Ваша помощь  
есть книга (350 листов)
по примеру аз этого сайта "Оглавление книги Excel" и макроса в этом примере сделал оглавление для своей книги, но мне надо там кое что доработать/добавить , буду рад Вашей помощи уважаемые форумчане

1) оглавление в примере начинается с первой строки и столбца , а как исправить макрос что бы начиналось скажем с В3 (другие ячейки заняты другой информацией)
2) оглавление в примере берется с имени листа , а можно чтобы с каждого листа брало скажем с В1(ФИО)
3) макрос выполняется один раз , а как сделать/настроить что бы гиперссылки/данные обновлялись при каждом изменении информации

может кто то скажет а не многого ли я хочу , но задача такова ))) и в данном форуме мне помогали не раз
P.S.  офис у меня 2010г

не знаю как это ещё назвать ...
в примере думаю будет понятно без слов
заранее извиняюсь , если не прав

в первом листе идут данные
во втором нужно сделать как бы свод данных

итог вот такой код

Юрий М,  
с ...UnProtect... пока еще не разобрался , но нашел другое решение для снятия пароля

СПАСИБО ВСЕМ

Юрий М,
спасибо большое

а если вместо
ActiveSheet.Protect Password
написать что то другое то пароль снимется ?

я тоже не умею, вот и прощу тут помощи

не вариант , потому что в этих листах есть индивидуальные свойства и клонирование тут не поможет

как можно разом защитить листы(100 листов) паролем в книге ?

извините за поздний ответ , отходил от компа

Казанский, то что надо спасибо большое то что надо
СПАСИБО ВСЕМ

доброго времени суток Уважаемые форумчане
есть книга с 101 листами (один главный лист и 100 с данными )
в главном листе соберется короткая информация с 100 листов
в столбцах F, H, I, K, L, M, N гиперссылки из листов с данными
как можно быстро "указать" гиперссылки с листов

**p.s. для уменщения размера оставил только один лист с данными

vikttur,
Юрий М,
извините

Казанский,

извините, не понял

спасибо работает на все 100%

всем большое спасибо за помощь

готов выслушать  Ваше предложение/идеи

спасибо огромное
модуль/макрос работает, но можно его немного усовершенствовать ?
при выполнение макроса листы дублируются , но вот имена ( получаются  1(2),  1(3),  1(4), ......,1(101)  )
можно сделать так, что бы имена были по возрастанию (1,2,3,..., 100) ?  

заранее благодарен

а можно макрос позаимствовать у Вас ? памяти думаю хватит (пока не попробую не узнаю ))) )

задача простая....ввести учет дебиторов
на крайний случай можно не 1000 а 100

доброго времени суток уважаемые форумчане
как быстро создать 1000 копию(клон) одного листа ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim x1 As String
   Dim x2 As String
   'на локальный диск
   strPath1 = "d:\Rezerv\"
   
   'на флешку
   'strPath2 = "J:\Rezerv\"
   
   On Error Resume Next
   x1 = GetAttr(strPath1) And 0
   'x2 = GetAttr(strPath2) And 0
   If Err = 0 Then ' если путь существует - сохраняем копию книги
       strDate = Format(Now, "dd/mm/yy hh-mm")
       FileNameXls1 = strPath1 & "\" & Left(ActiveWorkbook.Name, _
            Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xlsm"
       'FileNameXls2 = strPath2 & "\" & Left(ActiveWorkbook.Name, _
       '     Len(ActiveWorkbook.Name) - 4) & " " & strDate & ".xlsm"
       ActiveWorkbook.SaveCopyAs Filename:=FileNameXls1
       'ActiveWorkbook.SaveCopyAs Filename:=FileNameXls2
   Else 'если путь не существует - выводим сообщение
       MsgBox "Папка " & strPath1 & " недоступна или не существует! ПРОВЕРЬТЕ ", vbCritical
       'MsgBox "Папка " & strPath2 & " недоступна или не существует! ПРОВЕРЬТЕ ", vbCritical
   End If
End Sub

не копирует/резевирует , хотя папка с таким именем в диске создан предварительно

спасибо этот вариант работает , но с начала надо убрать защиту листа/книги (если установлен)
спасибо ВСЕМ за помощь ,  как всегда тут помогут )))  

Ваш вариант не пробовал еще
сейчас попробую и отпишусь

а на счет структуру данных , Вы имеете ввиду лист "Дебиторы" ?  

столбец А, С, D, F , G из листа 1 на остальные  

файл большой (с учетом даже новый правил 300 кб) и его нет возможности скинуть , но если хотите могу скинуть на мыло  

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

заранее благодарен

спасибо огромное , а без макроса не как ?  

доброго времени суток уважаемые форумчане

есть книга более 100 листов, каждая из 1000 строк, и по шаблону нужно во всех листах поставить/настроить проверку данных идентично первому листу книги
можно как то это "клонировать" с первого листа?

заранее благодарен за помощь  

на часть листа, на определенные ячейки  

а как можно это реализовать не на всю книгу а на часть ?  

доброго времени суток уважаемые форумчане
помогите решить задачу

в "главном листе" книги в одном столбце (из листов  книги ) выводятся значения (дата) , если значение на листе пустое то в "главном листе "  отображается 00/01/1900 -это если формат дата ну а если изменить формат на общее то соответственно дата не корректно отображается (типа 43205)

мысль : если проверить значение ячейки и оно больше нуля то изменить формат ячейки на дату  
но как это реализовать ? прошу помощи у Вас уважаемые формунчане  

спасибо работает. формула мне не понятна , но думаю дальше гугл мне поможет  

сделал как Вы сказала, но не корректно отображает(берет только значение А2 )