Поиск
Автор: twistd. Добрый день. Необходимо при изменении значения в ячейках столбца1 (Таблица2[Столбец1]) преобразовать строку с формулами в значения. При выполнении макроса цикл не заканчивается и уходит в ошибку.
Помогите подкорректировать макрос.Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("Таблица2[Столбец1]")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range(ActiveCell, ActiveCell.End ...
Изменен: 14.07.2022
Читать сообщение на форуме или сайте.Автор: Alexander Kruglov. Привет друзья, есть умная таблица (прайс-лист) примерно 500 строк и 20 колонок, вся она создана на основе данных других с др листов. Обновляю я ее протягиванием и выглядит примерно так:
SKU ID NAME QTY тд 12323 HJWW001,HJWW003 text 5 text SKU ID NAME QTY тд 12323-HJWW001 HJWW001 text 5 text 12323-HJWW003 HJWW003 text 5 text
Я нашел код, который работает, но у него есть минусы, поэтому прошу помощи в доработке
1. самое главное он очень сильно ...
Изменен: 03.07.2022
Читать сообщение на форуме или сайте.Автор: Иван Мельников. В CSV-выгрузке с Индии время событий (убраны из файла-примера, оставил только дату и время) приходит в совершенно неудобном временном формате:
1) новые сутки они начинают с 12:00 (наша первая минута ночи 00:01 у них идёт как 12:01) — тут проблема в том, что точно так же обозначается первая минута после полудня. То есть, дальше часы ночного/утреннего времени идут 01:** — 09:**, дальше 10:**, дальше 11:**, а дальше снова 12:** (только уже дня). И возникает путаница во ...
Изменен: 16.06.2022
Читать сообщение на форуме или сайте.Автор: SRN. Добрый день, прошу профи подсказать где ошибка в коде (собрал с разных источников).
Задача: запустить рассылку сообщений. У каждого электронного адреса, уникальная тема и текст сообщения.
Сейчас он работает, но создает черновик только последнего адреса.
Dim objOl As Object
Dim objMail As Object
Dim sSignPath As String
Dim i As Long
On Error GoTo 2
Set objOl = CreateObject("Outlook.Application")
2:
If objOl Is Nothing Then MsgBox "Не удалось запустить OUTLOOK для ...
Изменен: 16.06.2022
Читать сообщение на форуме или сайте.Автор: Иван Мельников. В CSV-выгрузке с Индии приходят события в совершенно неудобном временном формате:
1) новые сутки они начинают с 12:00
2) дальше идут 01:** — 09:**, дальше 10:**, дальше 11:**, а дальше снова 12:** (только уже дня).
3) далее снова 01:** — 11:** (что соответствует «нашим» 13:** — 23:**)
Строки (события) идут в том порядке, в каком они происходили (сверху вниз от новых и в историю) — иначе вообще было бы не разобрать что за чем следует (и что было до полудня, а что было после ...
Изменен: 15.06.2022
Читать сообщение на форуме или сайте.Автор: sekutor. Вcем привет.
Cтолкнулcя c задачей, которую пытаюcь решить c помощью макроcа.
Еcть файл X.xlsb, в котором 100 вкладок: "АВ01", "АВ02", ..., "АВ50" и "АC01", "АC02", ..., "АC50".
Нужно cоздать 50 файлов c именами "X01", "X02", ..., "X50", в каждом из которых будет две вкладки: "АВ01" и "АC01" в файле "X01", "АВ02" и "АC02" в файле "X02& ...
Изменен: 07.06.2022
Читать сообщение на форуме или сайте.Автор: Никита Васильев. Application.ScreenUpdating = False
Dim table As Worksheet
Dim rw As Integer
Dim x As Integer
Set table = Worksheets("Табель")
For rw = 1 To 10 Step 1
For x = 2 To 10 Step 1
If Worksheets("Источник").Cells(rw, 1) = CDate(Worksheets("Выбор сотрудника").Range("B2")) _
And Worksheets("Источник").Cells(rw, 4) = CStr(Worksheets("Выбор ...
Изменен: 01.06.2022
Читать сообщение на форуме или сайте.Автор: Sniaper. Написал макрос который отслеживает изменения значений в определенном диапазоне. В случае обнаружения переименовывает папки в соответствии с данными ячеек. Проблема в том, что юЗвери теперь будут заполнять данные не вручную, а формулой, скрип из-за этого не подхватывает изменения в ячейках. Что посоветуете использовать? (холодное оружие не в счет)
pass: 123
Изменен: 22.05.2022
Читать сообщение на форуме или сайте.Автор: Дмитрий Филатов. Добрый день, друзья
Исходные данные:
Пример во вложении.
На листе "Назначение исполнителей" в "Таблица база" имеются общие исходные данные о заказе. В "Таблице 1,2 и 3" Нужно назначить исполнителей этого заказа. Руководитель производства, в зависимости от количества изделий в заказе, имеет возможность отдать заказ 9-м исполнителям по каждому цеху. Таким образом для формирования базы данных по заказам в работе у конкретного исполнителя ...
Изменен: 28.03.2022
Читать сообщение на форуме или сайте.Автор: Богдан Кох. Добрый день,
В двух макросах у меня такой код:
Range("Z9") = DatePart("h", Time) & ":" & DatePart("n", Time)
Range("Z10") = DatePart("h", Time) & ":" & DatePart("n", Time)
Cells(11, "Z") = DateDiff("n", Cells(9, "Z"), Cells(10, "Z"))
Все работает хорошо в пределах одного дня. Но если первое значение Z9 внесено в один день, а Z10 – в другой, подсчет в Z11 ...
Изменен: 17.01.2022
Читать сообщение на форуме или сайте.Автор: Роман Романчук. Создал цикл, который при вертикальном нахождении не пустой ячейки запускает следующий цикл, который горизонтально должен фильтровать данные. Все пустые ячейки должны укрываться вместе с колонками, а заполненные оставаться. Но почему-то при его запуске у меня ничего не работает. Не выбивает никаких ошибок, но сам макрос не работает.
При вписывании 0 в строке фильтр, клиенты ничего не заказывающие должны скрыться, а заказавшие что-то остаются неизменно
Вот так выглядит ...
Изменен: 22.12.2021
Читать сообщение на форуме или сайте.Автор: Серобян. Написать программу для определение контрольной цифры для кодов станций, грузов и номеров вагонов в VBA (Алгоритм Луна).
Коды: 35080 (станция), 01801 (груз), 2111111 (вагон).
Изменен: 10.10.2021
Читать сообщение на форуме или сайте.Автор: Blok. Получается средствами VBA отправить udp пакет с запросом на устройство, оно отвечает пакетом с нужными данными но при использовании функции чтения данных из сокета exel наглухо виснет.
Помогите пожалуйста исправить.
Изменен: 02.09.2021
Читать сообщение на форуме или сайте. ... в реализации своей задачи. (Excel VBA)
Основная суть задачи в том ...
Изменен: 28.08.2021
Читать сообщение на форуме или сайте.Автор: Petrosyan. Добрый день!
Возникла тривиальная задача, но нет идей как решить следующее:
Необходимо получить массив из номеров строк выделенных пользователем, ячейки должны быть видимыми.
Например имеется набор из десяти строк 2 из которых скрыты пусть это будет 3 и 8 строки. Необходимо чтобы в массив попали все видимые
arr = (1,2,4,5,6,7,9,10) .
Подскажите пожалуйста как сделать у меня из идей только перебор циклом каждой строки на состояние видимая или нет, и последовательное заполнение ...
Изменен: 14.08.2021
Читать сообщение на форуме или сайте. ... , может быть с помощью макросов vba, или хотя бы намек, буду ...
Изменен: 20.07.2021
Читать сообщение на форуме или сайте.Автор: Chin_Chin. Добрый день, детальные условия в файле.
По оплате и деталям прошу писать в личку.
Изменен: 01.07.2021
Читать сообщение на форуме или сайте.Автор: Владислав Дорошенко. Всем привет!
Пишу макрос в Excel для выборки данных с одной таблицы одного листа и последующей вставке в другую таблицу на другой лист, с удалением дубликатов.
Логика программы:
1) Под определенным условием, программа выбирает данные из нужных мне ячеек первого листа и заносит её в коллекцию.
2) Аналогично первому пункту, программа проделывает те же действия, но только со второй таблицей на втором листе.
3) Используя "цикл в цикле" программа сравнивает ...
Изменен: 22.06.2021
Читать сообщение на форуме или сайте.Автор: Дмитрий С. Здравствуйте. Как сделать, чтобы макрос начал действовать с привязкой к определенной ячейке и до конца определенной ячейке, т.е. у нас допустим в этом же листе есть объединённая ячейка Товары, вот и было бы привязка к наименованию этой ячейки. Ниже в коде в строке Dim U As RangeSet U = Sheets("Лист1").Range("от ячейки с текстом "Товары":до ячейки с наименованием "Работа""), нужно прописать: между ячейкой (смотри вложение) с текстом ...
Изменен: 15.06.2021
Читать сообщение на форуме или сайте. ... привет. Есть строчка в коде VBA которая передает значения c листа ...
Изменен: 25.05.2021
Читать сообщение на форуме или сайте. ... , возможно ли прописать функцию на VBA, которая будет сравнивать ячейки по ...
Изменен: 28.04.2021
Читать сообщение на форуме или сайте.Автор: axill_3d. Уважаемые друзья , помогите реализовать такую задачку
Суть такова , есть форма (UserForm2) на форме нарисован окрашенный цветом (Lable1) . И вот я хочу этот (Lable1) вернее его параметр Widh (максимальное его значение 200 ) привязать к таймеру (время 1 минута) и запустить параллельно с выполнением основного макроса, отобразив таким образом условную визуализацию работы основного скрипта.
Очень прошу помочь, так как сам не могу справиться.
Изменен: 05.04.2021
Читать сообщение на форуме или сайте.Автор: Spec. Добрый день!
Необходимо организовать поиск по всем файлам Excel в папке и всем листам в каждом файле. И копировать всю строку, где нашелся искомый текст. Копировать все нахождения и все строки, где они находятся.
Имеется макрос, но он не работает. Нужно доработать макрос. Желательно сохранить общую структуру неработающего макроса, так как макрос для многократного использования. Плюс добавить комментарии для кода, чтобы код можно было использовать регулярно.
Проблема ...
Изменен: 04.04.2021
Читать сообщение на форуме или сайте.Автор: Роман Ермаков. Ребят помогите. Есть такая таблица (прикрепляю). Как прописать макросом объединение строк с удалением дубликатов:
1) Объединение происходит по имени Контрагента
2) На каждый уникальный номер сборочного листа должны сцепляться номера заказов и перечисляться через ";", так же должна суммироваться сумма документа
3) Количество мест указывается по умолчанию на номер сборочного, поэтому идет разбивка на каждый заказ, т.е. получается, что для Контрагента & ...
Изменен: 03.03.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" ...
Изменен: 03.03.2021
Читать сообщение на форуме или сайте.Автор: kohet. Итак, есть у меня шаблон Outlook, в котором достаточно длинная инструкция с картинками, ссылками и прочей фигней. И есть табличка Excel, в которой список задач. которые надо вставить в тело шаблона в строчку 10.
Гуглил-гуглил, и нагуглил, что в таких случаях табличку переводят в код HTML и через .HTMLbody задают тело письма этим переведенным кодом.
Это отправит в тело письма одну табличку. А как эту табличку вставить в определенную строчку готового шаблона?
Принципиально ...
Изменен: 02.03.2021
Читать сообщение на форуме или сайте.Автор: Сергей. Добрый день. В общем, нужен код.
Основная задача - импорт данных из открытого excel в две таблицы (главная+подчиненная) access.
Плюс по мелочам в access.
Если кто-то заинтересуется - скину полное описание.
Изменен: 27.02.2021
Читать сообщение на форуме или сайте.Автор: Joker097. Добрый день! делаю гет запрос к ссылке контент, статус 200, вижу в заголовке отчета Content-Disposition c "именем файла.xlsx" который я хочу скачать. Если работать через браузер как пользователь то это появляется на этапе автоматического скачивания файла браузера Яндекс либо на этапе выбора куда сохранить файл в IE.
Что прописать в коде после .send ? Чую что нужен response, что чтобы забрать ответ от сервера в папку на рабочий стол к примеру. Хелп! =)
https ...
Изменен: 07.02.2021
Читать сообщение на форуме или сайте. ... пустую строку? Не эксперт в vba, буду благодарна за помощь.Private ...
Изменен: 04.02.2021
Читать сообщение на форуме или сайте.Автор: Павел Бондарев. Привет! Задача автоматизировать ежедневную рутину: захожу на сайт, авторизовываюсь, захожу во вкладку отчеты, прописываю период, нажимаю выгрузить, жду, сохраняю файл. И так 8 разных сайтов.
В теме XMLHttpRequest первый день. Другие варианты Sendkeys, Shell, не рассматриваю, мало опыта, кажется не надежным, не везде работает.
И так вот код.Sub Тест()
Dim xmlhtp As Object
Set xmlhtp = CreateObject("MSXML2.XMLHTTP")
With xmlhtp
.Open "POST& ...
Изменен: 29.01.2021
Читать сообщение на форуме или сайте.