=ВПР(D6;Справочник!$B$4:$C$14;2;ИСТИНА)

=СУММЕСЛИМН(ЗагрузкаЦехОперации!$G$6:$G$23; ЗагрузкаЦехОперации!$D$6:$D$23;РасчетЗадействРесурса!E4; ЗагрузкаЦехОперации!$E$6:$E$23;РасчетЗадействРесурса!F4)

YTD1 = CALCULATE(SUM('Таблица'[Сумма]);FILTER(ALL('Таблица');'Таблица'[Месяц]<=MAX('Таблица'[Месяц])))

Sub СохранитьСУникальнымИменем()
    Dim ИмяФайла As String
    ИмяФайла = "Путь\к\вашей\папке\" & Format(Now, "dd-mm-yyyy_hh-mm-ss") & ".docx"
    ActiveDocument.SaveAs ИмяФайла
End Sub

let
    pathValue = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content]{0}[Столбец2],
    url = "https://mpstats.io/api/wb/get/brand?d1=2023-06-13&d2=2023-06-13&path=" & pathValue,
    data = Web.Contents(url)
in
    data

Sub УдалениеСтрокПоУсловию2()
    Dim ra As Range, delra As Range, ТекстДляПоиска() As String
    Dim i As Integer, found As Boolean
    Application.ScreenUpdating = False    ' отключаем обновление экрана
  
    ТекстДляПоиска = Split("шт,цена", ",")    ' удаляем строки, которые не содержат эти тексты
  
    ' перебираем все строки в используемом диапазоне листа
    For Each ra In ActiveSheet.UsedRange.Rows
        found = False
        ' перебираем все искомые тексты
        For i = 0 To UBound(ТекстДляПоиска)
            ' если в строке найден искомый текст
            If Not ra.Find(ТекстДляПоиска(i), , xlValues, xlPart) Is Nothing Then
                found = True
                Exit For
            End If
        Next i
        ' если ни один из искомых текстов не найден в строке
        If Not found Then
            ' добавляем строку в диапазон для удаления
            If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    ' если подходящие строки найдены - удаляем их
    If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub

MaxSessionsPerDirection = 
VAR MaxSessions =
    CALCULATE (
        MAX ( 'Таблица'[Всего сессий] ),
        ALLSELECTED ( 'Таблица'[День месяца] )
    )
RETURN
    IF (
        MAX ( 'Таблица'[Всего сессий] ) = MaxSessions,
        MAX ( 'Таблица'[Всего сессий] ),
        BLANK ()
    )

 With Application.FileDialog(msoFileDialogFolderPicker)
       .Title = "Выберите папку или диск"
       .Show
       On Error Resume Next
       Err.Clear
       V = .SelectedItems(1)
       If Err.Number <> 0 Then
           MsgBox "Вы ничего не выбрали!"
           Exit Sub
       End If
   End With
   BrowseFolder = CStr(V)

 BrowseFolder ="\\sbc01\shares\Marketing\Trade Marketing\Фоотчеты LSM\2023\433"

Worksheets(1).ListObjects(1).Listrows.Count

= Table.SelectRows(#"Измененный тип", each Date.IsInNextMonth([Дата]) or Date.IsInCurrentMonth([Дата]) or [Дата] = Date.From(Date.AddMonths(Date.StartOfMonth(DateTime.LocalNow()), -11)))

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("[Measures].[Сумма по столбцу сумма]";$J$5;"[Диапазон].[месяц]";"[Диапазон].[месяц].&["&B22&"]")

Sub Kurs()
    Dim IE As Object
    Dim html As Object
    Dim t As String
    Dim holdings As Variant
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = 0
    IE.Navigate2 "https://ru.investing.com/currencies/eur-usd"


    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    Set html = IE.document
    Set holdings = html.getElementByID("last_last")
    t = holdings.textContent
    
    Range("A1").Value = CDec(t)
    Range("A1").NumberFormat = "General"

    IE.Quit
    Set IE = Nothing

End Sub

= Web.Page(Web.Contents("https://www.cbr.ru/hd_base/mosprime/?UniDbQuery.Posted=True&UniDbQuery.so=1&UniDbQuery.mode=1&UniDbQuery.From=31.07.2019&UniDbQuery.To=07.08.2021"))

= Web.Page(Web.Contents("http://www.cbr.ru/currency_base/dynamics/?UniDbQuery.Posted=True&UniDbQuery.mode=1&UniDbQuery.date_req1=&UniDbQuery.date_req2=&UniDbQuery.VAL_NM_RQ=R01235&UniDbQuery.From=23.07.2020&UniDbQuery.To=06.08.2021"))