Код |
---|
Sub Debitor() With Worksheets("Reyestr") Range("H2") = Application.WorksheetFunction.SumIfs(.Columns("X"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J9") = Application.WorksheetFunction.SumIfs(.Columns("N"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J10") = Application.WorksheetFunction.SumIfs(.Columns("O"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J11") = Application.WorksheetFunction.SumIfs(.Columns("P"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J12") = Application.WorksheetFunction.SumIfs(.Columns("Q"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J13") = Application.WorksheetFunction.SumIfs(.Columns("R"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J14") = Application.WorksheetFunction.SumIfs(.Columns("S"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J15") = Application.WorksheetFunction.SumIfs(.Columns("T"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J16") = Application.WorksheetFunction.SumIfs(.Columns("U"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J17") = Application.WorksheetFunction.SumIfs(.Columns("V"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("J18") = Application.WorksheetFunction.SumIfs(.Columns("W"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) Range("H9") = Application.WorksheetFunction.AverageIfs(.Columns("N"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) 'Range("H10") = Application.WorksheetFunction.AverageIfs(.Columns("O"), .Columns("M"), Range("D2"), .Columns("AI"), ">=" & Range("$AC$4"), .Columns("AI"), "<=" & Range("$AC$6")) End With Range("K2").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("A17").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False MsgBox "Ñïàñèáî çà âíèìàòåëüíîñòü !!!", vbCritical End Sub |
И вновь я обращаюсь к Вам за помощью. В приложении высылаю файл (пример) где основные рабочие страницы Reyestr и Selective Debit Report. Если просмотрите макрос то заметите что при вычислении среднего значения (страница Selective Debit Report, ячейка H9) операция проходит успешно, но стоит повторить операцию и применить ее к ячейке H10, возникает ошибка. Не вразумлю причину. На всякий случай прописываю макрос сюда
С уважением Халил Халилов.