Поиск
Автор: User2616. Уважаемые эксперты,
Помогите, пожалуйста, начинающему специалисту в написании кода. У меня стоит следующая задача:
Автоматически создавать файл (Название итоговый файл + месяц) с таблицей по отгрузкам на основании двух источников: заказы и слоты. Делать 1 раз в месяц;
Из "исходника 1" определять тип отгрузки и под него создавать свой лист. Также, по результату отбора для создания листов нужно добавить значения в новую книгу и соответствующие листы следующие значения: ...
Изменен: 10.06.2024
Читать сообщение на форуме или сайте.Автор: User2616. Уважаемые эксперты,
Помогите, пожалуйста, начинающему специалисту в написании кода. У меня стоит следующая задача:
Автоматически создавать файл (Название итоговый файл + месяц) с таблицей по отгрузкам на основании двух источников: заказы и слоты. Делать 1 раз в месяц;
Из "исходника 1" определять тип отгрузки и под него создавать свой лист. Также, по результату отбора для создания листов нужно добавить значения в новую книгу и соответствующие листы следующие значения: ...
Изменен: 10.06.2024
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: Astronaut. Вот мой код вба:Sub Macros2()
Dim x As Integer
x = Selection.Value
Selection.FormulaR1C1 = Empty
Selection.FormulaR1C1 = "=RC[-2]*" & x
End SubСчитает без проблем, но не когда в ячейке дробные числа. Если поменять Integer на Double или любой другой, то выбивает ошибку 1004, я не понимаю в чем проблема. На Double отдельно может перемножать формулы, отдельно может перемножать вводные, но и то, и то вывести просто нет. Я только ...
Изменен: 25.04.2024
Читать сообщение на форуме или сайте.Автор: RayI. Добрый день,
Помогите написать код vba, суть его в следующем
Есть диапазон куда руками вносятся данные, например A2:D2
На основе Этого диапазона строится сводная таблица PivotTable1
Как написать код, который запускал бы автоматом обновление сводной таблицы PivotTable1 как только значения любой ячейки в диапазоне A2:D2 изменилось бы
Спасибо
Изменен: 17.04.2024
Читать сообщение на форуме или сайте.Автор: cep207. Нашел на форуме решение задачи.
Есть путь.
Есть разнообразные форматы файлов.
Нужно вытаскивать названия файлов и количество листов.
Задача чтобы путь в коде подставлять ячейкой а не каждый раз залезать менять код между двумя кавычками, Путь к папке. Хотелось бы путь к папке убрать из самого макроса и поместить его на отдельный лист в ячейку, так как, каждый раз после перемещения папки приходится открывать макрос, и корректировать путь к папкам ручками.
Сам профан все украл ...
Изменен: 16.04.2024
Читать сообщение на форуме или сайте.Автор: Lexey. Всех приветствую!
Прошу помощи с задачей построения диаграммы в VBA. Есть множество листов, в каждом диапазоны в тех же ячейках, на основании которых строятся диаграммы. В каждой диаграмме несколько рядом (например, 3) со своими значениями Х и Y. Проблема в том, чтобы диаграмма строилась по значениям из диапазона активного листа. Сейчас получилось только добиться того, чтобы на всех листа данные диаграммы брались из первого листа.
У меня указаны именованные диапазоны, но это ...
Изменен: 05.03.2024
Читать сообщение на форуме или сайте.Автор: stalkerexe. Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Row > 1 And Not IsEmpty(Target.Value) And Target.Offset(0, 1).Value = "" Then _
Target.Offset(0, 1).Value = Format(Date, "yymm") + (Application.Max(Range("B2:B100")) + 1)
End Sub
При добавлении числа в ячейку рядом автоматически формируется номер, состоящий из части даты ГГММ плюс 4-х значный номер.
Нужно чтобы при ...
Изменен: 08.02.2024
Читать сообщение на форуме или сайте.Автор: lodes11. Всем доброго дня. Обращаюсь за помощью, так как самому не получилось собрать макрос отвечающий моей задачи.
ТЗ к макросу:
Есть документ "Пример", в нем есть лист с таблицей данных "$ Данные $", необходимо по нажатию на "Кнопку" сформировать новый документ (пример нового документа на листе "! Реестр к выполнению !"), который будет содержать определенные заголовки отличные от заголовков таблицы исходных данных и иметь другой порядок столбцов, ...
Изменен: 06.02.2024
Читать сообщение на форуме или сайте.Автор: Reaper. Добрый день, нужен макрос для печати четных и нечетных страниц с разными полями. Есть такой, но он печатает все листы как четные. Я плохо разбираюсь в кодах и вообще не пойму как его исправить. Помогите, пожалуйста!Sub PrintActiveSheet()
Dim ws As Worksheet
Dim oddPages As Boolean
Set ws = ActiveSheet
oddPages = False
With ws.pageSetup
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
End With
If ws.Index Mod 2 ...
Изменен: 30.01.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
Читать сообщение на форуме или сайте.Автор: Dinoxromniy. Добрый день.
Для связи между двумя открытыми приложениями использую VBA через функцию Getobject.
Для примера - хочу из открытого экземпляра Word получить доступ к уже открытому документу в Excel (в оригинале - нужно из открытого Autocad получить доступ в открытый же Excel, но поскольку проблема абсолютно аналогичная и с Word, легче порешать через него).
Для получения открытого экземпляра Excel использую стандартный код из Word (или из акада, не важно), который успешно ...
Изменен: 24.10.2023
Читать сообщение на форуме или сайте.Автор: TheArhus. Добрый день!
Прошу решить следующую проблему:
Есть файл (во вложении)
Отталкиваясь от столбцов "K" и "O" нужно добавить строки по следующему условию:
Если в столбце "K" ячейки не равны 0 (нулю) и если в столбце "O" ячейки не равны 0 (нулю) то
К каждой такой строке нужно добавить строку сверху.
В этой строке ячейки со "Стоимость руб." нужно зачеркнуть.
Такую добавленную строку нужно форматировать как нижнюю, включая формат данных ...
Изменен: 23.10.2023
Читать сообщение на форуме или сайте.Автор: al.tarin. Здравствуйте!
Есть макрос, который удаляет лист после выполнения пересчета. Но появляется окно с запросом стоит ли удалить лист, ведь там есть данные.
Можно ли обойти это окно, тк нужно чтобы лист удалялся без вмешательства пользователя
Изменен: 25.09.2023
Читать сообщение на форуме или сайте.Автор: al.tarin. Здравствуйте! Необходимо чтобы сработал макрос после того, как произойдут вычисления в книге, но workbook_sheetcalculate не работает, помогите пожалуйста!
Изменен: 21.09.2023
Читать сообщение на форуме или сайте.Автор: AmarilloSlim. Здравствуйте, написал маленькую процедуру, которая в выбранном пользователем рейндже ищет заданный пользователем цвет и выдает значение определенной ячейки по соответствию этому цвету.
В принципе все работает, корректно, кроме того, что нужно постоянно вводить заново рейндж при каждом новом поиске цвета.
Можно конечно, захардкодить рейндж, но я хочу сделать программу более пластичной в случае если со временем диапазон данных разрастется.
Как сделать так, что бы инпутбокс на ...
Изменен: 18.09.2023
Читать сообщение на форуме или сайте.Автор: lists2. Добрый день! Изначальная задача состоит в том, чтобы Эксель красил красным значения больше чем три минуты 00:03:00. Вопрос на данный момент такой: нужно формат 00:00:00 превратить в формат 0:00:00 сразу для всех ячеек столбца.
Сейчас, для решения изначальной задачи форматирования я использую формулу =ЕСЛИ(L2>ВРЕМЯ(0;3;0);"КРАСНОЕ";"БЕЛОЕ"). Но данные я ввожу не в ручную, поэтому они отображаются в ...
Изменен: 16.08.2023
Читать сообщение на форуме или сайте.Автор: eLDeus. Есть экспортированная библиотека музыки iTunes в виде XML-файла. Его нужно како-то открыть в таблице. Достаточно вывести содержимое контейнеров <key>, которые идут с порядковыми номерами, в виде колонок с названием трека, альбома, исполнителя, года и т.д.
Насколько понимаю, это можно сделать при помощи Excel.
Пример содержимого XML-файла:
Major Version1
Minor Version1
Date2023-01-18T20:39:58Z
Application Version12.9.5.5
Features5
Show Content Ratings
Music Folderfile:/// ...
Изменен: 16.08.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
Читать сообщение на форуме или сайте.