МОЛОЕЦ (Автор тем)

глючит строка состояния ексель 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 10:23:10

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

Перейти

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

МОЛОЕЦ

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

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

15.03.2020 15:39:02

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

Перейти

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

МОЛОЕЦ

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

Сообщений: 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

18.01.2020 13:25:32

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

Перейти