перечень действий к одному событию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » перечень действий к одному событию (Формулы/Formulas)

Окc

Дата: Понедельник, 15.04.2024, 16:02 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Добрый день! бегло прошлась по темам, имеющим схожий смысл)) безуспешно, хотя прихватила пару полезных идей .. Спасибо! Подскажите пожалуйста возможно ли в Экселе реализовать ведомость: есть событие, которое включает несколько мероприятий, необходимо отдельно вывести все мероприятия по конкретному событию списком, пример во вложении .. Самостоятельные происки не принесли результатов ((

К сообщению приложен файл: ns_primer.xlsx (25.9 Kb)

Ответить

Nic70y

Дата: Понедельник, 15.04.2024, 16:47 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8761

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

если номера по-порядку, как в примере, можно так

изменение ячейки E1
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    'изменение ячейки E1
    If Not Intersect(Target, Range("e1")) Is Nothing Then
        'нижняя заполненная ячейка столбца B
        a = Cells(Rows.Count, "b").End(xlUp).Row
        'сотрем старые данные
        If a > 10 Then Range("a11:i" & a).Clear
        'ищем Номер: РП-09-Л.01.2 (верхняя строка копирования)
        b = Application.Match(Target.Value, Sheets("СВОДНАЯ").Range("b:b"), 0)
        If IsNumeric(b) Then 'если нашли
            'кол-во Номер: РП-09-Л.01.2
            c = Application.CountIf(Sheets("СВОДНАЯ").Range("b:b"), Target.Value)
            'нижняя строка копирования
            d = b + c - 1
            'копируем - вставляем
            Sheets("СВОДНАЯ").Range("k" & b & ":r" & d).Copy Range("b11")
            'нумерация
            Range("a11:a" & 10 + c).FormulaR1C1 = "=ROW()-10"
        End If
    End If
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: ns_primer.xlsm (29.6 Kb)

ЮMoney 41001841029809

Ответить

bigor

Дата: Понедельник, 15.04.2024, 16:47 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1105

Репутация: 210 ±

Замечаний: 0% ±

нет

Окc, в С11 тянуть вниз вправо. Для скрытия ошибок можно в ЕСЛИОШИБКА() обернуть

Код

=INDEX($СВОДНАЯ!$B$4:$R$1100;AGGREGATE(15;6;(ROW(СВОДНАЯ!$B$4:$B$20)-3)/(СВОДНАЯ!$B$4:$B$20=$E$1);ROW(B1));COLUMN(K1))

Сообщение отредактировал bigor - Понедельник, 15.04.2024, 16:48

Ответить

DrMini

Дата: Понедельник, 15.04.2024, 16:52 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 209 ±

Замечаний: 0% ±

Excel LTSC 2024 RUS

Здравствуйте Окc,
ну и до кучи если новый офис:

Код

=ЕСЛИОШИБКА(ФИЛЬТР(СВОДНАЯ!K4:R30;СВОДНАЯ!B4:B30=E1;);"")

К сообщению приложен файл: 5490395.xlsx (26.9 Kb)

Ответить

Окc

Дата: Понедельник, 15.04.2024, 18:15 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Уважаемые эксперты, спасибо огромное за оперативные ответы, но пока ничего из предложенного не подходит(( .. макрос не понимаю как запустить: ввела текст, но ничего не происходит (( по другим формулам - чуть не то.. Дополнила фаил примерами: событий может быть много - они от разных дат / внутри события разные действия - их тоже может быть много или ни одного. Ведомость событий ведется за длительный период - удобно делать отбор в эксель по тому или иному критерию, а для вывода на печать требуется конкретное событие, расписанное по мероприятиям .. Возможно, это не реализуется в Эксель .. посмотрите пожалуйста))

К сообщению приложен файл: ns_2_primer.xlsx (27.2 Kb)

Ответить

DrMini

Дата: Понедельник, 15.04.2024, 20:01 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 209 ±

Замечаний: 0% ±

Excel LTSC 2024 RUS

У вас и диапазоны в файле поменялись.

Код

=ЕСЛИОШИБКА(ФИЛЬТР(СВОДНАЯ!O4:W30;СВОДНАЯ!B4:B30=E1;);"")

и видимо офис староват.
У меня работает.

К сообщению приложен файл: 7168251.xlsx (28.5 Kb)

Ответить

bigor

Дата: Понедельник, 15.04.2024, 20:12 | Сообщение № 7

Группа: Проверенные

Ранг: Старожил

Сообщений: 1105

Репутация: 210 ±

Замечаний: 0% ±

нет

Окc, смотрите в файле, вдруг правильно

К сообщению приложен файл: 0324857.xlsx (21.1 Kb)

Сообщение отредактировал bigor - Понедельник, 15.04.2024, 20:12

Ответить

Окc

Дата: Вторник, 16.04.2024, 10:39 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

bigor, волшебство какое-то)) !!!! Спасибо огромное !!!! Все работает respect

Ответить

Окc

Дата: Вторник, 16.04.2024, 10:40 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

DrMini, спасибо большое! скорее всего действительно старенький у меня офис(( при применении формулы - выдает ошибку, в частности ругается на "ФИЛЬТР" ((

Ответить

Окc

Дата: Среда, 17.04.2024, 15:05 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

bigor, добрый день! Подскажите пожалуйста по этому же файлу)) возможно есть механизм скрытия строк, которые не заполнились значением по формуле? Это макрос скорее всего .. На форуме много похожих обсуждений, но для меня эти символы не трансформируемы :))