Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 225 След.
Перемещение файлов через VBA
 
Цитата
Артем Черкасов написал:
И самое что, макрос даже на отладке не даёт никакой ошибки
Как заказывали.
Цитата
Артем Черкасов написал:
On Error Resume Next
При ошибке выполнять следующую строку.
Перемещение файлов через VBA
 
Цитата
Артем Черкасов написал:
fso.MoveFile
Подсвечивать нажатые кнопки, Кнопки-макросы
 
Вставьте макрос qq в свою книгу, а в свой макрос первой строкой напишите qq.
Подсвечивать нажатые кнопки, Кнопки-макросы
 
Назначить макрос на все фигуры
Код
Sub qq()
    With Selection.Parent
        .DrawingObjects.Interior.Color = 12419407
        .DrawingObjects(Application.Caller).Interior.Color = 255
    End With
End Sub
Не работает кнопка-макрос., Не работает кнопка-макрос из "элементы управления формы".
 
Цитата
Елена Александрова написал:
Делала, не получилось
До тех пор, пока ваш ответ будет звучать так, шанс на получение внятного ответа стремится к 0
Что, где, когда?
Изменено: RAN - 28.06.2022 18:26:03
Не работает кнопка-макрос., Не работает кнопка-макрос из "элементы управления формы".
 
Попробуйте привязать хвост к собаке. Т.е. вашу новую красивую кнопку к старому макросу.
Свой формат сокращения дней недели.
 
Андрей, вы полагаете, что ваша цитата помогает определить, кому вы отвечаете?
Еще Остап Ибрагимович Берта Мария Бендер Бей  излагал -"контора пишет"!
Макрос для удаления столбцов и строк по нескольким заданным условиям, Макрос удаляет столбцы по нескольким условиям, Нужен макрос для сортирования
 
Цитата
Алексей Смолин написал:
у меня ПК блокирует сохранение  
Т.е. вы считаете, что если Ігор Гончаренко 131 раз топнул по клаве, это нормально, а ежели сей подвиг предстоит проделать вам, то это абзац?
PS Даже 135, если прислюнявить перевод строки.
Изменено: RAN - 25.06.2022 16:31:19
[ПОМОЩЬ] Excel неправильно прокручивается!
 
Когда кажется, крестится надо.
Повторное применение фильтра по всей книге
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target(1).Address = "$F$2" Then
        With Sheets("Лист2").AutoFilter.Range
            .AutoFilter Field:=3, Criteria1:=[F2]
        End With
    End If
End Sub
Изменено: RAN - 24.06.2022 14:05:16
если книга открыта из другого места удалить все макросы в ней
 
Цитата
Aleksejs Bogdanovs написал:
вот и нужен макрос проверяющий с какого места открыта книга?!
И что это даст? Копировать книгу можно и не открывая.
Связь Excel и Word
 
Она и в 2003 была
если книга открыта из другого места удалить все макросы в ней
 
А как запретить копировать книгу?
Изменено: RAN - 24.06.2022 11:26:33
Функция ЕСЛИ, с огромным количеством условий, не справляется.
 
В русский Excel нужно вставлять русские формулы.
Итог умной таблицы передать в переменную
 
Цитата
tchack написал:
.ListRows.CountMaxima
Обалденно получилось! Тут поллитрой и не пахнет, минимум 4.  :D
Удаление дубликатов без сдвига строки
 
Цитата
Ігор Гончаренко написал:
Махмуд, поджигай!
:D
Абсолютная ссылка на умную таблицу
 
Цитата
Дмитрий Овчинников написал:
(в запросе PQ) ссылка на столбец [Расход] "теряется", а точнее подменяется
И неча на зеркало пенять... коли запрос кривой.
Числовой формат ячейки
 
Цитата
Юрий М написал:
зачем Вы процитировали самого себя?
Юр, у чела суперсклероз. А вдруг что-то забыл?
Копирование умной таблицы в обычную в новую созданную книгу
 
Добавьте в начало и конец кода
Код
    Application.CopyObjectsWithCells = False
    Application.CopyObjectsWithCells = True
VBA. Как вставить в столбец умной таблицы гиперссылку с именем из этого столбца и со ссылкой из другого столбца той же строки, автоматизация
 
Код
Sub qq()
    Dim cl As Range
    With Sheets("Лист1")
        For Each cl In .ListObjects("Transform").ListColumns(1).DataBodyRange.Cells
            .Hyperlinks.Add cl, cl.Next.Value, , , cl.Value
        Next
    End With
End Sub
Изменено: RAN - 17.06.2022 12:20:12
Невозможно скопировать надстройку в библиотеку, Надстройка для общего пользования
 
Не рекомендую эту надстройку, ибо сам пользовал. И случайно наткнулся на подмену символов. Например вместо "р" (русская) используется "p" (лат). Вроде есть и еще что-то, но уже забыл.
Возьмите код здесь
Изменение связей. ССылка на другие книги.
 
А вот ёрничать не нужно. Я вам еще в #2 дал ответ, как избавиться от
Цитата
ZabZab написал:
Геморрой начинается
Если вы не читаете ответы, то зачем задаете вопросы?
Наименование макроса из ячейки при операторе call
 
Используйте Application.Run Method
Изменение связей. ССылка на другие книги.
 
ДВА дебильных ответа с дебильными цитатами, и абсолютным отсутствием смысла. Не скажу, что это первый случай, но большая редкость.
Наиболее быстрый способ удаления строк VBA
 
Цитата
Jack Famous написал:
Если можно заменить обычной веткой, то зачем
Не помню, почему в этом случае моей левой задней ноге захотелось написать именно так.
Цитата
Jack Famous написал:
то зачем:     1. перескакивать в конец процедуры     2. Возвращаться обратно
А зачем выносить фрагмент кода в отдельную процедуру? Выходить из основной, и возвращаться обратно?
Цитата
Jack Famous написал:
Не забыть выйти из процедуры перед блоком GoSub
Это даже не смешно. Не забыть внешнюю процедуру определить как Sub или Fanction.
А то, что ты с наскока не видишь пряники, так бывает...
Определить количество строк в умной таблице vba
 
Код
Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObjects("Таблица1").ListRows.Count
Изменено: RAN - 15.06.2022 11:50:12
Наиболее быстрый способ удаления строк VBA
 
Цитата
Jack Famous написал:
судя по Return, это не VBA
Код
GoSub sRange
Наиболее быстрый способ удаления строк VBA
 
https://www.excel-vba.ru/forum/index.php?topic=5674.msg30322#msg30322
Макрос копирующий данные на новые листы по условию
 
А можно так
Код
ActiveSheet.Name = Left(rg.Cells(r, 2), 31)
Изменение связей. ССылка на другие книги.
 
Цитата
ZabZab написал:
Папка в папке 6 книг
Добавьте туда еще один файл - вашу сводную.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 225 След.
Наверх