Добрый день. Пожалуйста, прочтите правила. Поменяйте Ник и прилагайте файл Ехс, а не картинку.
Так, как вы их не читали, то смотрите мой пример. Он кажется рабочий.
Так, как вы их не читали, то смотрите мой пример. Он кажется рабочий.
12.04.2024 16:35:15
ALT+F11 откроется редактор VBA
|
|||
|
11.04.2024 20:45:15
Павел \Ʌ/, судя по
Но, подозреваю, что надо еще и ID учитывать.
Изменено: |
|||
|
08.04.2024 16:52:31
Добрый день!
У вас прямое указание назначить лист из этой книги (из которой запускается макрос), но в личной книге такого нет замените ThisWorkbook.Sheets("Лист1") Используйте активную на момент запуска макроса книгу с активным листом. Set ws = ActiveWorkbook.ActiveSheet
Изменено: |
|
|
08.04.2024 14:31:18
Оксиген Ёлкина, извините не досмотрел:(
замените в строчке shIsx.Range("H2:G2").Copy G ->J shIsx.Range("H2:J2").Copy |
|
|
08.04.2024 12:56:12
Тогда простенький макрос по переносу строки 2
|
|||
|
08.04.2024 12:02:07
Вставьте после установки фильтра строку
Да и на лист продажи у вас перехода не будет так, как у вас выход из процедуры при выполнении условия.
Изменено: |
|||
|
03.04.2024 11:50:33
Добрый день!
у меня офис старше и не могу посмотреть формулу. У Вас проблема с определением расчетного диапазона. По первой таблице вы можете сделать это так
Изменено: |
|||
|
18.01.2024 12:44:55
Держите вариант.
В Module1 вставляете Public Cl As Variant, mySh As String В модуль ЭтаКнига код ниже
|
|||
|
28.12.2023 10:50:39
Добрый день!
Попробуйте посмотреть здесь '============================================================ ' Author : Alex_ST ' Topic_HEADER : Удобный автофильтр ' Topic_URL : ' Post_Author : Alex_ST ' Post_URL : ' Date_Time : 20.02.11 ' Purpose : Программа фильтрации по критерию "содержит" в соответствии с изменениями содержимого текстбоксов ' Notes1 : если задать аргумент СТОЛБЕЦ% = 0, то столбец для фильтрации будет определяться автоматически по положению левого верхнего угла каждого текстбокса ' Notes2 : возможно автоматическое позиционирование текстбоксов относительно ячеек и подгонка их ширины-высоты ' Notes3 : возможна автоматическая замена при вводимых в текстбоксы пробелов на звёздочки '============================================================ |
|
|
01.12.2023 01:01:59
Попытался... На тестовом файле подогнал...
не смог написать условие для Суммы в RegExp и не смог в итоговой таблице границы закрасить:( Где-то надо явно указывать что это Excel, но не смог...
Тестовый файл не прикреплял, он выше. |
|||
|
25.11.2023 15:00:34
БМВ, Спасибо, не досмотрел что это просто строка Надо или очки покупать или ноут менять на большой экран.
А вот эта часть User ID=Admin? это не отсылка к правам пользователя? Пример делал с домашнего, а вот что пишет на работе не посмотрел:( Да и что можно из записи выкинуть без последствий? |
|
|
25.11.2023 12:52:45
Создаю письма в Ворд, данные для письма в файле Excel. Периодически теряется подключение к источнику данных. Могу пройти путь в ручную, но вот бесит... Попробовал написать макрос. Задача открыть единственный файл Excel в папке с бланком письма не зависимо от расширения.
Но вот в строке подключения выданной макрорекодером вызывают сомнения части строки User ID=Admin и хотелось бы иметь возможность указывать имя листа откуда берем данные FROM `01Osn$`" в переменной. Забыл, проба макроса в Ворде.
Изменено: |
|||
|
11.10.2023 22:15:03
Добрый день!
Формулы не позволят зафиксировать значения. Поэтому макрос. Обратите внимание таблицу Октябрь в примере обозвал МесяцТек и изменил формат отображения даты в шапке. Есть в ВБА проблемы при поиске даты с разными форматами и я не разбираюсь в этом. Как искать по вашему формату не знаю. Жмите на кнопку. Макрос ищет столбец даты, вставляет формулу ВПР() и потом преобразует формулы в значение. |
|
|