Промежуточный результат в столбце с VBA - Страница 2

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Промежуточный результат в столбце с VBA (Формулы/Formulas)

Промежуточный результат в столбце с VBA

Nic70y

Дата: Понедельник, 23.09.2019, 08:27 | Сообщение № 21

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

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

Сообщений: 6150

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

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

ru13;10;03

+
[vba]

Код

    If Not Intersect(Target, Me.ListObjects(1).ListColumns(3).DataBodyRange) Is Nothing Then
        Application.EnableEvents = False 'отключаем обработку событий
        Application.ScreenUpdating = False 'не скакать перед глазами
        u_11 = Target.Row
        u_12 = Range("a3").End(xlDown).Row
        u_13 = Application.Match("*", Range("a" & u_11 & ":a" & u_12), 0)
        u_14 = u_11 + u_13 - 1 'строка суммы
        u_15 = Application.Match("яя", Range("a3:a" & u_11), 1)
        u_16 = u_15 + 3
        If u_14 <> u_12 Then
            Range("c" & u_14) = Application.Sum(Range("c" & u_16 & ":c" & u_14 - 1))
        End If
        Application.EnableEvents = True 'включаем обработку событий
        Application.ScreenUpdating = True 'скакать перед глазами
    End If

[/vba]

К сообщению приложен файл: 11-1-.xlsm(58.0 Kb)

Яндекс Деньги 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 23.09.2019, 10:04

Ответить

Voin

Дата: Понедельник, 23.09.2019, 13:09 | Сообщение № 22

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

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

Сообщений: 15

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

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

Excel 2016

Nic70y, Спасибо большое! Сейчас посмотрю))

Ответить

Voin

Дата: Понедельник, 23.09.2019, 16:53 | Сообщение № 23

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

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

Сообщений: 15

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

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

Excel 2016

Цитата Nic70y, 23.09.2019 в 08:27, в сообщении № 21 ()

Получилась такая картина:
Файл работает прекрасно))
Просьба сделать сортировку по Модели включая ее разные цвета. В таблице, что посылаю видно, как "Вуаль футболка, молочный." и "Вуаль футболка, черный."
дает сумму как на отдельную модель..... а нужно что б она ее просчитала как единую то есть сумму и по молочной и по черной! Если можно так))
И не могу сделать нормально чистый лист сгенерить-возникают "0" в графе Кол-во шт., если задать команду ОЧИСТИТЬ или ВСТАВИТЬ((