Форум по vba для excel

Автор: boberchik. Ребята, всем привет! Помогите доработать макрос. Я его нашел на просторах интернета, добавил к своей Книге — работает, но есть нюансы.
Изначальная задача: при открытии Альфа-Книги необходимо в фоновом режиме открыть все Книги в Папке, сохранить изменения и закрыть.
Тестовый запуск показал, что файлы открываются, сохраняются и закрываются нормально. Но только до тех пор, пока не случается ситуация, когда один из файлов в Папке уже кем-то открыт. Тогда работа макроса …

Изменен: 23.03.2023

Читать сообщение на форуме или сайте.

Автор: Dzhode -. Доброй ночи, форумчане.
Возник вопрос по использованию RegEx.Execute
сёрфил форум в поисках ответа, увы видимо не хватило компетенций или упорства…
Если быть кратким вопрос следующий: Как использовать функцию Execute для определённого диапазона, если в ячейку вставляются данные из буфера обмена (любого другого файла), содержащую следующий примерный текст : «Машина KAMAZ А101СЕ178». Диапазон к примеру используется «A».
я могу только проверить, но не …

Изменен: 02.02.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

Читать сообщение на форуме или сайте.

Автор: Сергей Разумчиков. Добрый день!
Помогите с задачей:
Есть CVS открытый в EXEl с разделителями запятыми, далее его делим по столбцам по разделителю.
Затем на другом листе па данной таблице строимсводную.
Хотел автоматизировать процес подгрузки нового CSV (за другой период) с затиранием данных по старому.
Но опробовав множество различных вариантов запутался и сломал голову.
Ключевые моменты которые хотелось бы использовать:
1. Выбор файла CSV через диалоговое окно — что бы среди прочего …

Изменен: 12.09.2022

Читать сообщение на форуме или сайте.

Автор: BUCK. Всем добрый день!
Очень прошу вас помочь в создании макроса для переноса уникальных данных из одной книги в другую, так как макросами владею не сильно. Пример приложил в файле, для простоты Лист=Книга.
Допущения следующие:
Исходный файл «Книга 2», который выгружается из открытого источника, и куда постоянно добавляются данные в верхнюю часть таблицы, а также обновляются существующие данные
«Книга 1» — рабочий файл, в который мне необходимо перенести новые …

Изменен: 09.09.2022

Читать сообщение на форуме или сайте.

Автор: Сергей Тихомиров. Здравствуйте, стоит задача составить макрос для копирования данных с одного листа по критериям в другой. На просторах интернета нашел похожую, но все равно иную и попытался этот макрос переделать по нужную мне задачу. И вот он вроде бы работает, но криво. Прошу помощи разобраться. Сама задача звучит так:  Нужно чтобы данные с листа 2 копировались на лист 1 по критерию в столбце С. Подобных строк в листе 2 будут около 250, а листе 1 зависит от заказа. Sub Копирование()
…

Изменен: 22.08.2022

Читать сообщение на форуме или сайте.

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

Читать сообщение на форуме или сайте.

Автор: Sniaper. Написал макрос который отслеживает изменения значений в определенном диапазоне. В случае обнаружения переименовывает папки в соответствии с данными ячеек. Проблема в том, что юЗвери теперь будут заполнять данные не вручную, а формулой, скрип из-за этого не подхватывает изменения в ячейках. Что посоветуете  использовать? (холодное оружие не в счет)
pass: 123

Изменен: 22.05.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

Читать сообщение на форуме или сайте.

Автор: Blok. Получается средствами VBA отправить udp пакет с запросом на устройство, оно отвечает пакетом с нужными данными но при использовании функции чтения данных из сокета exel наглухо виснет.
Помогите пожалуйста исправить.

Изменен: 02.09.2021

Читать сообщение на форуме или сайте.

Автор: Petrosyan. Добрый день!
Возникла тривиальная задача, но нет идей как решить следующее:
Необходимо получить массив из номеров строк выделенных пользователем, ячейки должны быть видимыми. 
Например имеется набор из десяти строк 2 из которых скрыты пусть это будет 3 и 8 строки. Необходимо чтобы в массив попали все видимые
arr = (1,2,4,5,6,7,9,10) .
Подскажите пожалуйста как сделать у меня из идей только перебор циклом каждой строки на состояние видимая или нет, и последовательное заполнение …

Изменен: 14.08.2021

Читать сообщение на форуме или сайте.

Автор: Владислав Дорошенко. Всем привет!
Пишу макрос в Excel для выборки данных с одной таблицы одного листа и последующей вставке в другую таблицу на другой лист, с удалением дубликатов.
Логика программы:
1) Под определенным условием, программа выбирает данные из нужных мне ячеек первого листа и заносит её в коллекцию.
2) Аналогично первому пункту, программа проделывает те же действия, но только со второй таблицей на втором листе.
3) Используя «цикл в цикле» программа сравнивает …

Изменен: 22.06.2021

Читать сообщение на форуме или сайте.

Автор: Дмитрий С. Здравствуйте. Как сделать, чтобы макрос начал действовать с привязкой к определенной ячейке и до конца определенной ячейке, т.е. у нас допустим в этом же листе есть объединённая ячейка Товары, вот и было бы привязка к наименованию этой ячейки. Ниже в коде   в строке Dim U As RangeSet U = Sheets(«Лист1»).Range(«от ячейки с текстом «Товары»:до ячейки с наименованием «Работа»»), нужно прописать: между ячейкой (смотри вложение) с текстом …

Изменен: 15.06.2021

Читать сообщение на форуме или сайте.

1. • Replies:

     3

   • Views: 72,356
   • Rating0 / 5

   Last Post By

   07-17-2017, 03:24 AM
   

1. • Replies:

     8

   • Views: 194
   • Rating0 / 5

   Last Post By

   Yesterday, 10:44 PM
   

2. • Replies:

     6

   • Views: 121
   • Rating5 / 5

   Last Post By

   Yesterday, 08:42 PM
   

3. • Replies:

     2

   • Views: 131
   • Rating0 / 5

   Last Post By

   04-15-2023, 06:03 AM
   

4. • Replies:

     2

   • Views: 124
   • Rating0 / 5

   Last Post By

   04-14-2023, 05:39 PM
   

5. • Replies:

     18

   • Views: 65,561
   • Rating0 / 5

   Last Post By

   04-13-2023, 12:07 PM
   

6. • Replies:

     2

   • Views: 144
   • Rating0 / 5

   Last Post By

   04-13-2023, 02:01 AM
   

7. • Replies:

     6

   • Views: 337
   • Rating0 / 5

   Last Post By

   04-11-2023, 11:44 AM
   

8. • Replies:

     5

   • Views: 270
   • Rating0 / 5

   Last Post By

   04-11-2023, 11:16 AM
   

9. • Replies:

     4

   • Views: 174
   • Rating0 / 5

   Last Post By

   04-11-2023, 04:16 AM
   

10. • Replies:

      4

    • Views: 222
    • Rating0 / 5

    Last Post By

    04-10-2023, 12:09 PM
    

11. • Replies:

      4

    • Views: 235
    • Rating0 / 5

    Last Post By

    04-10-2023, 10:07 AM
    

12. • Replies:

      1

    • Views: 641
    • Rating0 / 5

    Last Post By

    04-10-2023, 06:52 AM
    

13. • Replies:

      2

    • Views: 248
    • Rating0 / 5

    Last Post By

    04-09-2023, 07:01 PM
    

14. • Replies:

      30

    • Views: 17,892
    • Rating0 / 5

    Last Post By

    04-07-2023, 01:01 PM
    

15. • Replies:

      0

    • Views: 169
    • Rating0 / 5

    Last Post By

    04-07-2023, 10:46 AM
    

16. • Replies:

      6

    • Views: 230
    • Rating0 / 5

    Last Post By

    04-07-2023, 06:48 AM
    

17. • Replies:

      2

    • Views: 212
    • Rating0 / 5

    Last Post By

    04-06-2023, 03:11 AM
    

18. • Replies:

      2

    • Views: 216
    • Rating0 / 5

    Last Post By

    04-05-2023, 11:18 AM
    

19. • Replies:

      3

    • Views: 348
    • Rating0 / 5

    Last Post By

    04-05-2023, 04:25 AM
    

20. • Replies:

      5

    • Views: 427
    • Rating0 / 5

    Last Post By

    04-05-2023, 04:24 AM
    

Forum Information and Options

Users Browsing this Forum

Thread Display Options