Я получаю сообщение об ошибке «Требуется объект», и она выделяет мою переменную HSE
Я использовал эту формулу ранее, чтобы обеспечить проверку данных для поля ввода, чтобы убедиться, что введена правильная запись (для базы данныхоколо 40000 PN), но по какой-то причине код дает мне грубое время, это обойдется
Dim HSE As String
Dim Eff As Workbook
Eff = "---Filepath----"
Dim lay As Worksheet
Set lay = Eff.Sheets("Layline")
With lay.range("C:C")
Set HSE = .Find(txt_hose, LookIn:=xlValues)
If HSE Is Nothing Then
MsgBox "Invalid Hose Material Value"
txt_hose.SetFocus
Exit Sub
End If
End With
Должно принять значение текстового поля ("txt_hose") и провести поиск в столбце Cи все, что он проверяет, - это то, что в столбце есть запись, соответствующая этому значению, и если нет, то он выдает сообщение об ошибке и завершает подпрограмму.Когда я запускаю его, он говорит «Требуется объект» и выделяет HSE после If