М тип ИС := 
VAR rem = CALCULATE(COUNT('Запрос1'[Тип ИС&]),'Запрос1'[Тип ИС&]="Remedy")
VAR proh = CALCULATE(COUNT('Запрос1'[Тип ИС&]),'Запрос1'[Тип ИС&]="Прочие ИС")
RETURN
DATATABLE(
"Remedy",INTEGER,
"Прочее",INTEGER,
{
{rem,proh}
}
)

Мера = COUNTAX('tnps','tnps'[tNPS ЕИ]="промоутер")

В среднем  время выполнения нарядов = AVERAGEX(
    KEEPFILTERS(VALUES('Назначенные наряды'[Дата создания])),
    CALCULATE(COUNTA('Назначенные наряды'[Среднее время выполнения нарядов]))

Мера = SUM(Vid[КПЭ])*100/COUNT(Vid[КПЭ])

Dim spisok As Variant
  Sub proverka()
  spisok = Array(??)
  Debing.Print spisok
End Sub

Sub udalenie()
    ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
    k = ActiveCell.Row 
    Cells(1, 1).Select 
    Response = MsgBox("удалить?", vbYesNo)
    If Response = vbYes Then
        s = 2
        For a = 2 To k
            Cells(s, 1).Select
            Select Case Cells(s, 9)
                Case "ооо пупкин":
                             s = s + 1
                Case "ЧП дерево":
                     s = s + 1
                Case "Т2":
                       s = s + 1
                Case "ФГУП мамба":    
                Case Else
                    Rows(s & ":" & s).Select
                    Selection.Delete Shift:=xlUp
            End Select
        Next a
    End If    
End Sub

If InStr(Range("F2" ).Value, PL_BS, vbUseCompareOption) Then            
     funcsiya
End If

texti = CStr(Range("F2" ).Value)
texti1 = CStr(PL_BS)
If InStr(texti, texti1, vbUseCompareOption) Then    
    funcsiya
End If

Set oWbk = Workbooks.Open(Путьккниге$)
'--------
oWbk.Close 

Sub Send_Mail()
    Dim objOutlookApp As Object, objMail As Object
    Application.ScreenUpdating = False
    On Error Resume Next
    'пробуем подключиться к Outlook, если он уже открыт
    Set objOutlookApp = GetObject(, "Outlook.Application")
    Err.Clear 'Outlook закрыт, очищаем ошибку
    If objOutlookApp Is Nothing Then
        Set objOutlookApp = CreateObject("Outlook.Application")
    End If
    objOutlookApp.Session.Logon
    
    'если не получилось создать приложение или экземпляр сообщения - выходим
    If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
'цикл от второй строки(начало данных с адресами) до последней ячейки таблицы
Text_soobheniya = "Добрый день! "
For lr = 2 To 3 'Cells(Rows.Count, 1).End(xlUp).Row ' до конца строк
        'создаем сообщение
        Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
        With objMail
            .To = Cells(lr, 36) 'адрес получателя
            .CC = Cells(lr, 39) 'адрес для копии
            .BCC = "" 'адрес для скрытой копии
            .Subject = "Уведомление" 'тема сообщения
            .Body = Text_soobheniya 'текст сообщения
            '.HTMLBody = sBody 'если необходим форматированные текст сообщения(различные шрифты, цвет шрифта и т.п.)
            .Attachments.Add = "\\msk.ru\MSK\User\Folders\00\01\yypikin1\Downloads\ff.txt"   
            .Add ThisWorkbook.FullName    ' прикрепляем файл
            '.Attachments.Add sAttachment 'чтобы отправить активную книгу вместо sAttachment указать ActiveWorkbook.FullName
            .Send 'Display, если необходимо просмотреть сообщение, а не отправлять без просмотра
        End With
  Next lr
    Set objOutlookApp = Nothing: Set objMail = Nothing
    Application.ScreenUpdating = True
End Sub

Sub kn_svod()
ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
End Sub

Sub Moskva()
Dim Massiv_lista As Variant
Dim tek_summa As Variant
Dim tek_dogovor As Variant
Dim mesyac(1 To 6) As Variant

    Set Range_Lista = Worksheets("Лист1").UsedRange
    Massiv_lista = Range_Lista.Value
    kol_strok_Lista = UBound(Massiv_lista, 1) 
    kol_stolbov_Lista = UBound(Massiv_lista, 2) 
    Cells(1, 5) = "Договор"
    tek_dogovor = Cells(2, 1)
    Cells(2, 5) = tek_dogovor
    tek_summa = Cells(2, 2)
    For s = 2 To 7
        mesyac(s - 1) = Right(Left(Massiv_lista(s, 3), 10), 7)
        Cells(1, s + 4) = mesyac(s - 1) 'массив месяцев
    Next s
    shag = 3
    'цикл перебора массива
    For d = 2 To kol_strok_Lista
        If tek_dogovor = Massiv_lista(d, 1) Then
            If tek_summa = Massiv_lista(d, 2) Then
                For aa = 1 To 6
                    tek_mesyac = Right(Left(Massiv_lista(d, 3), 10), 7)
                        If tek_mesyac = mesyac(aa) Then
                            Cells(2, aa + 5) = 1
                        End If
                Next aa
            End If
        Else
            tek_dogovor = Massiv_lista(d, 1)
            Cells(shag, 5) = tek_dogovor
            tek_summa = Massiv_lista(d, 2)
            shag = shag + 1
        End If
    Next d
  
End Sub