Всем добра. (Тяжело объяснить, чтоб была понятна задумка и вопрос) Весь вопрос по ячейке (Е5) В книге, пока что, пять листов. Но каждый раз я буду копировать лист (либо последний, либо первый (все зависит от Вашего ответа) и помещать его в конец. В ячейке (Е5) стоит формула которая ссылается (должна ссылаться) на предыдущий лист. Пока что эта ссылка мною забивается вручную.
А можно ли сделать так, чтобы она при копировании листа ссылалась на предыдущий автоматически? Спасибо
Всем добра. (Тяжело объяснить, чтоб была понятна задумка и вопрос) Весь вопрос по ячейке (Е5) В книге, пока что, пять листов. Но каждый раз я буду копировать лист (либо последний, либо первый (все зависит от Вашего ответа) и помещать его в конец. В ячейке (Е5) стоит формула которая ссылается (должна ссылаться) на предыдущий лист. Пока что эта ссылка мною забивается вручную.
А можно ли сделать так, чтобы она при копировании листа ссылалась на предыдущий автоматически? Спасибоstroika
AlexM, Ну что же, раз формулами нельзя, то будем просто вручника менять номер ссылки на лист. Главное не забыть. Помечу ячейку желтым и все дела))) Макросами не хочется заморачиваться, я и в формулах-то профан))))
AlexM, Ну что же, раз формулами нельзя, то будем просто вручника менять номер ссылки на лист. Главное не забыть. Помечу ячейку желтым и все дела))) Макросами не хочется заморачиваться, я и в формулах-то профан)))) stroika
Главное чтобы номера в скобках шли по порядку. И заменил двойные кавычки на ноль, считаю что так будет правильнее, и Excel так считает, не выдаёт ошибки. Если не нужны нули из можно скрыть в параметрах или пользовательским форматом.А выше указанною формулу можно записать без проверки ЕСЛИ.
Вариант формулами. В ячейке М1, номер предыдущего листа. Формула в Е5
Главное чтобы номера в скобках шли по порядку. И заменил двойные кавычки на ноль, считаю что так будет правильнее, и Excel так считает, не выдаёт ошибки. Если не нужны нули из можно скрыть в параметрах или пользовательским форматом.А выше указанною формулу можно записать без проверки ЕСЛИ.gling
А чего там заморачиваться? копируете лист в конец, формула сама копируется. [vba]
Код
Public C As Integer Private Sub Workbook_Open() C = Sheets.Count End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If C = Sheets.Count Then Exit Sub If C > Sheets.Count Then C = Sheets.Count Exit Sub End If namelist = Sheets(C).Name Sh.Range("E5").Formula = "=IF('" & namelist & "'!E17<>"""",'" & namelist & "'!E17,"""")" C = Sheets.Count End Sub
А чего там заморачиваться? копируете лист в конец, формула сама копируется. [vba]
Код
Public C As Integer Private Sub Workbook_Open() C = Sheets.Count End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If C = Sheets.Count Then Exit Sub If C > Sheets.Count Then C = Sheets.Count Exit Sub End If namelist = Sheets(C).Name Sh.Range("E5").Formula = "=IF('" & namelist & "'!E17<>"""",'" & namelist & "'!E17,"""")" C = Sheets.Count End Sub
китин, sboy, gling, Спасибо огромное. Даже не знаю как сказать. Это же сколько нужно знать, чтоб придумывать такие формулы и макросы. Спасибо всем Вам и форуму.
китин, sboy, gling, Спасибо огромное. Даже не знаю как сказать. Это же сколько нужно знать, чтоб придумывать такие формулы и макросы. Спасибо всем Вам и форуму. stroika
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
