Итак, я пытался сделать пользовательскую форму в качестве инструмента поиска, как вы можете видеть ниже: Пользовательская форма
И до сих пор мой код полностью функционирует и может выбирать диапазон желательно, но вот сделка, которую я хочу заключить, что вставленное значение текстового поля не зависит от идеальной вставки копии предопределенного списка значений, который я поместил на стороне кнопки активации. И я действительно не знаю, как вставить в этот код приблизительный поиск, если вы, ребята, могли бы помочь, я бы оценил его. Вот что я сделал до сих пор. Я могу гарантировать, что активированные листы являются правильными. К несчастью для информационной безопасности, я не могу показать вам, ребята, информацию в базовой таблице.
Private Sub cbuSearch_Click()
Dim SearchPlace As Range
Dim TBOCell As Variant
Dim TBOstring As String
Planilha1.Activate
'Tbo suppliers is the textbox which the information gonna be inserted
TBOstring = tboSuppliers.Value
'This Sheet was selected bcs that is where the informatio lays
PlanilhaBase.Activate
If OPBPpm.Value = True Then
Set SearchPlace = Range("A1:AI31", "A33:T46")
Set TBOCell = SearchPlace.Find(what:=TBOstring)
If TBOCell Is Nothing Then
MsgBox "This suppplier wasnt found"
Else:
TBOCell.Select
GoTo ErrorStatement
End If
ElseIf OPBCategory.Value = True Then
Set SearchPlace = Range("AE33:BM46", "AJ1:BR31")
Set TBOCell = SearchPlace.Find(what:=TBOstring)
If TBOCell Is Nothing Then
MsgBox "This suppplier wasnt found"
Else:
TBOCell.Select
GoTo ErrorStatement
End If
ElseIf OPBparts.Value = True Then
Set SearchPlace = Range("BS1:CZ46")
Set TBOCell = SearchPlace.Find(what:=TBOstring)
If TBOCell Is Nothing Then
MsgBox "This suppplier wasnt found"
Else:
TBOCell.Select
GoTo ErrorStatement
End If
Else
MsgBox "Please select a factor"
Planilha1.Activate
End If
ErrorStatement:
Unload Me
End Sub