Ik zit met het volgende probleem. Mijn zoekfunctie werkt als een trein. Hierbij kan ik zoeken naar 1 invul text (TexBox1.Value). Nu wil ik echter een twee constraint toevoegen, waarbij er een exacte match moet zijn (TextBox2.Value)
Ik heb gekeken naar .FindNext, maar ik krijg dit commando niet werkend. Hoe kan ik zorgen dat hij zoekt naar de combinatie TextBox1.Value en TextBox2.Value? Dus bijvoorbeeld waar de case Textbox 1 = 123123 en Texbox 2 = 41 is
Code:
Private Sub CommandButton1_Click()
Dim SearchString
SearchString = TextBox1.Value
With Sheets("Data").Range("B:B")
Set f = .Find(SearchString, MatchCase:=True, LookAt:=xlWhole, LookIn:=xlValues)
If Not f Is Nothing Then
If f.Offset(, 8) >= f.Offset(, 7) Then
f.Offset(, 9) = f.Offset(, 9).Value + 1
Else:
f.Offset(, 8) = f.Offset(, 8).Value + 1
f.Offset(, 10) = f.Offset(, 8).Value * f.Offset(, 6).Value
End If
Else:
MsgBox ("Er is geen lead gevonden met het betreffende Lead Nummer")
End If
End With
Ik heb gekeken naar .FindNext, maar ik krijg dit commando niet werkend. Hoe kan ik zorgen dat hij zoekt naar de combinatie TextBox1.Value en TextBox2.Value? Dus bijvoorbeeld waar de case Textbox 1 = 123123 en Texbox 2 = 41 is
Laatst bewerkt: