Search box with key to find next value

[pablik01]

Hello, I was looking for various solutions on the Internet, but I didn't find anything that could help me. So here's the code:

Private Sub TextBox1_Change()
Dim foundRng As Range


Set haslo = TextBox1
Set foundRng = Range("D3:D19").Find(haslo)

If foundRng Is Nothing Then
Exit Sub

Else
Application.Goto Reference:=foundRng
End If
End Sub

it's a mini search engine, or that's how it's supposed to work. In the current form, the entered value is searched for, but the problem appears, when there are more such values because the search stops at the first value found - is it possible to code this field so that after pressing the enter key, it goes to the next cell with the entered text? I have been working with VBA for 3 weeks and it is beyond my abilities

 

[My Aswer Is This]

So we want to search the range"D3:D19"
And what do you want to do when the value is found.
For your script looks like it wants to goto the range.
But if found more then once do what.

 

[My Aswer Is This]

I do not see how a Textbox change event can be used.
If I want to search for "Alpha" the second I enter "A" into the textbox the script runs.

Here is a script use with a Command Button and a Textbox.

Private Sub CommandButton1_Click()
'Modified  3/19/2021  4:40:33 AM  EDT
Dim r As Range
Dim x As Long
x = 0
For Each r In Range("D3:D19")
    If r.Value = TextBox1.Value Then
        r.Offset(, 1).Value = "Found Here"
        x = x + 1
    End If
Next

If x = 0 Then MsgBox TextBox1.Value & vbNewLine & "Not found"

End Sub