Добрый день.

Господа, не получается создать многоуровневую группировку. Использую в Данные - Структура - Промежуточные итоги.

Задача:
Столбцы Округ, Область, Город - необходимо сгруппировать след образом:
Первый уровень -округ, внутри него сгруппированные вторым уровнем области, внутри второго уровня, соответственно третим уровнем - сгруппированные города.
Соответственно округов несколько.

Просьба помочь и направить на путь истинный.

P.S. Пример выложить не могу, так как хотелку показать немогу, мог бы - отсутствовал бы и сам вопрос

Заранее благодарен откликнувшимся.

Добрый день.

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

Заранее спасибо.

Добрый день.

Подскажите, как макросом преобразовать таблицу в динамический диапазон.
Рекордер не помогает.

Спасибо.

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

Прошу Вашей помощи.

Просьба подсказать:
есть в коде значение nd.row и nt.row которые при выполнении принимают значения 2 и 4 соответственно

Вопрос как их подставить в функцию Rows?
пишу


Не работает. Что не так?

Спасибо.

Добрый день, форумчане.
Есть непреодолимая для меня задача, которую, без Вашей помощи не решить:

Книга, ндцать листов с данными. Работа необходима с 1-м и 2-м листом независимо от того, как они называются.
На листе 1 список с данными (общими), на листе 2 те же данные, но в развернутом виде. Задача:
сравнить данные со второго листа, в случае совпадения подставить новым уровнем в лист №1 (как группировка к имеющимся общим данным)
Пример в аттаче.
Заранее благодарен.

P.S. Поиском пользовался, похожее находил, но не подходило.

Всем добрый день.
Перекопал форум - ответа не нашел.

Есть масса картинок разного размера, которые необходимо вставить в лист. Можно ли сделать так, чтобы при вставке картинка сразу принимала размер ячейки, куда ее вставляют?
Очень парит 600 картинок руками "вписывать"

Спасибо.

Всем добрый день, уважаемые форумчане.

Есть таблица, где клиенты сгруппированы по городам. Есть вторая таблица с новыми клиентами. Задача: проверить в первой таблице есть ли клиент из таблицы с новыми клиентами и если нет, то добавить в именно в тот город из которого новый клиент числится. В поиске смотрел - не нашел. Много чего есть с группировками, но именно с сравнением данных и добавлением - увы (((
Пример прикрепил.

Господа, есть лист в котором данные форматированны, как таблица. Есть макрос, который обрабатывает данные при клике. Листы разбиты по месяцам.
Что имеем - при копировании листа, таблицы меняют имена, соответственно макрос работавший на прошлом листе не работает.
Что желается - при копировании листа на другой лист все продолжало бы работать как на предыдущем без изменений.

Пример прикрепил.

Заранее спасибо.

Добрый день.
Смысл макроса:
1. найти в диапазоне нужное значение, заданное InputBox' ом и удалить его.
2. Если значение не найдено - вывести мессагу об этом.
С пунктом 2 проблемы.
Сам код:

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

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Call Create_popup
Cancel = True
End Sub
Sub Create_popup()
Remove_Popup
With Application.CommandBars.Add(Name:="MyPopup", Position:=msoBarPopup, Temporary:=True)
With .Controls.Add
.Caption = "Добавить строку"
.On Action = "Add_R"
.FaceId = 194
End With
With .Controls.Add
.Caption = "Удалить строку"
.On Action = "Remove_R"
.FaceId = 478
End With
With .Controls.Add
.Caption = "Отменить"
.On Action = "Undo_last"
.FaceId = 37
End With
.ShowPopup
End With
End Sub

Sub Remove_Popup()
On Error Resume Next
Application.CommandBars("MyPopup"    .Delete
End Sub

Sub Add_R()

ActiveSheet.Unprotect 123
Selection.Ins ert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Protect 123

End Sub

Sub Remove_R()

ActiveSheet.Unprotect 123
Sele ction.Delete Shift:=xlUp
ActiveSheet.Protect 123

End Sub

Sub Undo_last()

ActiveSheet.Unprotect 123
With Application
.EnableEvents = False
.Undo
End With
ActiveSheet.Protect 123

End Sub

Господа, начитавшись вдоволь, прошу помощи сильных.

В данном файле нужен след макрос, который мог бы изменять выпадающее меню по правому клику, а именно:
1. Убрать максимум пунктов из тех, что есть по дефолту
2. Добавить пункт "Вставка новой строки"
3. При выборе пункта "Вставка новой строки" снимал защиту с листа, вставлял строку, ставил защиту назад

В файле примера пароля на снятие защиты нет, т.е просто нажимаем снять защиту и все

Добрый день, форумчане.

Есть вопрос: имеется таблица, с формулами ессно, присвоен формат "таблицы" для автоматического заполнения новых строк формулами, только ячейка с этой формулой у меня защищена от глупых юзверей, чтобы руками ничего не меняли.
Как сделать так, чтобы юзверь в защищенной книге мог сам вставить строку (это он впринципе может), но при этом формула так же перенеслась? Мне Excel выдает, что мол ячейка защищена от изменений и соответственно оставляет ее пустой.

Заранее благодарю.

Есть задача обработать достаточно большой файл  
 
Что необходимо:  
1. Есть файл с данными (Data) и файл который надо заполнить макросом (Finish)  
2. Макрос должен сравнить столбцы "А" в обоих файлах, в случае если значение в файле Finish совпадает со значением в DATA, то в файле Finish, в столбце с названием, которое содержится в строке столбца С файла DATA надо проставить "1"  
3. Если в строке столбца С файла DATA есть значение, которого нет в Finish, создать столбец с названием этого значения и проставить "1"  
4. Если в столбце А файла DATA нет значения, которое есть в файле Finish - закрасить такое значение красным и наоборот  
 
Заранее спасибо

Добрый вечер, господа и с пятницей Вас.  
 
Ответ на вопрос по форуму не нашел (может из-за невнимательности, если что - не судите строго). Вопрос таков, как при выводе макросом InputBox'а оставить книгу активной, т.е что бы можно было кликом выделить ячейку? Смысл в том, что, в Box будут вставляться данные выбранной ячейки, но вот когда окно запроса вылазит - не могу ничего выбрать, не активно.  
 
Спасибо.