Автор: 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 раньше не сталкивалась, а макрос ...

... ! файл очень большой с кучей макросов но вот в чем проблема ... запуске формы выполняется такая часть макроса по заполнению LISTBOXаV = Cells(Rows ... ) RKES.List = RKES_data в этой строке 24 значения! Но почему то ... V=279  279 строка пустая  Удаляю строку 279 и все ок ... , проходит время и опять 279.  Другие макросы ...

... и более 3-4 тысяч строк, так как там много ненужной ... как это более около 3000 строк, большая часть из которых пустые ... остальное естественно меняется. Я написала макрос который копирует нужные мне столбцы ...

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

... приходится ручками ее исправлять (СТРОКА(#ССЫЛКА!)+1)))       на     СТРОКА(A23)+1))))  что ... не очень удобно. Хотелось иметь макрос который ...

Автор: Alejandro67. Уважаемые знатоки,  есть макрос, который отлично работал, но сегодня сто-то случилось и он начал выдавать ошибку. "Невозможно получить свойство LinEst класса worksheetFunction" Вопрос: как посмотреть на какой строчке исходных данных происходит ошибка? Собственно сам макрос: Sub Нахождение_А_коэффициента() [e:e].ClearContents: [e2] = "Номер события БР" [f:f].ClearContents: [f2] = "Знак" [g:g] ...