Private Sub CommandButton1_Click()
TextBox1.Value = Empty
ActiveCell.Offset(0, 10).Value = Me.TextBox1
ActiveCell.Offset(0, 10).Value = Empty
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1.Text = Format(ActiveCell.Offset(0, 10), "0.0")
End Sub

Private Sub TextBox1_Change()
ActiveCell.Range("A1").Offset(0, 0).Value = Val(Replace(Me.TextBox1, ",", "."))
ActiveCell.Range("A1").Offset(0, 0).NumberFormat = "0.0"
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1 = ActiveCell.Range("A1").Offset(0, 0)
End Sub

Private Sub TextBox1_Change()
ActiveCell.Range("A1").Offset(0, 10).Value = Val(Replace(Me.TextBox1, ",", "."))
ActiveCell.Range("A1").Offset(0, 10).NumberFormat = "0.0"
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1 = ActiveCell.Range("A1").Offset(0, 10)
End Sub

Option Explicit

Private Function sInitialFileName_IL_PR() As String
    sInitialFileName_IL_PR = ThisWorkbook.Sheets("Настройки").Range("AA5").Value
    If Right(sInitialFileName_IL_PR, 1) <> "\" Then sInitialFileName_IL_PR = sInitialFileName_IL_PR & "\"
End Function

Sub Обновить_Информация_ИЛ()
Dim wb As Workbook, c As Range, arrWB(), w
    arrWB = ShowFileDialog_IL_PR()
    With Application
       .EnableEvents = False
       .Calculation = xlCalculationManual
       .ScreenUpdating = False
       .Visible = False
            
            For Each w In arrWB
    
            Set wb = Workbooks.Open(w)  ' Этот метод копирует данные в книги находящиеся по пути с главной
            ThisWorkbook.Worksheets("Информация_ИЛ").Cells.Copy 'копируем все данные с активного листа
            'вставляем только значения и форматы
            wb.Worksheets("Информация_ИЛ").Cells(1, 1).PasteSpecial xlPasteValues
            wb.Worksheets("Информация_ИЛ").Cells(1, 1).PasteSpecial xlPasteFormats
            Application.CutCopyMode = False
            wb.Close (True)
        Next w
            
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
        .Visible = True
    End With
    'MsgBox "Готово"
End Sub

Private Sub DeleteNames_IL_PR(wb As Workbook) ' метод копирует формулы без диспетчера имён
    On Error Resume Next
    Dim nn As Name
    For Each nn In wb.Names
        nn.Delete
    Next
    On Error GoTo 0
End Sub
  
Private Function ShowFileDialog_IL_PR() As Variant
    Dim arr As Variant
    Dim sName As String
    sName = Dir(sInitialFileName_IL_PR & "*.xl*")
    Do
        If sName = "" Then Exit Do
        If Left(sName, 2) <> "~$" Then
            If sName <> ThisWorkbook.Name Then
                If IsEmpty(arr) Then
                    ReDim arr(1 To 1)
                Else
                    ReDim Preserve arr(1 To UBound(arr) + 1)
                End If
                arr(UBound(arr)) = sInitialFileName_IL_PR & sName
            End If
        End If
        sName = Dir
        DoEvents
    Loop
    ShowFileDialog_IL_PR = arr
End Function

         Set wb = Workbooks.Open(iCl.Value)
            ThisWorkbook.Worksheets("Настройки").Cells.Copy wb.Worksheets("Настройки").Cells 'копируем все данные с активного листа
            For Each c In wb.Worksheets("Настройки").Cells.SpecialCells(xlCellTypeFormulas, 23)
                c.FormulaLocal = Replace(c.FormulaLocal, "[" & ThisWorkbook.Name & "]", "")
                c.Value = c.Value
            Next c
            wb.Close (True)
        Next

         Set wb = Workbooks.Open(iCl.Value)
            ThisWorkbook.Worksheets("Настройки").Cells.Copy wb.Worksheets("Настройки").Cells 'копируем все данные с активного листа
             wb.Worksheets("Средства измерений").UsedRange.Value = wb.Worksheets("Средства измерений").UsedRange.Value
            wb.Close (True)
        Next

Sub delForm
ActiveWorkbook.VBProject.VBComponents("UserForm1").Collection.Remove ActiveWorkbook.VBProject.VBComponents("UserForm1")
End Sub