проверить существующие макросы визуальных основ данных

Question

Привет, я изо всех сил пытаюсь проверить существующие данные с помощью макроса.

Моя таблица в Excel выглядит следующим образом: Ячейки (D2: D13) содержат запросы ввода, такие как имя, фамилия, адрес, номер телефона и т. Д. c. Ячейки (E2: E13) - это место, где соответствующие данные вводятся пользователем

Затем у меня есть таблица в ячейках (C17: O17) для базы данных для хранения ввода из ячеек (E2: E13)

Тогда у меня есть кнопка, назначенная макросу, но код не работает должным образом .

Часть моего кода, с которой я борюсь:

        If Cells(i, 3) = Range("E2") And Cells(i, 4) = Range("E3") Then
        Range("E4") = Cells(i, 5)
        Range("E5") = Cells(i, 6)
        Range("E6") = Cells(i, 7)
        Range("E7") = Cells(i, 8)
        Range("E8") = Cells(i, 9)
        Range("E9") = Cells(i, 10)
        Range("E10") = Cells(i, 11)
        Range("E11") = Cells(i, 12)
        Range("E12") = Cells(i, 13)
        Range("E13") = Cells(i, 14)
        Exit Sub
        End If
Next i
MsgBox "Record doesn't exist"
        

В первой строчке кода моя проблема. Если я просто ввожу первую часть:

If Cells(i, 3) = Range("E2")

, код работает, но когда я пытаюсь добавить вторую часть:

And Cells(i, 4) = Range("E5") Then

, код перестает работать и скорее пропускает обе части кода для выполнения:

Next i
MsgBox "Record doesn't exist"

Как заставить работать часть кода And Cells (i, 4) = Range ("E5")?

введите описание изображения здесь

Answer 1

Следуя шаблону в ваших ссылках, вам, вероятно, следует изменить Range("E5") на Range("E3") в вашем условии If, чтобы оно стало

If Cells(i, 3) = Range("E2") And Cells(i, 4) = Range("E3") Then

Боковое примечание Используя Transpose() функция рабочего листа ваш оператор If может быть упрощен до

If Cells(i, 3) = Range("E2") And Cells(i, 4) = Range("E3") Then
    Range("E4").Resize(10, 1) = WorksheetFunction.Transpose(Cells(i, 5).Resize(1, 10))
    Exit Sub
End If