Заменить макросом функцию "СУММЕСЛИМН"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Alex7240

Дата: Пятница, 14.05.2021, 15:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 20% ±

Добрый день. Помогите заменить макросом функцию "суммеслимн".
Листы "база" и "отчет" находятся в разных книгах.
В книге "отчет" даты вставляет другой макрос. (он запускается первым)
Макрос должен вставлять литры в зависимости от даты (даты в базе идут не по порядку)

К сообщению приложен файл: 2679380.xlsx (9.7 Kb)

Ответить

Kuzmich

Дата: Пятница, 14.05.2021, 18:26 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

При активном листе отчет запустить макрос
[vba]

Код

Sub SumLitr()
Dim i As Long
Dim iLastRow As Long
Dim iLR As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("D3:D" & iLastRow).ClearContents
With Worksheets("база")
    iLR = .Cells(.Rows.Count, 1).End(xlUp).Row
  For i = 3 To iLastRow
    Cells(i, "D") = Application.WorksheetFunction.SumIf(.Range("A2:A" & iLR), Cells(i, "A"), .Range("C2:C" & iLR))
  Next
End With
End Sub

[/vba]