Sub Get_Value_From_Closed_Book()
    Dim sShName As String, sAddress As String, vData() As Variant, D$, Sch$, i&, j&
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\bel\Documents\1.xlsx"
    sAddress = "A1:P58"
    vData = Sheets("12").Range(sAddress).Value
    ActiveWorkbook.Close False
    D = InputBox("Размер в дюймах, дробная часть через запятую")
    Sch = InputBox("Стандарт без 'Sch'")
     
    For i = 3 To UBound(vData, 1)
        If vData(i, 1) = D Then
            Exit For
        End If
        If i = UBound(vData, 1) Then Exit Sub
    Next i
    ActiveCell.Value = vData(i - 1, 2)
    For j = 3 To UBound(vData, 2)
        If vData(1, j) = Sch Then
            Exit For
        End If
        If j = UBound(vData, 2) Then Exit Sub
    Next j
     
    ActiveCell.Offset(, 1).Value = vData(i - 1, j)
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub