Добрый день! Помогите пожалуйста с написанием макроса Основная задача: посчитать количество минут. Есть детализация звонков наших клиентов. В одном файле по нескольким номерам. Продолжительность разговора (в столбце Н) округляется до целой минуты в столбце U. Столбец S где напротив "Итог по абоненту" стоит ЛОЖЬ или ИСТИНА нужен для определения верной тарификации. Необходимо, в столбце U, где минутки, в ячейке напротив "Итог по абоненту" ставить формулу суммы. Сейчас я делаю это вручную кнопкой СУММА, и диапазон определяется автоматически (ровно до предыдущего такого суммирования) Не пойму как мне написать макрос на эту сумму. Вероятно что это будет суммесли, но как поставить диапазон, который мало того всегда меняется, так еще и до предыдущей суммы будет
В примере 2 листа. до того как я вручную поставила суммы в столбце U напротив итого по абоненту, и после этого.
Sub www()
Dim i As Long
Dim y As Long
For i = 12 To Range("a1").SpecialCells(xlLastCell).Row
If InStr(Cells(i, 1), "Дата") > 0 Then
For y = i + 1 To Range("a1").SpecialCells(xlLastCell).Row
If InStr(Cells(y, 1), "Итого по абоненту") > 0 Then
Cells(y, 21).Value = Application.Sum(Range(Cells(i + 1, 21), Cells(y - 1, 21)))
i = y
Exit For
End If
Next y
End If
Next i
End Sub