таже самая история с копированием, изменением начальных конечных данных и т.п.





есть ещё предложения??
чёт у мя не хватает мозгов(((
Модератор: Naeel Maqsudov
Код: Выделить всё
=СУММПРОИЗВ(($K$2:$K$65000>=$P$2)*($K$2:$K$65000<=$P$4))
или
=СУММПРОИЗВ(--($K$2:$K$65000>=$P$2)*($K$2:$K$65000<=$P$4))
Код: Выделить всё
...
Selection.AutoFilter field:=8, Criteria1:=130 ' фильтр по 130 столбец Н
i = 0
For Each poz In Range("K2:K" & Cells(Rows.Count, 11).End(xlUp).Row)
...