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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 225 След.
Макрос для удаления столбцов и строк по нескольким заданным условиям, Макрос удаляет столбцы по нескольким условиям, Нужен макрос для сортирования
 
Цитата
Алексей Смолин написал:
у меня ПК блокирует сохранение  
Т.е. вы считаете, что если Ігор Гончаренко 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 книг
Добавьте туда еще один файл - вашу сводную.
Макрос копирующий данные на новые листы по условию
 
уберите строку
Код
ActiveSheet.Name = rg.Cells(r, 2)
Макрос для печати, Не очень удобный существующий макрос для печати
 
Код
Sub qq()
    Dim cl As Range
    With Workbooks("èñïîëíèòåëüíàÿ").Sheets("Äàíûå")
        For Each cl In .Range(.Cells(6, "K"), .Cells(.Rows.Count, "K").End(xlUp))
            If cl.Next = 1 Then
                .PrintOut Copies:=3
            End If
        Next
    End With
End Sub
При ссылке на ячейку с датой вставляется число
 
Цитата
Екатерина Новикова написал:
но в формуле  .... вместо даты появляется
Установите в этой ячейке(ячейках) формат даты.
Не работает макрос на другом компьютере, Не работает макрос на другом компьютере
 
Цитата
Stan Lee написал:
то до момента разрешения редактирования содержимого также отображается верное значение ячейки.
Все правильно. А что вы хотите, ежели пересчета не происходит?
Цитата
Stan Lee написал:
Путь совпадает.
НЕ ВЕРЮ!
Ибо немало пользовал вариант из #3
Не работает макрос на другом компьютере, Не работает макрос на другом компьютере
 
Цитата
Stan Lee написал:
sumprop.xla'!
Если вы используете код из надстройки, то разместите ее на своем компьютере.
Если путь к надстройке на разных компах будет совпадать, то все будет работать.
Например сюда C:\Program Files (x86)\Microsoft Office\Office14\Library
VBA. Доработка динамической поисковой формы.
 
И в чем проблема?
Делаете не 1 textbox, а 2. И
Цитата
Frodoobek написал:
в зависимости от ситуации
вводите значения в тот, или в другой.
Пример
Изменено: RAN - 09.06.2022 15:48:26
ExtractWord - пользовательская функция не работает
 
1. Книга не может содержать одноименные процедуры (функции). (Function ExtractWord, Sub ExtractWord).
2. UDF должна находиться в стандартном модуле.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 225 След.
Наверх