МОЛОЕЦ (Все сообщения пользователя)

глючит строка состояния ексель 2016, строка состояния не реагирует на действия

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

17.10.2023 11:54:42

всем доброго дня. случилась такая проблема, повисла строка состояния. в ней не меняются значения суммы, среднего значения и вообще она отказывается работать. буфер обмена пустой, выделение каких либо ячеек не меняет ничего. пробовал создать новый документ и выделить пустую ячейку, все равно ничего не происходит. однако в левой части пишет: укажите ячейку и нажмите ввод чтобы вставить. повторюсь при открытии любой книги, пусть хоть вновь созданной, в строке состояния сразу появляются значения как на рисунке.

Перейти

Вставить значения в таблицу по нескольким критериям VBA

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

07.04.2021 08:24:30

помогите облагородить код макроса, для внесения значений по справочнику на 2 странице в документе.

Код

Dim lRow As Long

    lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").Select
    Selection.AutoFilter

        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, _
                Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, _
                Criteria1:="="
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 6
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = "Å"
    Selection.AutoFilter

        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Å", _
                Operator:=xlOr, Criteria2:="Ï"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="0.5"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 6
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = "Å"
    Selection.AutoFilter

        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Å", _
                Operator:=xlOr, Criteria2:="Ï"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="1.0" _
        , Operator:=xlOr, Criteria2:="1.5"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter

        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Å", _
                Operator:=xlOr, Criteria2:="Ï"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="2.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter

        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Å", _
                Operator:=xlOr, Criteria2:="Ï"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">2.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 66
    Selection.AutoFilter

        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:="<4"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="<1.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 3
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = "Ñ"
    Selection.AutoFilter

        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:=">3"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="<2.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 3
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = "Ñ"
    Selection.AutoFilter

        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:="<4"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">1.0", _
                Operator:=xlAnd, Criteria2:="<=2"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:=">3"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">=2.0", _
                Operator:=xlAnd, Criteria2:="<=3.5"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
                ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:="<4"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">2.0", _
                Operator:=xlAnd, Criteria2:="<=2.5"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:=">3"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="4.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
                
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:="<4"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">2.5"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 66
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:=">3"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">4.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 66
    Selection.AutoFilter
    
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ê"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="<=0.5"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 3
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = Ñ
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ê"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="1,0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ê"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">1.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 66
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="ÎÑ"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 6
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = "Å"
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="ËÏ"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 6
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = "Å"
    Selection.AutoFilter
        
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Á"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:="<4"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="<1.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 6
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = "Å"
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Á"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:=">3"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="<2.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 50
            Range("Y2:Y" & lRow).SpecialCells(xlCellTypeVisible).Value = 6
            Range("AB2:AB" & lRow).SpecialCells(xlCellTypeVisible).Value = "Å"
    Selection.AutoFilter
            ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Á"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:="<4"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">1.0", _
                Operator:=xlAnd, Criteria2:="<=3,5"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Á"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:=">3"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">=2.0", _
                Operator:=xlAnd, Criteria2:="<=5,5"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
                ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Á"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:="<4"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="4.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Á"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:=">3"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:="6.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 64
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Á"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:="<4"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">4.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 66
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Ñ", _
                Operator:=xlOr, Criteria2:="Ë"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=19, Criteria1:=">3"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">6.0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 66
    Selection.AutoFilter
        
End Sub

Перейти

вставка строки макросом через интуитивный поиск

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

24.03.2020 12:16:16

например выделил ячейку в 8 строке, нажал кнопку1, добавляется строка ниже выделенной 8й (тоесть в девятой) и в ней появляется раскрывающийся список с поиском значений из второго столбца таблицы на листе2. после поиска необходимого данного вставляется строка со значениями соответствующими этой строке на 2 листе.

Перейти

вставка строки макросом через интуитивный поиск

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

24.03.2020 11:33:44

Цитата
Mershik написал: после чего ниже она вставляться должна?? после себя же или в конце списка? мы же ее и ищем во втором столбце получается строка будет повторяться?...

действительно, забыл указать, ниже выделенной.

Цитата
Mershik написал: всю строку объеденять? опять же после чего и когда?

опять же ниже выделенной и да объединенные столбцы в одну ячейку как в примере на 4 строке.

Перейти

вставка строки макросом через интуитивный поиск

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

24.03.2020 10:23:10

добрый день. подскажите текст макроса, чтоб при закреплении его на кнопку 1 выходило окно поиска необходимого текста на листе2 по 2 столбцу, после чего найденная строка вставлялась ниже. а при нажатии кнопки 2 выходило окно в которое можно было вписать текст и он вставлялся дополнительной объединенной строкой (строка 4 в примере) ниже выделенной....

Перейти

Группировка данных из столбца по условию

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

16.03.2020 17:09:45

новое название темы: группировка данных из столбца по условию.
новый пример во вложении.
в исходных данных всегда числа отсортированы по возрастанию, сейчас приходится все это делать вручную, потомучто диапазон может быть не целый.

Перейти

Группировка данных из столбца по условию

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

15.03.2020 17:36:32

Цитата
Vik_tor написал: не пропущены, а располагаются в скрытых строках.

упс, ошибся с примером, они должны быть пропущены.

Перейти

Группировка данных из столбца по условию

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

15.03.2020 15:39:02

добрый день! помогите найти способ изменить данные из столбцов в строчный вид. в примере все понятно станет. суть в том что надо сгруппировать данные из второго столбца (минимальное тире максимальное) в пределах одинакового значения из первого столбца. сложность в том что иногда пропущены порядковые номера и в этом случае надо их записать через запятую. все исходные данные всегда отсортированы по возрастанию.

Перейти

выполнение формул по диапазонам и запись результатов в список

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

20.02.2020 12:27:51

Цитата
Настя_Nastya написал: в М3 и ниже вообще нет формул...

опечатка, N3

Перейти

выполнение формул по диапазонам и запись результатов в список

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

20.02.2020 12:20:56

добрый всем день. помогите зациклить выполнение формул, которые расположены в диапазоне N3:R16, чтоб они повторялись для каждых 26 строк документа, до конца данных на листе. и если результатом выполнения формулы будет ложь, то на листе 3 необходимо сделать запись состоящую и данных ячейки C2 D3 и комментария в три столбца....

Изменено: МОЛОЕЦ - 20.02.2020 12:27:24

Перейти

VBA. Неправильная фильтрация с помощью автофильтра

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

20.01.2020 12:58:12

помогите разобраться
накидал через пень-колоду макрос

Код

Dim lRow As Long

    lRow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Е", _
                Operator:=xlOr, Criteria2:="П"
        ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">2,0"
            Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 66
    Selection.AutoFilter

не выполняется строка

Код
ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">2,0"

точнее она выполняется, но возвращает пустой лист, как будто нет отобранных значений. как обойти ошибку?

Перейти

Как внести значения по множественной фильтрации в новый столбец

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

19.01.2020 11:25:10

Цитата

Дмитрий(The_Prist) Щербаков написал:
МОЛОЕЦ написал:Range("selection")где Вы такое вообще нашли? Кто подсказал такой синтаксис? Что за диапазон такой с именем selection? Selection - сам по себе объект Range, обозначающий выделенный на текущий момент диапазон. И дополнительно его прописывать текстом не надо, будет ошибка(если такого именованного диапазона нет в книге, конечно).Далее, когда выполняете строку:Код ? 1Range("A1:C" & Row_End).SpecialCells(xlCellTypeVisible)(1)что планируете выделить? Все видимые ячейки или только первую область? Если второе - то, да - код именно это и делает. Если же хотели все - зачем (1)?В общем достаточно было написать так:Код ? 1Range("A2:C" & Row_End).SpecialCells(xlCellTypeVisible).Value = 50Хотя мне кажется, что Вам надо что-то такое: Код ? 1234 ActiveSheet.Range("$A$1:$C$19").AutoFilter Field:=2, Criteria1:=">=0", _ Operator:=xlAnd, Criteria2:=" Дмитрий(The_Prist) Щербаков - 19 Янв 2020 11:15:01

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

спасибо, все понял, разобрался. очень мало опыта в программировании, пытался придумать код сам с помощью книжек)))) все работает, дальше сам доделаю как мне надо

P.S. тема закрыта

Изменено: МОЛОЕЦ - 19.01.2020 11:25:30

Перейти

Как внести значения по множественной фильтрации в новый столбец

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

19.01.2020 10:34:34

и снова добавлю результат мозгового штурма макрос 1 в примере. но вылазит ошибка

Код

1Sub Макрос1()
2
3    ActiveSheet.Range("$A$1:$C$C19").AutoFilter Field:=1, Criteria1:="е"
4    ActiveSheet.Range("$A$1:$C$C19").AutoFilter Field:=2, Criteria1:=">=0", _
5      Operator:=xlAnd, Criteria2:="<=3"
6      Range("A1:C" & Row_End).SpecialCells(xlCellTypeVisible)(1).Select
7      Range("selection").Value = 50
8    Selection.AutoFilter
9 End Sub

Изменено: МОЛОЕЦ - 19.01.2020 10:37:07

Перейти

Как внести значения по множественной фильтрации в новый столбец

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

18.01.2020 17:07:48

дополню пост нашел в форуме следующий код

Код

Sub PasteToVisible()
Dim copyrng As Range, pasterng As Range
Dim cell As Range, i As Long
 
&#39;запрашиваем у пользователя по очереди диапазоны копирования и вставки
Set copyrng = Application.InputBox("Диапазон копирования", "Запрос", Type:=8)
Set pasterng = Application.InputBox("Диапазон вставки", "Запрос", Type:=8)
 
&#39;проверяем, чтобы они были одинакового размера
If pasterng.Cells.Cells.Count <> copyrng.Cells.Count Then
MsgBox "Диапазоны копирования и вставки разного размера!", vbCritical
Exit Sub
End If
 
&#39;переносим данные из одного диапазона в другой только в видимые ячейки
For Each cell In pasterng
If cell.EntireRow.Hidden = False Then
cell.Value = Cells(cell.Row, copyrng.Column).Value
End If
Next cell
End Sub

но он немного не подходит, потомучто нет необходимости копировать диапазон, но надо вставить определенное значение в весь отфильтрованный диапазон.

Перейти

Как внести значения по множественной фильтрации в новый столбец

МОЛОЕЦ

Пользователь

Сообщений: 15 Регистрация: 18.01.2020

18.01.2020 13:25:32

всем доброго времени суток. никак не могу найти и придумать строки кода, для того чтоб внести значение, например 50, в отфильтрованный диапазон данных начиная со 2 видимой строки. (в первой строке заголовки). вариант с Range(Selection, Selection.End(xlUp)).Select Selection.FillDown как то не работает.... в примере в ручную выбраны необходимые фильтры, для которых надо проставить значения, далее планирую просто планирую прокопипастить текст макроса и поменять параметры фильтрации и вставить сброс фильтров.

Перейти