#"Добавлен пользовательский объект31" = Table.AddColumn(#"Добавлен пользовательский объект30", "Выручка.3", each [Выручка.2]*(1+[EBITDA_OWN.LFL.Значение.3]), type number),
    #"Добавлен пользовательский объект32" = Table.AddColumn(#"Добавлен пользовательский объект31", "EBITDA.3", each [Выручка.3]*[EBITDA_OWN.EBITDA.Значение.3], type number),
    #"Добавлен пользовательский объект33" = Table.AddColumn(#"Добавлен пользовательский объект32", "TOTAL DEPR.3", each [TOTAL DEPR.2]+([Capex PCP.2]+[Capex Equipment.2])*Assumptions_indicators[link]{0}+(-Assumptions_indicators[link]{0}*[Capex PCP.2]+[Capex Equipment.2]*-Assumptions_indicators[link]{0})/([Defl.Значение.2]/100), type number),
    #"Добавлен пользовательский объект34" = Table.AddColumn(#"Добавлен пользовательский объект33", "CPT.3", each if (-[EBITDA.3]-[TOTAL DEPR.3])*Assumptions_indicators[link]{5} < 0 then 0 else (-[EBITDA.3]-[TOTAL DEPR.3])* Assumptions_indicators[link]{5})

Range("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, TrailingMinusNumbers:=True

Sub ScheduleColor()

Dim wb As Workbook
Dim sh As Worksheet
Dim stsh As Worksheet

Set wb = ThisWorkbook
Set sh = wb.Sheets("Sheet1")
Set stsh = wb.Sheets("STDates")

lrow = stsh.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lrow
    r = WorksheetFunction.Match(stsh.Cells(i, 1), sh.Range("B:B"), 0)
    c = WorksheetFunction.Match(stsh.Cells(i, 2), sh.Range("2:2"), 0)
    cbr = WorksheetFunction.Match(stsh.Cells(i, 2) - 1, sh.Range("2:2"), 0) 'НЕ РАБОТАЕТ
   
    sh.Cells(r + 1, c) = "ST"
    sh.Cells(r + 1, c).Interior.ColorIndex = 6 'yellow
    
'    sh.Cells(r, cbr) = "CleanBR"
'    sh.Cells(r, cbr).Interior.ColorIndex = 6 'yello
Next i

End Sub

=Лист1!$B$3;Лист1!$D$3;Лист1!$E$3;Лист1!$F$3

=-1*Лист1!$B$3:$F$3

pivot.PivotTables("СводнаяТаблица1").PivotFields("Олимпик/ Паралимпик"). _
        CurrentPage = "(All)"
With pivot.PivotTables("СводнаяТаблица1").PivotFields("Олимпик/ Паралимпик")
    .PivotItems("(blank)").Visible = False
    .PivotItems("олимпик").Visible = True
End With
 
If Err.Number <> 0 Then Err.Clear
On Error Resume Next
    pivot.PivotTables("СводнаяТаблица1").PivotFields("Олимпик/ Паралимпик").PivotItems("паралимпик").Visible = False
On Error GoTo 0

ChDir "C:\Users\" & Application.UserName & "\Desktop"
wbeff = Application.GetOpenFilename

ChDir "\\nas\Bosco_Sport$\LOGISTICS\ОТЧЕТЫ\"

effect.ListObjects("Таблица1".Range.AutoFilter Field:=3, _
        Criteria1:=Array("Подарки", "Бонусы", "Форма персонала", "Торговый Дом ГУМ", _
        "ООО ""Спорттовары Боско""", "ООО ""Управляющая компания Боско""", _
        "ООО ""Боско Нева""", "ООО ""Боско Волга""", "ООО ""Боско Урал""", _
        "ООО ""Боско Ривьера""", _
        Operator:=xlFilterValues

Sub CheckDiffs()
Dim wsh1 As Worksheet
Dim wsh2 As Worksheet
Dim mnth As String

mnth = "Март 2015" 'поменять при смене месяца/года
Set wsh1 = Workbooks("Отчет по выручке " & mnth & "_sql.xlsx").Sheets("выручка")
Set wsh2 = Workbooks("Отчет по выручке " & mnth & ".xlsx").Sheets("выручка")