Я хочу, чтобы моя пользовательская форма проверила, существует ли имя человека внутри диапазона электронной таблицы.
Private Sub FirstName_Field_Change()
Dim ct As Workbook
Set ct = ThisWorkbook.Sheets("Candidate Tracker")
Dim i As Integer
Set i = WorksheetFunction.CountIf(ct.Range("G7:G2000"), LastName_Field.Value & ", " & FirstName_Field.Value & ",")
If FirstName_Field.Value = "" Then
Else
counta.Caption = i
End If
End Sub
Точки отладки на Private Sub FirstName_Field_change()
У меня есть рабочая форма пользователя userform. Он записывает данные, введенные в электронную таблицу. Я хочу, чтобы пользовательская форма изменила метку, которую я поместил на листе, на COUNTIF, когда она обнаружит, что в базе данных уже есть имя, подобное фамилии и имени.
Label6 будет счетчиком количества подобных записей.