Страницы: 1
Поиск
Из строк с одинаковым значение - сделать одну, и сложить сумму с определенного столбца
Автор: aroz. Добрый день, искал в интернете подобное, но всё не то, возможно даже не знаю как правильно формулировать вопрос Есть папка с файлами excel, ~10.000 файлов, в каждом по 150 строк, в строках повторяются названия - для каждого своя сумма, нужно сделать, чтобы повторений не было и каждую сумму сложить в единую, на словах ничего не понятно, поэтому делаю пример и прикладываю файл с примером (1 лист - исходная база, 2 лист - то, что должно получится) Исходная база:ДатаДокДатаСостНаим№ ...
Изменен: 20.07.2021
Читать сообщение на форуме или сайте.
VBA фильтры, как обозначить активную ячейку?
Автор: Сергей Сидорин. Private Sub Приготовление_Click() ActiveSheet.Range("$B$1:$E$36").AutoFilter Field:=3, Criteria1:="приготовление" Dim DATANEW As String iLRow = ActiveCell(Rows.Count, 5).End(xlUp).Row Cells(iLRow + 1, 5).Select DATANEW = Application.InputBox("Новая дата:") Cells(iLRow + 1, 5).Value = DATANEW Range("B1:E1").Select Selection.AutoFilter UserForm3.Hide UserForm2.Hide UserForm1.Hide End Sub ...
Теги: VBA Макрос
Изменен: 12.03.2021
Читать сообщение на форуме или сайте.
Прочитать KML-файл
Автор: pancrat. Прошу помощи! Не могу сообразить, как на писать простой макрос чтения KML-файла. Требуется прочитать KML-файл, и занести данные в таблицу на листе 1. Начал писать загрузил kml-файл, дальше требуется взять из него информацию по точкам и линиям, но как это сделать... не понимаю.
Теги: VBA Макрос
Изменен: 22.02.2021
Читать сообщение на форуме или сайте.
VBA. Применение макроса ко всем Exel файлам в папке по заданному пути
Автор: Vlad_Sm. .
Теги: VBA Макрос
Изменен: 10.11.2020
Читать сообщение на форуме или сайте.
Обход ошибок в VBA при вызове функции
Автор: Алексей Краснов. Добрый вечер! Столкнулся с проблемой - имеются ячейки, из которых функцией извлекается предпоследнее вхождение текста после определенного делителя "Human". В том случае, если функция не находит подходящих значений, она возвращает #ЗНАЧ!, который мешает работе остальных функций, которые используют ссылки на эту. Необходимо результат #ЗНАЧ! при вызове функции заменить на пустое значение "" Долго гуглил информацию по поводу обхода ...
Изменен: 23.10.2020
Читать сообщение на форуме или сайте.
Написание макроса, для переноса данных из одной книги в другую и заполнение ячейки случайным образом
Автор: restor38ru. Здравствуйте, пользователи форума. Пытаюсь написать макрос, для копирования данных из одной книги в другую Sub auto() Dim r, p, a As String r = "Путь к файлу" \\ изменил из за конфиденциальности p = ThisWorkbook.Name a = Dir(r) GetObject (r) Workbooks(p).Worksheets("1").Range("D31") = Workbooks(a).Worksheets("октябрь").Range("B4").Value Workbooks(p).Worksheets("1").Range("D32") = Workbooks(a). ...
Изменен: 25.09.2020
Читать сообщение на форуме или сайте.
Экспорт данных из INBOX & SENT папок Outlook
Автор: a.m.v.. Всех приветствую. Прошу помощи клуба знатоков. Руководством поставлена задача иметь отчет по работе с generic e-mail. Я имею ввиду, некая Excel таблица в которой присутствует информация из INBOX & SENT папок: сколько писем приходит (папка INBOX),  когда, от кого, тема и на сколько писем был ответ (папка SENT) от сотрудника, в обязанности которого входит работа с generic e-mail. В MS Outlook присутствует несколько учетных записей. По создал макрос на основе приложенного ...
Теги: VBA Макрос
Изменен: 24.09.2020
Читать сообщение на форуме или сайте.
Изменить макрос для отслеживания посылок по трек-коду
Автор: Иван Растеряев. Здравствуйте! Есть возможность изменить макрос в Excel'е на большее количество значений? В данный момент макрос выдаёт только 6, а база состоит из 100 тысяч. Или будет проще написать новый макрос? Данные от кабинета Почты России имеются (токен авторизации и тд).
Теги: VBA Макрос
Изменен: 14.09.2020
Читать сообщение на форуме или сайте.
При выгрузке записей в другую книгу каждой записи давать уникальный ID.
Автор: Алексей Голубев. Всем привет. Стоит такая задача: Нужно с одной книги excel выгружать все записи в другую, и каждой записи давать уникальный ID. Возможно си такое сделать? Со страницы РМК в другую книгу, пример страницы в другой книге есть на странице "Приемка". Помогите решить данный вопрос пожалуйста!
Теги: VBA Макрос
Изменен: 16.07.2020
Читать сообщение на форуме или сайте.
VBA. Сохранение листов в отдельные книги с условиями.
Автор: Max Shams. Доброго времени суток. Есть множество подобных вопросов, но не один из найденных макросов не отвечает заданным критериям.  Как сохранить в отдельные книги определенные листы?  1. Чтобы активация происходила кнопкой(предполагаю что через вставку фигуры). 2. Чтобы сохранились определенные активные листы(кнопка находится на первом листе, листы для сохранения на 3-4-5(может больше, может меньше) название у всех разное) 3. Чтобы название файлов было по названию листа 4. ...
Изменен: 13.06.2020
Читать сообщение на форуме или сайте.
Перенос значения из одного столбца в другой по двойному клику, Перенос значения из одного столбца в другой по двойному клику
Автор: Станислав Вьюжанин. Добрый день друзья. Нужна помощь. Необходимо с помощью двойного клика по диапазону в столбце G в столбец J. Не удаляя при этом значения в в ячейке J, но зачеркивая их.
Изменен: 20.02.2020
Читать сообщение на форуме или сайте.
Как загнать значение с сайта в ячейку (vba)
Автор: luibrain. Здравствуйте, не могу никак соскрапить значение с сайта в ячейку, мне известен css selector, но выдает различные ошибки. Прошу помочь с решением данного вопроса. Сайт: https://zakupki.gov.ru/epz/contract/contractCard/common-info.html?reestrNumber=2183104497918000748 Что нужно соскрапить: Дата заключения контракта - 30.10.2018 (только саму дату надо, без заголовка) Селектор необходимого: ".container:nth-child(6) .section:nth-child(1) .section__info" ...
Теги: VBA Макрос
Изменен: 22.01.2020
Читать сообщение на форуме или сайте.
VBA. Циклично копировать значение строки до следующей.
Автор: zandaki2. Привет! Нужна помощь знатоков VBA. Файл прикрепил. Дело в том, что копировать от строки до строки очень и очень долго, в примере лишь часть файла, а по факту он огромен. Нужен макрос, который копировал бы значение строки до тех пор, пока не появится иное значение. А затем копировал это иное значение пока не появится третье и так далее. Начало таблицы всегда одинаковое, однако количество фамилий (строк соответственно) постоянно меняется.
Изменен: 21.10.2019
Читать сообщение на форуме или сайте.
Выборка из массива с копированием части данных в новую книгу
Автор: FVL. доброго времени суток, уважаемые форумчане! довольно много времени пытался найти самостоятельно решение моей задачи, но потерпел неудачу :( осталось надеяться на ВАШИ "светлые" головы ;)  задача заключается в следующем: есть база сотрудников (лист1 книги Тест) с частью необходимой информации (оставшаяся часть берется из другой базы), нужно создать другую (третью) базу в которой будут попадать только необходимые данные.  предположим что сотрудников больше 3000 чел и 60% ...
Теги: VBA Макрос
Изменен: 21.10.2019
Читать сообщение на форуме или сайте.
Копирование диапазона в строку адреса outlook
Автор: Argo9. Доброго дня, позвольте спросить. Написал небольшую функцию в VBA. Я только начал вариться в кодинге. Функция работает и копирует нужные диапазон, но почему то возвращает в строку адреса значений "-1" (при некоторых изменениях true ). Я так понял так как возвращается значение типа Range, а нужно string. Значение берутся из нескольких ячеек (адреса почты). Как мне вернуть в строку адреса аутлук значение из 2-5 ячеек? хотелось бы в строку ".To = " вбивать ...
Изменен: 24.09.2019
Читать сообщение на форуме или сайте.
Макрос. Перемещение файлов из каталога в корзину
Автор: 5n0vv. Добрый день. Имеется вот такой код. Подскажите, пожалуйста, как в финале композиции сделать, чтобы вместо "delete" было "поместить в корзину"? Заранее благодарю. Dim FSO '
Теги: VBA Макрос
Изменен: 20.09.2019
Читать сообщение на форуме или сайте.
Активировать другое открытое приложение VBA
Автор: pervyakov.ma. Комрады, стоит задача: Из файла эксель необходимо забить в настройку отборов обработки 1С список кодов. Но так как я далек от этого, то я решил воспользоваться топорным способом и написать макрос в экселе через оператор SendKeys. И все бы ничего, только возникла проблема с обращением к окну 1С. Через оператор AppActivate не получается, так как файл приложения имеет формат 1cv8s (3).rdp и макрос выдает ошибку. Поэтому вопрос: Есть ли простенькая команда, которая выполнит ...
Теги: VBA Макрос
Изменен: 30.05.2019
Читать сообщение на форуме или сайте.
ВПР с динамическим именем листа
Автор: Walkish. Добрый день! В чем суть проблемы: Имеется сводный файл, который аггрегирует в себе различную информацию из сборки других файлов. Эти файлы выгружаются ежедневно и в их название дописывается дата, например - "Отчет1_20.03.2019".   В сводном файле каждый день приходится править дату файла в формуле:=ВПР(I4;[Отчет1_20.03.2019.csv]Отчет1_20.03.2019!$D:$G;2;0) Я хочу написать что то типа такого: =ВПР(I4;[Отчет1_"&ТЕКСТ(СЕГОДНЯ();& ...
Изменен: 20.03.2019
Читать сообщение на форуме или сайте.
Скрыть пустые столбцы в диапазоне.
Автор: Aramzes. Подскажите пожалуйста код макроса для скрытия\отмены скрытия пустых столбцов. Т.е. сначала планируется фильтровать по "фирмам", потом по "числу", и хочется видеть результат выставленных фильтров без пустых столбцов значений q1-q13. 
Теги: VBA Макрос
Изменен: 14.03.2019
Читать сообщение на форуме или сайте.
Поиск заданного значения в нескольких листах и при нахождении перенос значений в итоговый лист
Автор: Valmonth502. Нужна помощь с написание кода программы.Боссу на работе нужно автоматизировать поиск в таблицах excel... Есть отдельный файл excel где около ста тысяч обозначений деталей для машины с А1 до А100000. Есть другой отдельный файл excel где список тех деталей которые менялись в 2016 году, отдельный файл за 2017 год и 2018. Боссу нужен итоговый файл где по каждой измененной детали будет отображаться номер изменения за все года. Алгоритм я придумал, но вот в синтаксисе я не силен. ...
Теги: VBA Макрос
Изменен: 27.01.2019
Читать сообщение на форуме или сайте.
Поиск заданного значения в нескольких листах и при нахождении перенос значений в итоговый лист
Автор: Valmonth502. Боссу на работе нужно автоматизировать поиск в таблицах excel... Есть отдельный файл excel где около ста тысяч обозначений деталей для машины с А1 до А100000. Есть другой отдельный файл excel где список тех деталей которые менялись в 2016 году, отдельный файл за 2017 год и 2018. Боссу нужен итоговый файл где по каждой измененной детали будет отображаться номер изменения за все года. Алгоритм я придумал, но вот в синтаксисе я не силен. Алгоритм следующий: в файле " ...
Теги: VBA Макрос
Изменен: 27.01.2019
Читать сообщение на форуме или сайте.
Сортировка строк по дублирующися значения в первом столбце. Текстовые значения
Автор: shurikzar. Прошу помощи (VBA Макрос) по сортировке строк по таблице с n-числом строк, с i-числом возможных дубликатов.  Необходимо чтобы строки с одинаковыми "названиями" из первого столбца были друг под другом.
Изменен: 18.10.2018
Читать сообщение на форуме или сайте.
Как в запросе Power Query прописать Path путь на 1 папку ниже?)
Автор: Fuad1992. Добрый день уважаемые форумчане! Кто знает как прописать в Power Query запросе, Path путь на документ не в текущей папке, а на 1 папку ниже? Честно говоря пробовал всячески прописать путь в текущей папке, однако безуспешно( А про папку ниже вообще молчу) Возможно ли это?) Документ с PQ таблицей-----C:\Users\FUAD\Desktop\Cars\FORD.xlsm Документ для выгрузки -----C:\Users\FUAD\Desktop\TEST.xlsm Добавлю и код и файл во вложение. Спасибо! ActiveWorkbook.Queries. ...
Изменен: 21.06.2018
Читать сообщение на форуме или сайте.
Как изменить запрос Power Query таблицы с помощью VBA?
Автор: Fuad1992. Добрый день уважаемые профи. В документе TEST имеется код, который создает новый документ в необходимой папке (Cars). Потом, в этом новом документе, создается PQ таблица, которая привязана к документу TEST. Там действует фильтрация ("МАРКА") и убираются не нужные строки (Остается только "Ford"). В добавок переименовывается страница, заголовок и сам файл. Новое имя пишется в InputBox. Цель такая, чтобы в запросе, а точнее в фильтрации PQ таблицы было ...
Изменен: 21.06.2018
Читать сообщение на форуме или сайте.
VBA: не работает функция разбиения строки
Автор: Alex375. Добрый день! Имеется макрос, заполняющий шаблон Word документа значениями из ячеек Excel. В данном макросе есть функция проверки значения в ячейке excel на превышение 256 символов и вставки текста в шаблон Word пошагово, если значение превышает 256 символов:'Функция проверки и разбиения строки Sub Replace(Word1, Word2, WD) Lencheck = Len(Word2) 'Проверка длины строки для вставки If Lencheck > MaxLen Then 'Если строка более 256 символов вставку следует выполнить по ...
Теги: VBA Макрос, VBA
Изменен: 06.06.2018
Читать сообщение на форуме или сайте.
Постраничное сохранение документа в формате PDF
Автор: Walkish. Форумчане, доброго времени суток! Прошу подсказать что делаю не так. Имеется документ Visio, со 100 листами, необходимо каждый лист сохранить в отдельный PDF файл и назвать первыми 2мя символами листа.  Есть следущий макрос : Sub savetopdf() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets     ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Desktop" & "\" & Left(s.Name, 2) Next End Sub ...
Теги: VBA Макрос
Изменен: 26.04.2018
Читать сообщение на форуме или сайте.
VBA: преобразование текста в дату внутри массива
Автор: Yahoman. Друзья, привет! Помогите пожалуйста, кто знает... Есть массив (столбец) с датами в текстовом формате "21/12/2017". Нужно в этом же массиве (столбце) такие записи преобразовать в формат дат. Пример во вложении
Теги: VBA Макрос
Изменен: 28.12.2017
Читать сообщение на форуме или сайте.
Сортировка на выбранном диапазоне ячеек
Автор: Kyvaldenius. День добрый. пытаюсь сделать сортировку на выбранном диапазоне ячеек  от второй строки первой ячейки до 9 столбца не известной ячейки  (каждый раз может быть разная) lLastRow- номер последней ячейки  и не знаю как дальше выбрать участок  от А2 до Н lLastRow что бы сортировку применить на этом диапазоне ячеек lLastRow = Cells.SpecialCells(xlLastCell).Row         Range("A3", Rows.Count).Select      'Set ra = sh.Range(sh.Range("a11"), sh. ...
Теги: VBA Макрос
Изменен: 06.09.2017
Читать сообщение на форуме или сайте.
Страницы: 1
Наверх