Автор: Hostyle. Всем Доброго, уважаемые форумчане! Помогите, пожалуйста, решить задачу. Суть: Есть 2 столбца, в первом встречаются повторяющиеся значения. Нужно удалить дубли, при этом сложить значения в ячейках этих же строк во втором столбце. Пробовал с помощью словаря решить - не хватило знаний, как результат: дубли просто исчезли из списка совсем. Пример приложил. Sub stringSummary() Dim wb As Workbook Dim ws As Worksheet, wsT As Worksheet Dim arr2, dict Dim i%, elem As Variant, n& Set wb = ...

Автор: R0mi1. Здравствуйте! Имеется таблица с данными в эксель. Нужно установить две кнопки 1) Сохранить в файлы, 2)Отправить адресату 1)Сохранять в файл необходимы следующие данные.       1.1 Первые 4 строки(Шапка) из таблицы(исходник)       1.2 Каждую последующую строку(с шапкой в отдельный файл(xlsx) образец  приложу.       1.3 Файл должен называться 1-й ячейкой  из строки       1.4  Если в 1-й ячейке строки пусто, тогда пропускаем. 2)Отправить адресату     2.1 Отправить по e-mail (список ...

Автор: anna_bella_valentina. Добрый день! Есть отчет на 3 листа, один из них сводный. На первом и втором листе сделаны гиперссылки на итоговую таблицу и зашит простой макрос на фильрацию: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)     ActiveSheet.Range("ФП").AutoFilter 16, Target.TextToDisplay End Sub Но макрос отрабатывает криво. При переходе с гиперссылки всегда фильтрует по первому значению с листа, а не по тому значению с которого переходим. Подскажите, ...

Автор: G_110036246309433414584. Добрый день. Есть столбец в таблице. В этом столбце 1000 ячеек с различными номерами. Мне надо заменить в этом столбце некоторые из них (313, 216, 237, 391, 127, 190, 127, 402, 407) на текст Д/Р. Подскажите пожалуйста макрос для реализации этой задачи. З.Ы. Одно и тоже значение в столбце в таблице может повторяться более 30 раз

Автор: esk_. Здравствуйте!  Подскажите, пожалуйста, как изменить следующий макрос, чтобы можно были добавлять тень не  для исключительно выделенных картинок, но для всех картинок в презентации:  Sub MakeShadow()     Dim i As Integer     With ActiveWindow.Selection.ShapeRange.shadow         For i = 1 To 2             .ForeColor.RGB = RGB(220, 220, 220)             .Transparency = 0.35             .Visible = True             .Blur = 10             .OffsetX = 5             .OffsetY = ...

Автор: 000000000. Нужно переместить текст в ячейке  в другую книгу с помощью кнопки, поиск в интернете нечего не дал. Находила только перемещение с одного листа на другой, после чего пыталась редактировать, но из-за незнания макросов получался всякий бред.  Код макроса для кнопки на перемещение с одного листа на другой, который я находила, плюс он немного изменен, так как нужно было, чтобы каждая новая информация перемещалась на строчку ниже, а так же работали формулы. Sub Кнопка2_Щелчок()  ...

Автор: SHARP. Доброго времени суток Как сделать так, чтобы При сохранении книги макрос работал на всех листах где это нужно, а не только на активном? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call ЗАКРЫТЬ End Sub Sub ЗАКРЫТЬ() ActiveSheet.КнопкаЗОР.Caption = "ЗАКРЫТО" ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

Автор: Frommas. Здравствуйте! Подскажите, возможно ли сделать такой макрос, что бы данные из файла эксель (вложение), автоматически экспортировались в один и тот же CSV файл с настройками частоты экспорта от 1 до 600 сек, без непосредственного открытия файла. И кто бы мог в этом помочь, сам эти штуки писать не умею. Во вложении файл эксель исходный и CSV в виде который нужен Подобие как делает эта штука: https://xltools.net/ru/export-to-csv/ Только весь ручной процесс макрос должен делать ...

Автор: newb. Добрый день. Очень нужна помощь с циклом в макросе. Есть исходный файл с данными об объемах продаж в разрезе руководителей региона. Нужно, чтобы макрос отбирал данные по признаку "руководитель региона", копировал в новую книгу и строил сводную таблицу по этой выборке. Добиться этого по одному руководителю региона у меня получилось, но перебрать всех руководителей циклом никак не выходит. Помогите, пожалуйста, найти ошибку (с vba раньше не сталкивалась, а макрос ...

Автор: Fleshsam. Добрый день! файл очень большой с кучей макросов но вот в чем проблема!  при запуске формы выполняется такая часть макроса по заполнению LISTBOXаV = Cells(Rows.Count, 1).End(xlUp).Row RKES_data = Sheets("РКЭС").Range("A1:A" & V) RKES.List = RKES_data в этой строке 24 значения! Но почему то V=279  279 строка пустая  Удаляю строку 279 и все ок, проходит время и опять 279.  Другие макросы на этом листе отсутствую  Как понять в чем проблема и выловит ...

Автор: Samangeldy. Добрый день! У меня возникла проблема с решением рабочей задачи, и так как очень часто темы на данном форуме мне помогали в подобных вещах решила написать, так как в этот раз не нашла схожей темы в прошлых обсуждениях.  Задача: Имеется отчет который формируется системой и выгружается 1 раз в месяц. Отчет большой - примерно 50 столбцов и более 3-4 тысяч строк, так как там много ненужной информации я создала его меньшую версию, она во вложении. Суть в том, что необходимо ...

Автор: Spyse. Добрый день. Я новичок и совсем не шарю, помогите найти ошибки в коде, он не запускается и нужны еще кое какие дополнения: 1. В коде мне нужно, чтобы после некого действия которое запускается кнопкой (Макрос1 был написан только как пример такого действия), выскакивало окошко выбора для отправки сообщения "да" "нет", а после происходила рассылка листа1(в котором реализовывалось действие Макроса1), по списку почтовых ящиков листа2. Дополнения к ...

Автор: kroling. Здравствуйте уважаемые гуру Excel. Прошу помощи от ваших светлых голов. Для вас может быть моя задача будет элементарной, но для меня, знакомого с макросами 3-й день - это пока сложновато.... Итак задача такая: есть документ со списком файл "база" в столбце R есть маркер которым отмечается строка, и кнопка "переместить". Необходимо, чтобы по нажатию кнопки "переместить" значения отмеченной маркером строки скопировалась в книгу ...

Автор: simon100500. Здравствуйте! Делаю макрос, который после запуска позволит выбрать на соседнем листе не связанный (рваный, по Ctrl) диапазон, соединит каждую ячейку диапазона через разделитель "; " и добавит к активной ячейке. Сделал форму, на ней элемент RefEdit1 для выбора диапазона. Повесил на кнопку формы такой макрос. Для связанного диапазона работает. А для "рваного" — нет. Private Sub CommandButton1_Click() Dim Y As Range Dim Cell As ...