нужен совет как свести со всех таблиц на листе за все дни
по названиям не собирая вручную
согласно наименования
штучность общую
основываясь на названии товара ( обои,шурупы и т.д.)
сбивать в этой таблице общюю стоимость отдельных товаров за все дни.
при добавлении нового наименования как прописать это.
так же как не выбирая вручную снести в одну графу все суммы *итого за день*
Краски в божеский вид приведите.
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
Или формулами. "Краски в божеский вид" - в силе.