Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

как свести со всех таблиц на листе

Автор Viktor Vk, 23.02.2016, 15:38

« назад - далее »

Viktor Vk

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

kuklp

Краски в божеский вид приведите.
Public Sub www()
    Dim a, b, i&, j&, n&
    a = [i2].CurrentRegion.Value
    b = Intersect(Me.UsedRange, [b:f])
    For i = 2 To UBound(a)
        For j = 3 To UBound(b)
            If InStr(b(j, 1), a(i, 1)) Then a(i, 3) = a(i, 3) + b(j, 3): _
                    a(i, 4) = a(i, 4) + b(j, 5)
        Next
    Next
    For j = 3 To UBound(b)
        If InStr(b(j, 1), "Итого") Then n = n + b(j, 5)
    Next
    [i2].CurrentRegion.Value = a: [l28] = n
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

kuklp

Или формулами. "Краски в божеский вид" - в силе.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771