Добрый день, Дмитрий(The_Prist) Щербаков, !

Да, действительно, пользовалась Вашей статьей. Очень подробная, "для чайников" - с кодом все понятно, где размещать, только не сразу сообразила, что запускать код не нужно
После Вашего комментария, сохранила код без запуска, открыла книгу, и все сработало! Спасибо Вам огромное за подсказку!

Товарищи, добрый вечер!

Есть книга на 1 лист, нужно, чтобы книга была защищена, остались доступными для изменений пара ячеек и работала группировка.

Прочитала несколько тем на эту тему, нашла что это делается кодом. Нашла 2 его вариации, но использовать их не получается.

С формулами дружу хорошо, с VBA не дружу совсем. Делала по принципу "скопировать-вставить", но дальше возникает проблема, решение которой найти не смогла. Буду крайне признательна если поможете

Первый вариант когда:

Sub EnableOutlining()
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

Пишу его в блоке "Эта Книга". Все отлично, выдает мне окошечко пароля, все работает пока не закроешь книгу.
Как только книгу открываешь заново, группировка не работает



Второй вариант кода  (как я понимаю, он защищает лист, а не книгу, и это тоже было бы здорово изменить):

Private Sub Workbook_Open()
   Dim wsSh As Object
   For Each wsSh In Me.Sheets
       ProtectShWithOutline wsSh
   Next wsSh
End Sub
Sub ProtectShWithOutline(wsSh As Worksheet)
   wsSh.Protect Password:="758", UserInterfaceOnly:=True
End Sub

Тоже пишу его в блоке "Эта Книга". И когда запускаю, он выдает мне окошко для создания макроса (скрин во вложении "Имя макроса").

Даю ему какое-то имя (или оно должно быть определенным?) и ничего не срабатывает - выдает мне новое окошко для кода (скрин во вложении "Окошко нового кода"), но если я вбиваю туда второй целиком вариант кода, выдает ошибку "Недопустимое использование ключевого слова".

Если вбиваю только одну строку кода (из второго блока, выдает ошибку 424

Подскажите, пожалуйста, что я делаю не так и как это сделать правильно?

Спасибо!

Светлый, большое спасибо за помощь!

IKor, я так и делаю, но чтобы этот поиск реализовать, нужно найти одну таблицу из 15. Для этого я и пытаюсь прикрутить смещение. Может, есть другое решение - надеюсь, решение найдется.
Спасибо за ответ!

Заменила файл, добавила текст формулы на 2 страницу книги.
К сожалению, не могу даже равно добавить - эксель считает, что это не формула(((

Добрый день, всесильные экселя!

Помогите, пожалуйста, не понимаю как правильно написать формулу.
У  меня 12 базовых таблиц одна за другой по столбцам, по принципу: город в  ячейке, под ней таблица с данными. Таблицы одинаковые по структуре.
Из этих 12 таблиц должна быть найдена нужная по городу, и в ней по выручке найти название компании.
Я пишу:

ПРОСМОТРX(выручка;СМЕЩ(ПОИСКПОЗ(город;строка  с наименованиями городов на базовом листе;0);смещение до колонки с  данными по выручке;1;357;1)";СМЕЩ(ПОИСКПОЗ(город;строка с наименованиями  городов на базовом листе;0);смещение до колонки с наименованиями  компаний;1;357;1);"";0)

При пошаговом просмотре формулы ошибка в смещ(поискпоз).
Есть какой-то вариант как это можно сделать?
Заранее большое спасибо всем кто откликнется!

Добрый день, всесильные экселя!

Помогите, пожалуйста, не понимаю как правильно написать формулу. Тема, вроде, похожа на эту, но разобраться сама не смогла(((

У меня 12 базовых таблиц одна за другой по столбцам, по принципу: город в ячейке, под ней таблица с данными. Таблицы одинаковые по структуре.

Из этих 12 таблиц должна быть найдена нужная по городу, и в ней по выручке найти название компании.
Я пишу:


ПРОСМОТРX(выручка;СМЕЩ(ПОИСКПОЗ(город;строка с наименованиями городов на базовом листе;0);смещение до колонки с данными по выручке;1;357;1)";СМЕЩ(ПОИСКПОЗ(город;строка с наименованиями городов на базовом листе;0);смещение до колонки с наименованиями компаний;1;357;1);"";0)


При пошаговом просмотре формулы ошибка в смещ(поискпоз).
Есть какой-то вариант как это можно сделать?



Заранее большое спасибо всем кто откликнется!

Да, скорее всего, попробую подтянуть ручной нормализованный список через впр к базовому и дальше сводной.
Если бы не 800 наименований, совсем хорошо было бы:)

Как раз собираюсь подружиться в ближайший месяц:) К сожалению, решение этой задачи столько не ждет. Придется пока грубо, некрасиво, через ВПР и руками. А как только разберусь, буду переделывать уже по человечески. Так что огромное Вам спасибо! Совсем скоро очень пригодится!

Добрый день!

Нужна ваша помощь - сама сообразить не могу((( Не нашла нужную тему в более ранних обсуждениях. похожее есть, а такой же задачи не увидела. Может потому что даже не знаю как правильно назвать этот вопрос. Если что, пожалуйста, простите и не кидайтесь тапками

Ситуация следующая
Есть несколько (условно, 10) наборов, в которых прописаны наименования и количество. Позиции в этих наборах могут повторяться с разным количеством. Написание наименований может отличаться от набора к набору, без изменения сути. Вручную был создан список нормализованных названий.
Далее нам дается перечень этих наборов, объединенных в группы, которые нужно вытащить на отдельные листы.
Одна группа может объединять в себя несколько наборов.

В итоге необходимо объединить перечень позиций из имеющихся наборов в соответствии с присланным перечнем групп, без дубликатов позиций, с максимальным из всех наборов в группе количеством (если в одном наборе 4 чашки, а во втором 9, то пишем в итоговую группу 1 раз позицию "чашки" с количеством 9).

Для примера сформировала файл, во вложении.

С VBA пока не дружу, поэтому сейчас хотела бы реализовать эту задачу в рамках возможностей эксель до программирования, если это возможно.
Буду безмерна благодарна за идеи реализации этой задачи.
Спасибо!