Внесение данных в базу и поиск повторяющихся значений

[Aleksandrsas]

Добрый день уважаемые специалисты!!!
Прошу Вашей помощи в решении задачи:
На лист вносятся данные через форму. Всего 7 полей.
Необходимо чтобы данные которые вносятся в столбцы 3,4,5,6,7 сравнивались, и если нет задвоений вносились в базу. Если есть повторы то данные не вносятся и выскакивает сообщение что такие значения уже есть.

[Oldy7]

Как-то так. Проверяются только введенные значения в текстбоксы.

Private Sub CommandButton1_Click()
Dim iLastRow As Long, DC As Object, a%, b%, txt$
    iLastRow = Cells(Rows.Count, 4).End(xlUp).Row + 1
    Set DC = CreateObject("Scripting.Dictionary"): a = 0
    For b = 1 To 7
      txt = Me.Controls("TextBox" & b).Value
      If Not DC.exists(txt) Then
        DC.Add txt, 0
      Else: MsgBox "Такое значение уже было!": a = a + 1
      End If
    Next
    If a > 0 Then Exit Sub
    For b = 1 To 7
      Cells(iLastRow, b + 1) = txt: Me.Controls("TextBox" & b).Value = ""
    Next
    MsgBox "Информация добавлена!", vbInformation, "База"
End Sub