Здравствуйте! Есть таблица в которой к каждому дому идут услуги. Необходимо услуги ТБО и Вывоз тбо сложить для каждого дома отдельно (выделены желтым и оранжевым) и поместить в зеленые ячейки. И посчитать всю таблицу (она очень большая для примера предоставил только часть). В домах количество услуг разные и находятся на разных позициях.
Здравствуйте! Есть таблица в которой к каждому дому идут услуги. Необходимо услуги ТБО и Вывоз тбо сложить для каждого дома отдельно (выделены желтым и оранжевым) и поместить в зеленые ячейки. И посчитать всю таблицу (она очень большая для примера предоставил только часть). В домах количество услуг разные и находятся на разных позициях.Drev1n
ЧТОБЫ считало необходимо адреса итогов привести в соответствие с адресами по статьям (БОГДАНА ХМЕЛЬНИЦКОГО ул 12 корп.1 не равно БОГДАНА ХМЕЛЬНИЦКОГО ул 12 корп 1
Добрый день. вариант с циклической формулой (необходимо в параметрах включить итеративные вычисления)
ЧТОБЫ считало необходимо адреса итогов привести в соответствие с адресами по статьям (БОГДАНА ХМЕЛЬНИЦКОГО ул 12 корп.1 не равно БОГДАНА ХМЕЛЬНИЦКОГО ул 12 корп 1sboy
Спасибо за ответ, но формула не выбирает для последующих домов свои значения ТБО и Вывоз ТБО, а берет значение первого дома $B$4 и $B$11. И мне не понятно почему пока не протянешь строки с адресом домов формула не считает хотя все буквы одинаковые. Вот что получилось.
Спасибо за ответ, но формула не выбирает для последующих домов свои значения ТБО и Вывоз ТБО, а берет значение первого дома $B$4 и $B$11. И мне не понятно почему пока не протянешь строки с адресом домов формула не считает хотя все буквы одинаковые. Вот что получилось.Drev1n
Если зеленые строки присутствуют чётко после каждого адреса и в столбце "В" везде стоит "1", то, простой макрос - простое решение. [vba]
Код
Sub ТБО() Dim i&, X&, Y& For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "B") = "Вывоз ТБО" Then X = Cells(i, "C") If Cells(i, "B") = "ТБО" Then Y = Cells(i, "C") If Cells(i, "B") = "1" Then Cells(i, "C") = X + Y Next End Sub
[/vba]
Если зеленые строки присутствуют чётко после каждого адреса и в столбце "В" везде стоит "1", то, простой макрос - простое решение. [vba]
Код
Sub ТБО() Dim i&, X&, Y& For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "B") = "Вывоз ТБО" Then X = Cells(i, "C") If Cells(i, "B") = "ТБО" Then Y = Cells(i, "C") If Cells(i, "B") = "1" Then Cells(i, "C") = X + Y Next End Sub