Поиск
Автор: maksimmaksim_. Все привет.
Как переписать код, что бы не вызывалось окно open каждый раз для vslookup:Set wb2 = Workbooks.Open("C:\******\Выгрузки\отчет.xlsm")
MsgBox wb2.FullName
fullPath = wb2.FullName
Set ws2 = wb2.Sheets("Sheet1")
lLastRowb2 = ws2.Cells(ws2.Rows.Count, "H").End(xlUp).Row ' последняя заполенная строка в книге с курсами
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ws2. ...
Изменен: 05.05.2024
Читать сообщение на форуме или сайте.Автор: Zerakon. Здравствуйте, уважаемые форумчане.
имеется книга с данными. на её основе формируются много книг с данными для пересылки. различные получатели требуют разные данные из таблицы основной.
Итак. возьмем простейшее.
Книга1 столбец D -> Книга 2 столбец H
1 E -> 2 B
1 F -> 2 D
1 G -> 2 E
1 J -> 2 F
1 I - > 2 D
G столбец не изменен, требуется заполнять по принципу, если есть в соседней ячейке данные, то вставить "ТЕКСТ ДЖИ 685"
в идеале я вижу это так, что по ...
Изменен: 29.04.2024
Читать сообщение на форуме или сайте.Автор: kamuskokos. Здравствуйте!
Прошу помощи-подсказки по следующему вопросу:
Имеется регулярно обновляемая сводная таблица, создаётся она не мною. Лист имеет набор срезов, табличку с фильтрами и собственно табличку итогов. Источники по которым сводится таблица различные таблицы, доступа к которым не имею.
Существует рутинная работа: отфильтровывать по месяцам и далее по категориям; регионам; торговым точкам итд.
Вопрос вот в чем: возможно ли написать макрос для уже готовой сводной таблицы, ...
Изменен: 28.04.2024
Читать сообщение на форуме или сайте.Автор: RayI. Добрый день,
Помогите написать код vba, суть его в следующем
Есть диапазон куда руками вносятся данные, например A2:D2
На основе Этого диапазона строится сводная таблица PivotTable1
Как написать код, который запускал бы автоматом обновление сводной таблицы PivotTable1 как только значения любой ячейки в диапазоне A2:D2 изменилось бы
Спасибо
Изменен: 17.04.2024
Читать сообщение на форуме или сайте.Автор: cep207. Нашел на форуме решение задачи.
Есть путь.
Есть разнообразные форматы файлов.
Нужно вытаскивать названия файлов и количество листов.
Задача чтобы путь в коде подставлять ячейкой а не каждый раз залезать менять код между двумя кавычками, Путь к папке. Хотелось бы путь к папке убрать из самого макроса и поместить его на отдельный лист в ячейку, так как, каждый раз после перемещения папки приходится открывать макрос, и корректировать путь к папкам ручками.
Сам профан все украл ...
Изменен: 16.04.2024
Читать сообщение на форуме или сайте.Автор: aleksey84g. Здравствуйте!
Я не так силен в оффисе и пользуюсь им на уровне начинающего пользователя.
У меня есть файл Эксель Работа, хранится он на Гугл-диске, т. к., файл рабочий приходится с ним работать из под Windows11, MacBook и даже с телефона.
Так же я создал файл Шаблон_Работа. В дальнейшем планирую его доработать добавив в него ВПР и возможно макросы.
Вся работа ведется в главном листе, в нем есть ячейки с порядковым номером, именем, названием организации, контактом и описанием.
...
Изменен: 08.04.2024
Читать сообщение на форуме или сайте.Автор: Lexey. Всех приветствую!
Прошу помощи с задачей построения диаграммы в VBA. Есть множество листов, в каждом диапазоны в тех же ячейках, на основании которых строятся диаграммы. В каждой диаграмме несколько рядом (например, 3) со своими значениями Х и Y. Проблема в том, чтобы диаграмма строилась по значениям из диапазона активного листа. Сейчас получилось только добиться того, чтобы на всех листа данные диаграммы брались из первого листа.
У меня указаны именованные диапазоны, но это ...
Изменен: 05.03.2024
Читать сообщение на форуме или сайте.Автор: lodes11. Всем доброго дня. Обращаюсь за помощью, так как самому не получилось собрать макрос отвечающий моей задачи.
ТЗ к макросу:
Есть документ "Пример", в нем есть лист с таблицей данных "$ Данные $", необходимо по нажатию на "Кнопку" сформировать новый документ (пример нового документа на листе "! Реестр к выполнению !"), который будет содержать определенные заголовки отличные от заголовков таблицы исходных данных и иметь другой порядок столбцов, ...
Изменен: 06.02.2024
Читать сообщение на форуме или сайте.Автор: romeiro. Здравствуйте! Пожалуйста, подправьте мой код, ниже пример исходных данных и желаемого результата. Нужно по Номеру короткому(nname) и Уровню(Uroven) сгруппировать строки. Уровень для одного номера может отличаться, но для след. строк Уровень также будет расти внутри группы.Sub Sostav_po_uzlam()
Application.ScreenUpdating = False ' îòêëþ÷àåì îáíîâëåíèå ýêðàíà
Set wb = ActiveWorkbook
x = 2 'ÁÛËÎ 2 !!!
y = 1
For Each nname In Range("A3:A50000").Cells
x = x + 1
nvbom = ...
Изменен: 24.01.2024
Читать сообщение на форуме или сайте.Автор: Aleksey.007. Добрый день ребята! ;)
У нас снова непростая задача)
Проблема не решаемая походу обычными способами, не знаю к кому уже обращаться
Необходимо в строку формулы с указанием сайта вставить ссылку на данные из ячейки. Как это можно сделать и можно ли в целом?
Через вкладку расширение, может макрос помочь, но какой?
Получилось только в гугл таблице в целом сделать импорт цены котировки, но обычном экселе тяжело разобраться с формулой импорта данных с сайтов и тем более настройки ...
Изменен: 15.01.2024
Читать сообщение на форуме или сайте.Автор: Yum. Добрый день всем! Собственно, сабж.
По отдельности каждая работает, но в сочетании нет. Что тут можно сделать ?
Изменен: 08.01.2024
Читать сообщение на форуме или сайте.Автор: MaiklDj. Всем доброго времени суток, столкнулся с такой проблемой, в файле изображена модель СМО, вопрос тем кто в этом разбирается, каким образом можно повысить показатель коэффициента использования, может есть какая-то формула? СМО состоит из 3 каналов связи, Интенсивность потока заявок=11, Интенсивность потока обслуживания=5, очередь=2, важно также чтобы вероятность отказа была в пределах 10%. За помощь буду очень признателен.
Изменен: 23.12.2023
Читать сообщение на форуме или сайте.Автор: ne.bla.bla. Всем добрый день!
Неудачно вчера выключил компьютер после чего сломался Personal.xlsb, некоторые макросы, выведенные на кнопки работают на одном очень сильно зависают. Но самая большая проблема - нет возможности редактировать код в модулях, они попросту не открываются, не экспортируются, не удаляются.
Перепробовал все что можно - перезагружал пк всякими способами, запускал excel в безопасном режиме, убирал из папки файл с макросами, создавал новый - он работает безупречно.
...
Изменен: 12.12.2023
Читать сообщение на форуме или сайте.Автор: lost.eu. Прошу помочь с кодом, данный код работает, но когда встречается видимая строка = 1 то код не проставляет букву A
Задача была в том, чтобы проставить такое количество сколько имеется видимых строк буквы A, B, C
вот код:
Sub тест()
Dim количествоСтрок As Integer
Dim количествоБукв As Integer
Dim буква As String
Dim i As Integer
Dim видимаяСтрока As Range
' Укажите ваш диапазон строк, начиная с A2
количествоСтрок = 1
For Each видимаяСтрока In Range("A2:A" & Cells(Rows. ...
Изменен: 30.11.2023
Читать сообщение на форуме или сайте.Автор: Ильяrc. Здравствуйте! Помогите пожалуйста с кодом он должен по значениям в столбике С высчитывать сумму в определенном диапазоне и делать разницу полученных значений и предыдущих потом с каждым шагом увеличивать диапазон суммирующих значений и т.д. до половины количества значений в столбике С. значения С заполняются индивидуально и не имеет зависимостей в отличии от шага В
сам код:
Sub gg()
Dim Massive As Range
Dim G As Double 'задаем форматы значений'
Dim N As Double
Dim ...
Изменен: 25.11.2023
Читать сообщение на форуме или сайте.Автор: MZ_PLANET. Друзья, мой опыт не позволяет мне сделать макрос. Необходимо переносить значения ячеек слева в горизонтальный порядок справа (окрашенные строки в примере). Каждая позиция отдельно. Если есть такая возможность макросом сделать, можете подсказать пожалуйста?
Изменен: 17.11.2023
Читать сообщение на форуме или сайте.Автор: Denko_P. доброго дня! Коллеги, прошу совета стоит ли начинать браться и если знаете - то с чего начать копать? Мне дико повезет, если уже есть решение и кто-то про него знает. дано: 650 почт, 400 из которых с доменом и 250 личных. Известно про название компании (не всегда правильно написано), почта, номер.
задача: на основе почты, названия компании подтянуть ИНН и ОКВЭД.
Нашел единственный пока для себя вариант это сервис https://dadata.ru/api/find-company/by-email/. Реально ли по такой ...
Изменен: 13.11.2023
Читать сообщение на форуме или сайте.Автор: Dinoxromniy. Добрый день.
Для связи между двумя открытыми приложениями использую VBA через функцию Getobject.
Для примера - хочу из открытого экземпляра Word получить доступ к уже открытому документу в Excel (в оригинале - нужно из открытого Autocad получить доступ в открытый же Excel, но поскольку проблема абсолютно аналогичная и с Word, легче порешать через него).
Для получения открытого экземпляра Excel использую стандартный код из Word (или из акада, не важно), который успешно ...
Изменен: 24.10.2023
Читать сообщение на форуме или сайте.Автор: Zanzibarin. Здравствуйте.
Это своеобразное продолжение темы "VBA выборочное копирование столбцов в зависимости от их названия"
Прошу помочь с решением следующей конкретной задачи.
Из Excel-файла (приложен к посту под названием "Источник") требовалось скопировать, из нескольких листов, информацию из столбцов с определённым названием, после чего перенести их в другой файл на один лист (файл c макросом приложен к посту под названием "Шаблон") и там вставить в ...
Изменен: 10.08.2023
Читать сообщение на форуме или сайте.Автор: sayriddin sohibov. Есть файл с примером GET запроса, он работает, но не знаю как сохранить(парсит) ответ get запроса на отдельных столбцов
Изменен: 18.07.2023
Читать сообщение на форуме или сайте.Автор: Wulade. Здравствуйте,
Помогите с проблемкой.
Задача: необходимо собрать базу из рецептур полуфабрикатов и готовой продукции, т.е. в готовый продукт входит полуфабрикат и упаковочный материал, а в полуфабрикат в свою очередь входит основное сырье и полуфабрикат2, который также состоит из сырья и полуфабриката3 (такая матрешка может доходить до 8 уровней, а иногда и меньше или больше). их необходимо соединить таким образом, чтоб можно было увидеть из чего состоит готовый продукт без ...
Изменен: 12.07.2023
Читать сообщение на форуме или сайте.Автор: Crowner. Подскажите чайнику, пожалуйста.
Вот есть у меня макрос следующего вида
Dim objFolder As Outlook.Folder
Dim objNS As Outlook.Namespace
Dim objMail As Outlook.MailItem
Dim lCounter As Long
Set objNS = Outlook.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Важная папка")
For lCounter = 1 To objFolder.Items.Count
Set objMail = objFolder.Items.Item(lCounter)
{Здесь я получаю информацию различную из objMail такие как дата, время, ...
Изменен: 27.06.2023
Читать сообщение на форуме или сайте.Автор: lilo295. Добрый день.
Помогите в написании макроса.
Необходимо из нескольких файлов excel в которых находятся одинаковые таблицы с разными значениями собрать данные в 1 файл excel.
Вариант 1: осуществить поиск по строке №6 по названию ячейки и определить столбец и вставить данные с 7 строки и до конца со всех файлов в 1 файл и на один лист. Поиск колонок: Наименование, артикул, цвет и последующая вставка столбцов в 1 файл, поиск нужно произвести во всех файлах.
Заранее благодарствую!
Изменен: 18.04.2023
Читать сообщение на форуме или сайте.Автор: i molecule. Доброго времени суток!
Есть довольно длинная формула (1580 знаков), которая никак не хочет работать в VBA, даже после обработки макрорекордером – вылетает ошибка 1004.
Формула, вставляемая вручную (есть в файле-примере):
=ЕСЛИ(ИЛИ(ПСТР([@Номер];1;2)="05";ПСТР([@Номер];1;2)="06";ПСТР([@Номер];1;2)="07";ПСТР([@Номер];1;5)="08";ПСТР([@Номер];1;5)="09";ПСТР([@Номер];1;2)="10& ...
Изменен: 18.04.2023
Читать сообщение на форуме или сайте.Автор: boberchik. Ребята, всем привет! Помогите доработать макрос. Я его нашел на просторах интернета, добавил к своей Книге - работает, но есть нюансы.
Изначальная задача: при открытии Альфа-Книги необходимо в фоновом режиме открыть все Книги в Папке, сохранить изменения и закрыть.
Тестовый запуск показал, что файлы открываются, сохраняются и закрываются нормально. Но только до тех пор, пока не случается ситуация, когда один из файлов в Папке уже кем-то открыт. Тогда работа макроса ...
Изменен: 23.03.2023
Читать сообщение на форуме или сайте.Автор: Dzhode -. Доброй ночи, форумчане.
Возник вопрос по использованию RegEx.Execute
сёрфил форум в поисках ответа, увы видимо не хватило компетенций или упорства...
Если быть кратким вопрос следующий: Как использовать функцию Execute для определённого диапазона, если в ячейку вставляются данные из буфера обмена (любого другого файла), содержащую следующий примерный текст : "Машина KAMAZ А101СЕ178". Диапазон к примеру используется "A".
я могу только проверить, но не ...
Изменен: 02.02.2023
Читать сообщение на форуме или сайте.Автор: Pushninka. Коллеги, добрый день!
Прошу помочь с решением такой задачи:
"Есть две даты (начало и конец периода) и сумма, нужно понять, как можно разбить сумму по месяцам в этом временном отрезке"
Прикладываю Excel для наглядности.
Спасибо!
Изменен: 30.01.2023
Читать сообщение на форуме или сайте.Автор: alex_rem. Всем доброго времени суток.
Описание проблемы: есть протокол, в который подтягиваются данные по приборам из таблицы на втором листе. А в таблицу на втором листе, в свою очередь, подтягиваются данные из внешнего источника (см. пример). Внешним источником служит таблица в отдельном файле excel (Все таблицы НЕ сводные!!!).
Листы в данном протоколе, а также сама книга будут защищены паролем, который исполнители, заполняющие протокол, знать не будут.
Обновлять данные нужно не ...
Изменен: 24.01.2023
Читать сообщение на форуме или сайте.Автор: allovar. Добрый день всем! Есть сайт фондовой биржи. На сайте в углу есть кнопка "ТОРГОВАЯ ИНФОРМАЦИЯ", при нажатии на которую вызывается страница с информацией по торгам на бирже. Как можно с помощью Power Query правильно спарсить данную страницу? Ссылка https://kase.kz/ru/#trade_info_period. У меня при обычном Get From Web по этой ссылке парситься только главная страница, а всплывающая нет. Как быть?
Изменен: 24.01.2023
Читать сообщение на форуме или сайте.Автор: Daryana Sova. Добрый вечер. Есть такая проблема, высылают числовые данные, которые нужно привести к особому шаблону. Вводить вручную около двух тысяч знаков это ужас ужасный, может есть какой-либо макрос или формула? Помогите пожалуйста. Фишка вот в чем, допустим есть три столбца, в первом указано количество знаков всего, во втором количество знаков после запятой, в третьем само значение. К примеру 8/3/45. Мне нужно, чтобы в четвертом встало число 00045,000. Первый и второй столбец не ...
Изменен: 15.12.2022
Читать сообщение на форуме или сайте.