Автор: a.ibragimov.f. Добрый день, уважаемые эксперты! Нужна помощь эксперта в макросах. К сожалению, сам допирать до рабочего кода буду долго, поэтому прошу о помощи Вас. Готов заплатить за рабочую реализацию 1000р. (Перевод с карты на карту) Данно: -Хитровыдуманная система, из которой можно выкачать файл Excel с закрашенными ячейками. -Файл, где необходимо производить анализ по тому, какие ячейки закрашены. Задача: 1) Сделать ячейку, в которой можно будет выбрать одно из названий присутствующих...

Автор: Александр. Доброго времени суток, друзья. Пытаюсь реализовать следующую задачу: нужно что бы при внесении ИНН в определенное поле в таблице эксель, в другие поля подставлялись данные ФИО директора и адрес организации из веб ресурса. Так как ссылка формируется путем статичного адреса и добавлением ИНН, она получается в каждом случае разная, а макрос упорно прописывает одну, статичную ссылку и при изменении ИНН и формировании новой ссылки, запрос из веб не изменяет данные. В приложении файл...

Автор: Максим. Всем добрый вечер, нужна Ваша помощь в написании макроса (сам мало знаком с VBA). Макрос должен открывать файл (файл excel), и копировать оттуда построчно данные, т.е. сначала скопировать первую строку, вставить ее в файл ...

Автор: 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}

Автор: chotop. Привет! Гуглил-гуглил, так и не нашел ответа. Есть UserForm с comboBox, и два листа sheet1 / sheet2 sheet2 Имя (данные для comboBox) Вася Петя Саша sheet1 пустые ячейки. Нужно записать в ячейку (A1, A10, A22 и далее) ссылку на значение из (sheet2) выбранную из comboBox, а не само значение в текстовом формате для того, чтобы при изменении ячейки на листе (sheet2) со списком имен изменялось значение на другом (sheet1). Как это сделать? A1: Саша A1: =sheet2!A3 with sheet1 .Cells.Range("A1")...

Автор: rrr2rrr. Добрый день! В книге Excel 85 листов одинаковой структуры (регионы РФ). Собрать данные с них умею - вставить оглавление PLEX и используя ДВССЫЛ и АДРЕС получить нужные значения Есть обратный вопрос. Заполнить определенные ячейки в определенных листах нужными мне значениями, которые я заранее подсчитал и выписал на отдельном листе. И вторая задача, более сложная - мне надо на каждый лист добавить новые строчки в нужном месте. Например, вставить между 11 и 12 строчкой еще 4 строчки...

Автор: Pankiller. Всем привет! Такая задача: Есть файл excel таблица. В ней 80 тыс строк одной колонкой. Необходимо объединить каждые 25 ячеек в этой колонке в одну ячейку. В ячейках номера, пример 254251200025452001, они идут по порядку но с контрольной цифрой в конце. То есть например есть 80 тыс строк и после объединения будет 3200 ячеек в которых будет по 25 номеров. Так же необходимо чтобы была возможность количество менять в зависимости от задачи.

Автор: S. Anton. коллеги, подскажите, пожалуйста, как средствами VBA получить адрес электронной почты учетной записи пользователя открывшего книгу excel ? для наглядности прикладываю картинку. Получить нужно ...

Автор: asdfg78. Ребята, помогите, пожалуйста. Имеется необходимость записать огромную функцию Если в пользовательскую функцию. Написала код, но он не работает, возвращает в ячейку 0. Где я совершила ошибку?( Public Function PaymentFl2In(Stp1, Stp2, Stp3, Stp4, Stp5, Stp6, Stp7, Com1, Com2, Com3, Com4, Com5, Com6, Com7, Min1, Min2, Min3, Min4, Min5, Min6, Min7, SPay) If SPay > Stp5 And (Stp1 * Com1 + (Stp2 - Stp1) * Com2 + (Stp3 - Stp2) * Com3 + (Stp4 - Stp3) * Com4 + (Stp5 - Stp4) * Com5 + (SPay...

Автор: Argo9. Добрый день, подскажите пожалуйста, как отправить письмо по outlook через vba, заранее созданному контакту. Имеется в контактах outlook контакт с массивом адресов, как в строку ".To" сказать взять этот контакт?(как ...

Автор: Argo9. Вылетает такая ошибка Run - time erroe '1004' Application - defined or ibject-defined error Функция то работает, то дает такую ошибку, закономерность я не выявил. Подсвечивает вот этот блок With wbTmp.PublishObjects.Add( _ SourceType:=xlSourceRange, Filename:=sF, _ sheet:=wbTmp.Sheets(1).Name, Source:=wbTmp.Sheets(1).UsedRange.Address, _ HtmlType:=xlHtmlStatic) .Publish (True) End With Подскажите в чем проблема? Бывает все работает, бывает нет. Непонятно. Function ConvertRngToHTM(bank...

... столбца B, чтобы дата умещалась в ячейке End With End If Next cell End Sub Есть две проблемы: 1) В условии функции IIf не могу сделать разницу двух значений VBA начинает на меня "ругаться". А именно хочу записать в условии что-то в виде IIf(Intersect(cell, Range("C2:C10000")) - Intersect(cell, Range("D2:D10000")).......

Автор: Jagig. Добрый день! Есть необходимость переименовывать лист по значению ячейки из другого листа (не текущего). У меня сейчас есть файл где со страница Главная переходит на лист с указанным именем (регионом) (по кнопке). Таких Листов около 20-ти. Они все шаблонные данные идентичные. Как можно "переименовывать лист по значению ячейки из другого листа (не текущего)." чтобы сократить кол-во листов регионов до одного. Кнопок будет также 20 на листе Главная. Может как то можно брать имя...

Автор: Jagig. Добрый день! Подскажите, у меня разбивка по регионам, в каждом регионе по 4 группы различной информации. Каждый регион в итоге обращается к одному листу, допустим "Аутсорс". В данный момент прописываю автофильтр по критериям (равно) Пример: Sub Аутсорс_актюб() ActiveSheet.Select Sheets("Полный мониторинг").Visible = True ActiveSheet.Visible = False Sheets("Полный мониторинг").Select ActiveSheet.Range("B:B").AutoFilter Field:=2, Criteria1:="актюбинский"...