Кол-во = 
COUNTROWS (
    FILTER (
        ADDCOLUMNS (
            'Справочник',
            "сумма для фильтра",
            CALCULATE (
                SUM ( '1'[Значения] ),
                ALLEXCEPT (
                    '1',
                    'Календарь'[Year]                 
                )
            )
        ),
        [сумма для фильтра] > 0
    )
)

кол-во_2 = 
IF (
    SELECTEDVALUE ( 'Переключатель'[Переключатель] ) = "1",
    [Кол-во],
    CALCULATE (
        [Кол-во],
        USERELATIONSHIP ( 'Менеджеры'[Значение], 'Справочник'[Менеджер Холдинга] )
    )
)

Кол-во = 
VAR i1 = 
COUNTROWS (
    FILTER (
        ADDCOLUMNS (
            'Справочник',
            "сумма для фильтра",
            CALCULATE (
                SUM ( '1'[Значения] ),
                ALLEXCEPT (
                    '1',
                    'Календарь'[Year]                 
                )
            )
        ),
        [сумма для фильтра] > 0
    )
)
VAR i2 =
IF (    
    SELECTEDVALUE ( 'Переключатель'[Переключатель] ) = "1",
    i1,
    CALCULATE (
        i1,
        USERELATIONSHIP ( 'Менеджеры'[Значение], 'Справочник'[Менеджер Холдинга] )
    )
)
RETURN i2

Индекс процессов = //if ( not isblank([Индекс задач в текущих процессах]),
    IF (
        MIN ( 'БД'[Дата начала процесса] ) <= MAX ( 'Календарь'[Date] ),
        SWITCH (
            (
                MAX ( 'БД'[Дата завершения процесса] ) > MAX ( 'Календарь'[Date] )
                    || COUNTBLANK ( 'БД'[Дата завершения процесса] ) > 0
                    || MAX ( 'БД'[Статус] ) = "В работе"
            )
                + (
                    ( MAX ( 'БД'[Статус] ) = "Успешно завершена" ) * 2
                        + ( MAX ( 'БД'[Статус] ) = "Завершена с отказом" ) * 4
                )
                    * ( MAX ( 'БД'[Дата завершения процесса] ) >= MIN ( 'Календарь'[Date] ) ),
            1, 1, //в работе
            2, 2, //успешно завершено
            3, 1, //в работе (в работе + успешно)
            4, 3, //завершена с отказом
            5, 1  //в работе (в работе + отказ)
        )
    )

Кол-во задач по статусам = 
MAXX (
    ADDCOLUMNS (
        VALUES ( 'БД'[Этап воронки] ),
        "ss",
            CALCULATE (
                COUNTROWS (
                    FILTER (
                        VALUES ( 'БД'[№ процесса] ),
                        [Индекс процессов] IN VALUES ( 'Статус'[Sort] )
                    )
                ),
                ALLEXCEPT ( 'БД', 'БД'[Деп иниц], 'БД'[Этап воронки], 'БД'[Инициатор], 'БД'[Название процесса] )
            )
    ),
    [ss]
)

Кол-во задач = 
VAR i_1 =
CALCULATE (
    SUMX ( VALUES ( 'БД'[№ задачи] ), [статус индекс] ),
    FILTER (
        VALUES ( 'БД'[№ задачи] ),
        [статус индекс] = SELECTEDVALUE ( 'Статус'[id] )
    )
)
    / SELECTEDVALUE ( 'Статус'[id] )
VAR i_2 =
COUNTROWS ( FILTER ( VALUES ( 'БД'[№ задачи] ), [статус индекс] > 0 ) )
VAR result =
IF ( SELECTEDVALUE ( 'Статус'[id] ) = BLANK (), i_1, i_2 )
RETURN
result 

SELECT NON EMPTY {[Measures].[VL PL]} ON COLUMNS,

NON EMPTY
(
[Клиенты].[ID].ALLMEMBERS,
[Клиенты].[Имя Клиента].ALLMEMBERS
)
ON ROWS

FROM [PL]

WHERE ([Сценарии].[Сводный сценарий].&[True])

SELECT NON EMPTY {[Measures].[VL PL]} ON COLUMNS,

NON EMPTY
(
[Клиенты].[ID].ALLMEMBERS,
[Клиенты].[Имя Клиента].ALLMEMBERS,
[Календарь].[Дата].ALLMEMBERS
)
ON ROWS

FROM [PL]

WHERE ([Сценарии].[Сводный сценарий].&[True])

Мера = if(SUMX(
        KEEPFILTERS(VALUES('Лист1'[Месяц])), 
        CALCULATe(SUM('Лист1'[Сумма])))>500,
    SUMX(
            KEEPFILTERS(VALUES('Лист1'[Месяц])), 
            CALCULATE(SUM('Лист1'[Сумма]))),
    blank()
)

=ЕСЛИОШИБКА(-КУБЗНАЧЕНИЕ("BD";
"[Сценарии].[Сводный факт].[True]";
"[Договоры].[Номер договора].&["&$E5&"]";
"[Клиенты].[ИНН].&["&$R5&"]";
"[Measures].[BS]");"")

Sub test()
    Dim AppWord As Object
    Dim WordDoc As Object
        
    

    Cells(1, 1) = "Пример длинного текста в котором выделяется конкретное слово. Выделенных слов может быть несколько."
    Cells(1, 1).Characters(InStr(Cells(1, 1), "слово"), Len("слово")).Font.Color = vbRed
    Cells(1, 1).Characters(InStr(Cells(1, 1), "быть несколько"), Len("быть несколько")).Font.Color = vbRed
    
    Set AppWord = CreateObject("Word.Application")
    Set WordDoc = AppWord.documents.Add
    AppWord.Visible = True
    
    Set wtable = WordDoc.tables.Add(WordDoc.Range(Start:=0, End:=0), 1, 1)
    wtable.cell(1, 1) = Cells(1, 1)
    
End Sub

Private Sub UserForm_Initialize()
    Set oframe = Frame2.Controls.Add("Forms.Frame.1") 'создаёт фрейм в добавленном вторым фрейме, все ок
    Set oframe = Frame1.Controls.Add("Forms.Frame.1") '!!! ВЫЛЕТАЕТ БЕЗ СОХРАНЕНИЯ!!!
End Sub

Sub test()
    a = 1 / 10
    
    For i = 1 To 10
        b = b + a
    Next i
    
    If b = 1 Then
        Cells(1, 1) = 1
    End If
End Sub

Sub Primer()
    Cells(1, 1).Select
    ActiveSheet.Paste    
End Sub

SourceFolder = "Z:\Путь\1 участок\Раскрой"
Set fso = CreateObject("scripting.filesystemobject")
Set curfold = fso.GetFolder(SourceFolder)
Set oHttp = CreateObject("MSXML2.XMLHTTP")

For Each sfol_0 In curfold.SubFolders
For Each Files In oCurFolder.Files

oHttp.Open "GET", Files, False

SourceFolder = "\\agave\Logist\Путь\1 участок\Раскрой"

oHttp.Open "GET", Files, False выдает