Поиск
Автор: 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
Читать сообщение на форуме или сайте.Автор: kamuskokos. Здравствуйте!
Прошу помощи-подсказки по следующему вопросу:
Имеется регулярно обновляемая сводная таблица, создаётся она не мною. Лист имеет набор срезов, табличку с фильтрами и собственно табличку итогов. Источники по которым сводится таблица различные таблицы, доступа к которым не имею.
Существует рутинная работа: отфильтровывать по месяцам и далее по категориям; регионам; торговым точкам итд.
Вопрос вот в чем: возможно ли написать макрос для уже готовой сводной таблицы, ...
Изменен: 28.04.2024
Читать сообщение на форуме или сайте.Автор: hotster-bobster. Дорогие форумчане, подскажите почему возникает ошибка в таблице при использовании впр. Далее прикладываю фото таблиц. За ранее благодарен в ответах! Мне нужно по коду товара подтянуть название платформы из второй таблицы в первую.
Изменен: 22.04.2024
Читать сообщение на форуме или сайте.Автор: RayI. Добрый день,
Помогите написать код vba, суть его в следующем
Есть диапазон куда руками вносятся данные, например A2:D2
На основе Этого диапазона строится сводная таблица PivotTable1
Как написать код, который запускал бы автоматом обновление сводной таблицы PivotTable1 как только значения любой ячейки в диапазоне A2:D2 изменилось бы
Спасибо
Изменен: 17.04.2024
Читать сообщение на форуме или сайте.Автор: cep207. Нашел на форуме решение задачи.
Есть путь.
Есть разнообразные форматы файлов.
Нужно вытаскивать названия файлов и количество листов.
Задача чтобы путь в коде подставлять ячейкой а не каждый раз залезать менять код между двумя кавычками, Путь к папке. Хотелось бы путь к папке убрать из самого макроса и поместить его на отдельный лист в ячейку, так как, каждый раз после перемещения папки приходится открывать макрос, и корректировать путь к папкам ручками.
Сам профан все украл ...
Изменен: 16.04.2024
Читать сообщение на форуме или сайте.Автор: Timur_t3298. Добрый день всем!
Есть график производства с накопительным эффектом и в нем указано сколько единиц в каждом месяце будет произведено с учетом всего произведенного в прошлом месяце. Рядом таблица с наименованием детали и объемом, к которому запасы этой детали закончатся.
Какую формулу прописать, чтобы месяц закупа проставлялся автоматом, а не вручную? (в таблице только 5 строк для упращения, в искомой таблице 2157 строк).
Допустим позиции Рейка хватит еще на 4301 единицу ...
Изменен: 19.03.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
Читать сообщение на форуме или сайте.Автор: Yum. Добрый день всем! Собственно, сабж.
По отдельности каждая работает, но в сочетании нет. Что тут можно сделать ?
Изменен: 08.01.2024
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: iiwanc. Здравствуйте!
Простите, если не сюда пишу.
Excel 2016
В столбце инвентарный номер не меняется значение инвентарного номера. Редактируем в ячейке, потом нажимаем Enter. Значение возвращается к предыдущему с пятью нулями в конце.
В ячейках нет формул.
Была защита ячейки - сняли защиту.
В конце инвентарного номера пять нолей. Первая строка имеет инвентарный номер с пятью нулями.
Вторая строка: ...00010
Третья строка: ...00011
Прикрепил пример.
Буду благодарен советам.
Изменен: 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
Читать сообщение на форуме или сайте.Автор: magistr_ken. Привет, знатоки.
Нужна ваша помощь, слева то что написано буквами это СКЮ, сверху(2001,2002, и т.д) это код магазина. А то что между ними это продажи.
Мне нужно привести это в вид где все это стоит вертикально.
При этом для каждого СКЮ должны повторяться все коды магазинов,и рядом стоять продажи этого СКЮ в этот магаз.
Пример как должно выглядеть показал.
Изменен: 04.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
Читать сообщение на форуме или сайте.Автор: Abumislim Agilov. Всем привет. Возникает случай, когда надо вводит определенные суммы, и даты в одну ячейку.
Далее, нужно в другую ячейку суммировать именно те числа, которые соответствуют своим датам.
Пример: ячейка А1 содержит: 2000.00-2015/150.05-2016/500000.30-2017/230.70-2016, соответственно сначала идет число любое как сумма с копейками (разделитель между рублями и копейками это "."), потом идет "-" как разделитель между числом и датой (дата всегда это целый год ...
Изменен: 20.05.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
Читать сообщение на форуме или сайте.Автор: Дмитрий. Коллеги, всем привет! Помогите, пожалуйста, справиться новичку с задачей, сколько ни искал по форуму, ответа не нашел, а голову уже сломал...
В приложенном файле 2 вкладки: Лиды и Сделки
Нужно найти по номеру телефона лида строку со сделкой.
Казалось бы, ВПР в помощь... Но проблема в том, что телефоны в сделках могут быть записаны либо в разных ячейках, либо в одной ячейке 2 телефона, либо 2 телефона в одной ячейке + 3-й телефон в соседней.
И нужна формула, которая будет искать ...
Изменен: 21.03.2023
Читать сообщение на форуме или сайте.Автор: Dzhode -. Доброй ночи, форумчане.
Возник вопрос по использованию RegEx.Execute
сёрфил форум в поисках ответа, увы видимо не хватило компетенций или упорства...
Если быть кратким вопрос следующий: Как использовать функцию Execute для определённого диапазона, если в ячейку вставляются данные из буфера обмена (любого другого файла), содержащую следующий примерный текст : "Машина KAMAZ А101СЕ178". Диапазон к примеру используется "A".
я могу только проверить, но не ...
Изменен: 02.02.2023
Читать сообщение на форуме или сайте.Автор: Pushninka. Коллеги, добрый день!
Прошу помочь с решением такой задачи:
"Есть две даты (начало и конец периода) и сумма, нужно понять, как можно разбить сумму по месяцам в этом временном отрезке"
Прикладываю Excel для наглядности.
Спасибо!
Изменен: 30.01.2023
Читать сообщение на форуме или сайте.Автор: Сергей Тихомиров. Здравствуйте, сразу к делу: нужно преобразовать данный код, чтобы он работал не только на первую строку, а на диапазон строк. Например до 10. Понимаю что скорее всего нужно взять это все в массив и использовать\внедрить For Each, но никак не получается разобраться. Заранее благодарен.Private Sub CommandButton1_Click()
Dim m As Integer
Dim x As Integer
Dim out As Integer
m = Cells(2, 1)
x = Cells(2, 2)
out = Cells(2, 3)
For i = m To x Step -x
If i > 0 Then
i = i - out
...
Изменен: 22.11.2022
Читать сообщение на форуме или сайте.