Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

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

Автор 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