Sub open_book()

Dim test_nmbr As String

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

    Workbooks.Open Filename:= _
        "https://sharepoint.itms.ru/DocLib3/Номера%20тестов.xlsm?d=wdac482a1cde9486f921f68de80bdaa41"
       
    ActiveWorkbook.LockServerFile
        PosStr = Cells(1, 1).CurrentRegion.Rows.Count
        Cells(PosStr + 1, 1).Activate
        ActiveCell.FormulaR1C1 = "=""t_""&RIGHT(YEAR(TODAY()),2)&""_""&RIGHT(((TRIM(MID(SUBSTITUTE(RC[-1],""_"",REPT("" "",50)),50,50))&RIGHT(R[-1]C,LEN(R[-1]C)-FIND(""_"",R[-1]C,4)))*1),4)+1"
        ActiveCell.Value = ActiveCell.Value
        test_nmbr = ActiveCell.Value
        ActiveWorkbook.Close SaveChanges:=True
    
    With ThisWorkbook
        ActiveCell.Value = test_nmbr
    End With
    
 Application.ScreenUpdating = True
 Application.DisplayAlerts = True
 Application.Calculation = xlCalculationAutomatic
 
End Sub

Sub Comment_Text()
On Error Resume Next
For Each R In ActiveSheet.UsedRange
    'R.Value = R.Value & R.Comment.Text  'добавляет примечания к данным ячейки
    'R.Value = R.Comment.Text  'меняет данные ячейки на текст примечания
    R.Value = R.CommentThreaded.Text
Next
Cells.ClearComments
End Sub

Me.ComboBox2.AddItem .Cells(i, 3)

If dropout_p <> 0 Then
    t_dropout = Application.WorksheetFunction.VLookup(Line, Sheets("Target").Range("A:B"), 2, 0)
    Else:
    t_dropout = ""
End If

Sub Данные_из_WMS_Waste()
Application.ScreenUpdating = False 'отключаем обновление экрана (отображение изменений)
Application.Calculation = xlCalculationManual 'отключаем автоматический пересчет формул
Application.AskToUpdateLinks = False 'отключаем предупреждения на обновление данных
Application.DisplayAlerts = False 'отключаем сообщения об ошибках
Call Удалить_старые_данные
'Шаг 1: Определяем переменную.
Dim FName As Variant
Dim bookconst As Workbook
Dim abook As Workbook
Set abook = ActiveWorkbook
'Шаг 2: Метод GetOpenFilename активизирует диалоговое окно.
FName = Application.GetOpenFilename
'a – определяем тип файла
FileFilter = "Excel Workbooks,*.xl*"
'b – заголовок окна
Title = "Выбери файл, который надо открыть"
'c – множественный выбор
MultiSelect = False
'Шаг 3: Если был выбран файл, открыть его!
If FName <> False Then
Workbooks.Open Filename:=FName
'Обозначаем переменную rng как диапазон
Dim rng As Range
'если нет автофильтра, то ставим его
With Worksheets("WOTHP")
        If .AutoFilterMode = False Then .Range("A1:P1").AutoFilter
'применяем автофильтер
         Worksheets("WOTHP").Range("$A$1:$P$1000").AutoFilter Field:=3, Criteria1:="CAP"
'копируем видимый диапазон
Set rng = Worksheets("WOTHP").Range("A2:N1000").SpecialCells(xlCellTypeVisible)
'вставляем скопированный диапазон
ThisWorkbook.Activate
If Err = 0 Then
        rng.Copy
        Worksheets("CAP_из_WMS").Cells(3, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End If
End With
End If
Application.Calculation = xlCalculationAutomatic 'включаем автоматический пересчет формул
Application.ScreenUpdating = True 'включаем обновление экрана (отображенеие изменений)
Application.AskToUpdateLinks = True 'включаем предупреждения на обновление данных
Application.DisplayAlerts = True 'включаем сообщения об ошибках
End Sub