Оборотність (дні) =
//оборачиваемость итого с начала года

VAR StockNextMonths = CALCULATE([Залишок на початок місяця,
грн] , NEXTMONTH('CALENDARAUTO'[Date]))

VAR Stock_6Months_ago = CALCULATE([Залишок на початок місяця, грн] ,
STARTOFYEAR('CALENDARAUTO'[Date]))

VAR CountDaysInPeriod =
DATEDIFF( STARTOFYEAR('CALENDARAUTO'[Date]) ,
NEXTDAY(ENDOFMONTH(LASTDATE('CALENDARAUTO'[Date]))), DAY)

VAR
StockConsumption_6Months = CALCULATE([Розхід, грн],

                                               
DATESBETWEEN('CALENDARAUTO'[Date], 

                                                     STARTOFYEAR('CALENDARAUTO'[Date]),

                                                    
ENDOFMONTH(LASTDATE('CALENDARAUTO'[Date]))))

RETURN 

//ОБ (дни) = ( (Запас на начало периода + Запас на конец
периода)/2 х Количество дней в периоде)/Расход за период

VAR value_turnover =
((Stock_6Months_ago + StockNextMonths)/2* CountDaysInPeriod) /
StockConsumption_6Months

 

RETURN
IF(ISBLANK(value_turnover),0,value_turnover)

Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If intersect(target,sh.range("A4:BM4")) is nothing then exit sub    
With Application  
.EnableEvents = 0: .Undo: .EnableEvents = 1   
End With
End Sub

let
    Source = Folder.Files("\\Corp.ukrtelecom.loc\kyiv\GenDir\otdels\Напрямок з питань корпоративних прав\Відділ координації закупівель\KPI\Щотижневі звіти для МР та КЦ\Інформація з сайту"),
    #"Строки с примененным фильтром2" = Table.SelectRows(Source, each Text.StartsWith([Name], "list_156")),
    #"Обираємо останій файл" = Table.SelectRows(#"Строки с примененным фильтром2", let latest = List.Max(#"Строки с примененным фильтром2"[Date created]) in each [Date created] = latest),
    #"Filtered Rows" = Table.SelectRows(#"Обираємо останій файл", each ([Extension] = ".xls")),
    #"Removed Other Columns" = Table.SelectColumns(#"Filtered Rows",{"Content"}),
    Content = #"Removed Other Columns"{0}[Content],
    #"Imported HTML" = Web.Page(Content)
in
    #"Imported HTML"