Private Sub CommandButtonPdf_Click()
Dim i, j, x1, x2
Dim PathDbf$, filename$, ActSh$
PathDbf = GetFolderPath("Выберите папку для сохранения файлов", ThisWorkbook.path) 

' Задаем имя папки
If PathDbf = "" Then Exit Sub

' Выходим, если имя листа не выбрано из активного листа
ActSh = ActiveSheet.Name

j = 0
With Me.ListBoxSpec
For i = 0 To .ListCount - 1
    If .Selected(i) = True Then
    'MsgBox .List(i)
    Range(nNomerLinii) = .List(i)
    'filename = PathDbf & Format(i, "0") & ". " & ActSh & " - " & .List(i)
    filename = PathDbf & ActSh & " - " & .List(i)
    With Sheets(ActSh)
    .Range(.PageSetup.PrintArea).ExportAsFixedFormat Type:=xlTypePDF, filename:=filename & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
    j = j + 1
End If
Next
MsgBox "Создано " & j & " файлов pdf", , "ГОТОВО!"
End With
End Sub

Private Sub CommandButtonExcel_Click()
Dim i, j, x1, x2
Dim PathDbf$, filename$, ActSh$
PathDbf = GetFolderPath("Выберите папку для сохранения файлов", ThisWorkbook.path) 

' Задаем имя папки
If PathDbf = "" Then Exit Sub

' Выходим, если имя листа не выбрано из активного листа
ActSh = ActiveSheet.Name

j = 0
With Me.ListBoxSpec
For i = 0 To .ListCount - 1
    If .Selected(i) = True Then
    'MsgBox .List(i)
    Range(nNomerLinii) = .List(i)
    'filename = PathDbf & Format(i, "0") & ". " & ActSh & " - " & .List(i)
    filename = PathDbf & ActSh & " - " & .List(i)
    With Sheets(ActSh)
    .Range(.PageSetup.PrintArea).ExportAsFixedFormat Type:=xlTypeXLSX, filename:=filename & ".xlsx", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
    j = j + 1
End If
Next
MsgBox "Создано " & j & " файлов Excel", , "ГОТОВО!"
End With
End Sub

=ЕСЛИОШИБКА(@ИНДЕКС(Главная[на отметке];_Главная);"")

=ЕСЛИОШИБКА(СЦЕПИТЬ(ТИП!J3;" ";_Отметка);"")

=ЕСЛИОШИБКА(СЦЕПИТЬ(ТИП!I7;" ";_Отметка;" ";_КолЛистОпоры);"")

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Integer
    Application.ScreenUpdating = False
  For i = 2 To Worksheet
    Cells(i, 4).Value = Cells(i, 3) & " " & Cells(i, 5)
  Next i
Application.ScreenUpdating = False
End Sub

Private Sub Label1_Click()

End Sub

Private Sub ListBoxSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Master.TB_Code.Text = Me.ListBoxsearch.Column(0)
Master.NaimenovanieMateryal.Text = Me.ListBoxsearch.Column(1)
Master.NaimenovanieMateryal.SetFocus
Unload Me
End Sub
Private Sub ListBoxsearch_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Master.TB_Code.Text = Me.ListBoxsearch.Column(0)
Master.NaimenovanieMateryal.Text = Me.ListBoxsearch.Column(1)
Master.NaimenovanieMateryal.SetFocus
Unload Me
End Sub
Private Sub TextBoxSearchc_Change()
'Me.TextBoxSearchc.Text = StrConv(Me.TextBoxSearchc.Text, vbProperCase)
Dim i As Long
Me.ListBoxsearch.Clear
For i = 3 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
B = Len(Me.TextBoxSearchc.Text)
If Left(Sheet1.Cells(i, 4).Value, B) = Left(Me.TextBoxSearchc.Text, B) Then
Me.ListBoxsearch.AddItem Sheet1.Cells(i, 1).Value
Me.ListBoxsearch.List(ListBoxsearch.ListCount - 1, 0) = Sheet1.Cells(i, 1).Value
Me.ListBoxsearch.List(ListBoxsearch.ListCount - 1, 1) = Sheet1.Cells(i, 4).Value
Me.ListBoxsearch.List(ListBoxsearch.ListCount - 1, 2) = Sheet1.Cells(i, 11).Value 'тест
End If
Next i
End Sub
Private Sub UserForm_Initialize()
Me.TextBoxSearchc.Text = "1"
Me.TextBoxSearchc.Text = ""
End Sub