Автор: 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. Добрый день. Есть столбец в таблице. В этом столбце ... текст Д/Р. Подскажите пожалуйста макрос для реализации этой задачи. З ...

Автор: 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. Дополнения к ...

Автор: WaleraPP. Есть шаблон который заполняется данными которые вводит оператор в программе. После формирования документа появляется ошибка в одной из формул и приходится ручками ее исправлять (СТРОКА(#ССЫЛКА!)+1)))       на     СТРОКА(A23)+1))))  что не очень удобно. Хотелось иметь макрос который будет просто копировать в ячейку правильную формулу. Надеюсь меня поймете =)

Автор: amateur09. Добрый день. Есть 3 листа: Лист1: id name   1  test  2  test1  3  test  4 test2  ids names   1  test  2  test1  3  test3  id_list1 name_list1   1  test  3  test  2  test1 Возможно ли это и как если да?