Поиск
Автор: Роман Ермаков. Ребят помогите. Есть такая таблица (прикрепляю). Как прописать макросом объединение строк с удалением дубликатов:
1) Объединение происходит по имени Контрагента
2) На каждый уникальный номер сборочного листа должны сцепляться номера заказов и перечисляться через ";", так же должна суммироваться сумма документа
3) Количество мест указывается по умолчанию на номер сборочного, поэтому идет разбивка на каждый заказ, т.е. получается, что для Контрагента "Промышленная...
Изменен: 3 мар 2021
Читать сообщение на форуме или сайте.Автор: Alexander Kruglov. Уважаемые спецы, это макрос аналога ВПР который я нашел на форуме, подскажите как можно исправить код, чтоб он корректно работал с отфильтрованными данными, сейчас данные для сравнения забираются с W2 какие бы строки не были отфильтрованы. Спасибо! a = Range(.[w2], .Range("W" & iLastrow)).Valueа вот полный код
Sub Macro4()
Dim a, b, c, iLastrow As Long, i As Long, ii As Long
Selection.AutoFilter Field:=1, Criteria1:="add4"
With Worksheets("Proj1")...
Изменен: 3 мар 2021
Читать сообщение на форуме или сайте.Автор: kohet. Итак, есть у меня шаблон Outlook, в котором достаточно длинная инструкция с картинками, ссылками и прочей фигней. И есть табличка Excel, в которой список задач. которые надо вставить в тело шаблона в строчку 10.
Гуглил-гуглил, и нагуглил, что в таких случаях табличку переводят в код HTML и через .HTMLbody задают тело письма этим переведенным кодом.
Это отправит в тело письма одну табличку. А как эту табличку вставить в определенную строчку готового шаблона?
Принципиально именно в...
Изменен: 2 мар 2021
Читать сообщение на форуме или сайте.Автор: Сергей. Добрый день. В общем, нужен код.
Основная задача - импорт данных из открытого excel в две таблицы (главная+подчиненная) access.
Плюс по мелочам в access.
Если кто-то заинтересуется - скину полное описание.
Изменен: 27 фев 2021
Читать сообщение на форуме или сайте.Автор: Ri Yu. Может быть пора разделить ветки форума на:
Вопросы по Excel
Вопросы по PQ
Вопросы по VBA
Вопросы по P-BI
Понятно что по началу все будут по привычке в одну писать, но со временем все спокойно разнесется. Профит - легче искать нужное,...
Изменен: 16 фев 2021
Читать сообщение на форуме или сайте.Автор: Joker097. Добрый день! делаю гет запрос к ссылке контент, статус 200, вижу в заголовке отчета Content-Disposition c "именем файла.xlsx" который я хочу скачать. Если работать через браузер как пользователь то это появляется на этапе автоматического скачивания файла браузера Яндекс либо на этапе выбора куда сохранить файл в IE.
Что прописать в коде после .send ? Чую что нужен response, что чтобы забрать ответ от сервера в папку на рабочий стол к примеру. Хелп! =)
https://sun9-13.userapi...
Изменен: 7 фев 2021
Читать сообщение на форуме или сайте. ... где находились значения на листе 1. Можно ли сделать так, чтобы макрос копировал с листа 1 на лист 2 в последнюю пустую строку? Не эксперт в vba, буду благодарна за помощь.Private Sub Worksheet_Activate()
Dim a(), i&, ii&, x&
a = Sheets(1).UsedRange.Value
ReDim b(1 To UBound(a, 1), 1 To UBound(a, 1))
For i = 1 To UBound(a)
If Len(a(i, 1)) Then
ii = ii + 1
b(ii, 1) = a(i,...
Изменен: 4 фев 2021
Читать сообщение на форуме или сайте.Автор: Павел Бондарев. Привет! Задача автоматизировать ежедневную рутину: захожу на сайт, авторизовываюсь, захожу во вкладку отчеты, прописываю период, нажимаю выгрузить, жду, сохраняю файл. И так 8 разных сайтов.
В теме XMLHttpRequest первый день. Другие варианты Sendkeys, Shell, не рассматриваю, мало опыта, кажется не надежным, не везде работает.
И так вот код.Sub Тест()
Dim xmlhtp As Object
Set xmlhtp = CreateObject("MSXML2.XMLHTTP")
With xmlhtp
.Open "POST", "https://fos...
Изменен: 29 янв 2021
Читать сообщение на форуме или сайте.Автор: Алексей Китаинов. Добрый день,
Я составляю макрос, который строит календарь электронной записи на основе уникального номера записи.
Код на скриншоте и файл ниже.
Логика действий:
1. Уникальный номер записи присваивается каждой записи и представляет собой конвертированные дату и время начала приема
2. Область Calendar - массив всех конвертированных комбинаций дат и времени в 2021 году
3. Макрос находит уникальные номера в BaseData, X и Y-координаты и заливает соответствующие ячейки в блоке...
Изменен: 9 янв 2021
Читать сообщение на форуме или сайте.Автор: dromanov. Добрый день,
Есть задача: пользователь открывает книгу, если у него выключены макросы, тогда не показывать содержимое книги. Если включены, то показывать данные.
Знаю, что можно сделать через показ/скрытие листа с надписью "включи макросы". Возможно есть другой способ не показывать содержимое книги без включенных макросов?
Спасибо.
Изменен: 17 дек 2020
Читать сообщение на форуме или сайте.Автор: vasa666. Нужен макрос который сверяет фамилии из файла, с фамилиями в листе Excel'я.
ТЗ.
1) Макрос сверяет фамилии в колонке "Е", с фамилиями из файла (в файле будет 318.000 строк). Если файл с фамилиями нужно перевести в какой-то другой формат/кодировку, для более быстрой работы, готов выслушать предложения.
2) Если макрос НЕ находит полного совпадения при сверке данных из файла, то в столбце "АЕ", напротив отсутствующей фамилии ставит текстовую метку "к1"...
Изменен: 13 дек 2020
Читать сообщение на форуме или сайте.Автор: stone_excel. Приветствую всех!
Имеется макрос для переноса данных из диапазона ячеек в одну объединенную ячейку. (файл с примером во вложении)
В диапазоне могут попадаться пустые ячейки, которые не нужно учитывать при переносе, чтобы не создавать пропуски.
На выходе должен получится текст в столбик без пропусков. Как можно доработать код ниже?
Range("A1:A10").Select
Dim i As Long
Dim Str As String
Str = Selection.Cells(1)
For i = 2 To Selection.Cells.Count
Str = Str & vbNewLine &...
Изменен: 16 ноя 2020
Читать сообщение на форуме или сайте. ... Здравствуйте!
По двойному щелчку по элементу, находящемуся в вычисляемом поле сводной, откроется лист со всеми связанными исходными данными.
Как на VBA можно обратиться к этим данным (без промежуточного листа, естественно)? В приложенном файле, например, при выделении в сводной ячейки из ...
Изменен: 10 ноя 2020
Читать сообщение на форуме или сайте.Автор: Sniaper. В файле 3 модуля. Первый - функция, выполняющая вставку модуля № 3 в новый файл, второй - выполняет копирование листа и запускает функцию.
У меня не получается скопированный модуль засунуть в новый файл в "ЭтаКнига", вместо этого он создает модуль в новой книге.
Изменен: 26 окт 2020
Читать сообщение на форуме или сайте.Автор: Алексей Краснов. Добрый вечер!
Столкнулся с проблемой - имеются ячейки, из которых функцией извлекается предпоследнее вхождение текста после определенного делителя "Human".
В том случае, если функция не находит подходящих значений, она возвращает #ЗНАЧ!, который мешает работе остальных функций, которые используют ссылки на эту.
Необходимо результат #ЗНАЧ! при вызове функции заменить на пустое значение ""
Долго гуглил информацию по поводу обхода ошибок с помощью CVErr(xlErrValue)/Application...
Изменен: 23 окт 2020
Читать сообщение на форуме или сайте.Автор: Алексей Краснов. Добрый вечер!
Гуру VBA, очень прошу помочь с одной задачей, которая заключается в следующем:
Есть определенный диапазон строк с текстом и есть строковый массив,...
Изменен: 22 окт 2020
Читать сообщение на форуме или сайте.Автор: RGE. Всем добрый день!
Имеется необходимость выгрузить данные из сводной таблицы (для примера сделал таблицу жильцов) в виде txt-файлов с последующей разбивкой по одному из столбцов (по номеру дома). Подскажите пожалуйста, как это реализовать проще всего. Есть общее представление об экспорте в txt, но вот как именно по домам выгрузить не могу понять.
Изменен: 14 окт 2020
Читать сообщение на форуме или сайте.Автор: Spec. Добрый день!
Есть задача:
1) Открывать файлы с помощью цикла
2) Копировать определенные ячейки из разных мест на листе.
3) Вставлять в список в книгу с кодом Macro.xlsm (ThisWorkbook) следующую пустую строку по столбцам А и B.
Код не работает. Идет Run, потом пропадает окно с кодом, но VBE остается. То же самое с Листом ThisWorkbook, только серая область, без разметки.
Sub KopirovanieIVstavkaVSpisok()
Dim s As String, MyFiles As String, MyRange As String, MyRange2 As String, wb As Workbook...
Изменен: 2 окт 2020
Читать сообщение на форуме или сайте.Автор: a.ibragimov.f. Добрый день, уважаемые эксперты!
Нужна помощь эксперта в макросах. К сожалению, сам допирать до рабочего кода буду долго, поэтому прошу о помощи Вас.
Готов заплатить за рабочую реализацию 1000р. (Перевод с карты на карту)
Данно:
-Хитровыдуманная система, из которой можно выкачать файл Excel с закрашенными ячейками.
-Файл, где необходимо производить анализ по тому, какие ячейки закрашены.
Задача:
1) Сделать ячейку, в которой можно будет выбрать одно из названий присутствующих...
Изменен: 25 сен 2020
Читать сообщение на форуме или сайте.Автор: Vlad_Sm. .
Изменен: 25 сен 2020
Читать сообщение на форуме или сайте.Автор: Александр. Доброго времени суток, друзья. Пытаюсь реализовать следующую задачу: нужно что бы при внесении ИНН в определенное поле в таблице эксель, в другие поля подставлялись данные ФИО директора и адрес организации из веб ресурса. Так как ссылка формируется путем статичного адреса и добавлением ИНН, она получается в каждом случае разная, а макрос упорно прописывает одну, статичную ссылку и при изменении ИНН и формировании новой ссылки, запрос из веб не изменяет данные. В приложении файл...
Изменен: 11 авг 2020
Читать сообщение на форуме или сайте.Автор: Andrii Havryk. Ребята, все привет !
Помогите решить следующую ситуацию.
Есть таблица определенных товаров. Как можно с помощью макроса выделить строки "пересорты" при условии:
- Первые три слова и последние два в названии товаров совпадают (столбец С);
- Значения в столбце F этих товаров в суме дают ноль.
Для наглядности все строки и условия выделил в таблице.
Хотелось бы выделить строки "пересорты" определённым цветом, для дальнейшего их анализа и удаления.
Количество...
Изменен: 3 авг 2020
Читать сообщение на форуме или сайте.Автор: Максим. Всем добрый вечер, нужна Ваша помощь в написании макроса (сам мало знаком с VBA).
Макрос должен открывать файл (файл excel), и копировать оттуда построчно данные, т.е. сначала скопировать первую строку, вставить ее в файл ...
Изменен: 31 июл 2020
Читать сообщение на форуме или сайте.Автор: Spec. Добрый день. есть задача.
1) Из Excel файла Spisok с помощью цикла осуществляем перебор ячеек диапазона. Диапазон ("B2:B4).
2) Ячейку А2 из файла Spisok копируем и вставляем в файл по наименованию 1 в ячейку A2.
3) Ячейку А3 из файла Spisok копируем и вставляем в файл по наименованию 2 в ячейку А2.
4) Ячейку А4 из файла Spisok копируем и вставляем в файл по наименованию 3 в ячейку А2.
Все это делается с использованием циклов.
Проблема в одновременном переборе циклом диапазона ячеек...
Изменен: 5 июл 2020
Читать сообщение на форуме или сайте.Автор: Alexey795. Приветствую всех!
Прошу посоветовать как красиво решить задачу. Может кто-то реализовывал подобное
Введена дата начала и завершения контракта, нужно получить в ячейку список номеров месяцев.
примеры:
#2020/04/01# - #2020/06/30# - - - - - > {4,5,6}
#2020/05/12# - #2020/05/30# - - - - - > {5}
#2020/01/31# - #2020/05/01# - - - - - > {1,2,3,4,5}
осложнение:
#2020/12/05# - #2021/01/31# - - - - - > {12,1}
Изменен: 21 май 2020
Читать сообщение на форуме или сайте.Автор: volkisreg. Пишу макросы давно но коряво и с костылями. Все это время выискивал на форумах подходящие куски кода и использовал в своих целях. Но сейчас время поджимает, а в работе с массивами я вообще не силен. Конечно со временем я разберусь, но сейчас всеже прощу натолкнуть в нужное русло ибо понимаю что это элементарно для знающих товарищей :)
1. Имеем лист где храниться список товара. У каждого товара есть свой уникальный код.
2. При работе макроса получаем массив со значениями продажи...
Изменен: 20 май 2020
Читать сообщение на форуме или сайте.Автор: chotop. Привет!
Гуглил-гуглил, так и не нашел ответа.
Есть UserForm с comboBox, и два листа sheet1 / sheet2
sheet2
Имя (данные для comboBox)
Вася
Петя
Саша
sheet1
пустые ячейки.
Нужно записать в ячейку (A1, A10, A22 и далее) ссылку на значение из (sheet2) выбранную из comboBox, а не само значение в текстовом формате для того, чтобы при изменении ячейки на листе (sheet2) со списком имен изменялось значение на другом (sheet1).
Как это сделать?
A1: Саша
A1: =sheet2!A3
with sheet1
.Cells.Range("A1")...
Изменен: 14 май 2020
Читать сообщение на форуме или сайте.Автор: akuts. Нужно, чтоб было, как на фото 1, а получается как на фото 2. Проблема в формуле для расчёта Y3 : Y_three = Sqr(a + Abs(b * x)) неправильно считает для значений X<4, например, в ячейке F7 корень вообще получился отрицательным числом. Не могу понять, в чем ошибка. Буду благодарна за помощь. Excel профессиональный плюс 2019.
Изменен: 30 апр 2020
Читать сообщение на форуме или сайте.Автор: rrr2rrr. Добрый день!
В книге Excel 85 листов одинаковой структуры (регионы РФ).
Собрать данные с них умею - вставить оглавление PLEX и используя ДВССЫЛ и АДРЕС получить нужные значения
Есть обратный вопрос. Заполнить определенные ячейки в определенных листах нужными мне значениями, которые я заранее подсчитал и выписал на отдельном листе.
И вторая задача, более сложная - мне надо на каждый лист добавить новые строчки в нужном месте. Например, вставить между 11 и 12 строчкой еще 4 строчки...
Изменен: 28 апр 2020
Читать сообщение на форуме или сайте. ... минусовую сторону .
Так- то задача проста как две копейки. Но как это реализовать используя только три ячейки ? Предполагаю может быть на VBA ?
Очень прошу помогите . У самого никак не получается !
Изменен: 9 апр 2020
Читать сообщение на форуме или сайте.