Option Explicit

Private Sub ComboBox1_Change()
ComboBox1.RowSource = "Мастера!a1:a20"
End Sub

Private Sub CommandButton1_Click()
Dim iLastRow As Long
Dim iFoundRng As Range
Dim iBazaSht As Worksheet
Dim iResponse As Byte
    If Me.TextBox1 = "" Then
        MsgBox "Введите информацию в поле 1", vbExclamation, "Ошибка"
        Exit Sub
    End If
    Set iBazaSht = ThisWorkbook.Sheets("База") 'имя листа, куда будем вносить информацию
        Set iFoundRng = iBazaSht.Columns(2).Find(what:=Me.TextBox1.Text, LookAt:=xlWhole) 'ячейка целиком
        'если такая запись уже есть
        If Not iFoundRng Is Nothing Then
            iResponse = MsgBox("Такая запись уже существует. Заменить её?" & vbCr & "Да - заменить старую, Нет - добавить в базу", vbYesNoCancel + vbExclamation, "Внимание!")
            If iResponse = vbYes Then
                With Sheets(iBazaSht.Name)
                    .Cells(iFoundRng.Row, 2) = Me.TextBox1
                    .Cells(iFoundRng.Row, 3) = Me.TextBox2
                    .Cells(iFoundRng.Row, 4) = Me.TextBox3
                    .Cells(iFoundRng.Row, 5) = Me.TextBox4
                    .Cells(iFoundRng.Row, 6) = Me.TextBox5
                    .Cells(iFoundRng.Row, 7) = Me.TextBox6
                    .Cells(iFoundRng.Row, 8) = Me.TextBox7
                    .Cells(iFoundRng.Row, 9) = Me.ComboBox1
                    Me.TextBox1 = ""
                    Me.TextBox2 = ""
                    Me.TextBox3 = ""
                    Me.TextBox4 = ""
                    Me.TextBox5 = ""
                    Me.TextBox6 = ""
                    Me.TextBox7 = ""
                
                End With
                MsgBox "Информация в базе обновлена!", vbInformation, "База"
                Exit Sub
            End If
            If iResponse = vbCancel Then Exit Sub
        End If
    With Sheets(iBazaSht.Name)
        iLastRow = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
        .Cells(iLastRow, 2) = Me.TextBox1
        .Cells(iLastRow, 3) = Me.TextBox2
        .Cells(iLastRow, 4) = Me.TextBox3
        .Cells(iLastRow, 5) = Me.TextBox4
        .Cells(iLastRow, 6) = Me.TextBox5
        .Cells(iLastRow, 7) = Me.TextBox6
        .Cells(iLastRow, 8) = Me.TextBox7
        .Cells(iLastRow, 9) = Me.ComboBox1
    End With
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Me.TextBox3 = ""
    Me.TextBox4 = ""
    Me.TextBox5 = ""
    Me.TextBox6 = ""
    Me.TextBox7 = ""
    MsgBox "Информация добавлена в базу!", vbInformation, "База"
End Sub

Private Sub CommandButton2_Click()
    End
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Мастера!a1:a20"
End Sub