---

Private Sub OptionButton1_Click()
    ListBox1.RowSource = "Процессор!A1:A3"
End Sub

Private Sub OptionButton2_Click()
    ListBox1.RowSource = "Винчестер!A1:A3"
End Sub

Private Sub OptionButton3_Click()
    ListBox1.RowSource = "Монитор!A1:A2"
End Sub

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex = -1 Then
        MsgBox "Сначала выберите товар из списка"
        Exit Sub
    End If
    
    Dim активныйЛист As String
    
    If OptionButton1.Value = True Then
        активныйЛист = "Процессор"
    ElseIf OptionButton2.Value = True Then
        активныйЛист = "Винчестер"
    ElseIf OptionButton3.Value = True Then
        активныйЛист = "Монитор"
    Else
        MsgBox "Выберите категорию товара"
        Exit Sub
    End If
    
    Dim товар As String
    товар = ListBox1.Value
    
    Dim найденнаяЯчейка As Range
    
    On Error Resume Next
    Set найденнаяЯчейка = Sheets(активныйЛист).Range("A:A").Find(товар, LookIn:=xlValues, LookAt:=xlWhole)
    On Error GoTo 0
    
    If Not найденнаяЯчейка Is Nothing Then
        TextBox1.Value = найденнаяЯчейка.Offset(0, 1).Value
        TextBox2.Value = найденнаяЯчейка.Offset(0, 2).Value & " руб."
    Else
        MsgBox "Товар не найден"
        TextBox1.Value = ""
        TextBox2.Value = ""
    End If
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Value = ""
    TextBox2.Value = ""
End Sub