Check VBA code to locate value in cell

[Akw47]

Hello this is the current code I have

Private Sub TextBox1_AfterUpdate()

Dim m As String
Dim rx As String
rx = Trim(TextBox1.Text)
lastrow = Worksheets("sheet1").Cells(rows.Count, 5).End(x1Up).Row

For i = 2 To lastrow
If Worksheets("sheet1").Cells(i, 1).Value = rx Then
TextBox2.Text = Worksheets("sheet1").Cells(i, 2).Value

If rx = (InStr(Me.TextBox1.Value, "/") > 0 Or InStr(Me.TextBox1.Value, ",") > 0) Then
m = MsgBox("Please confirm", vbYesNo, "Double Check")
        End If
    End If
End Sub

I want it such that if there is a "/" or "," along with the found value. A message box should pop out. Currently, there seems to be a error. Could you help me edit it?

 

[Akw47]

More like

Private Sub TextBox1_AfterUpdate()


Dim m As String
Dim rx As String
rx = Trim(TextBox1.Text)
LastRow = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
   If InStr(Me.TextBox1.Value, "/") > 0 Or InStr(Me.TextBox1.Value, ",") > 0 Then
      If MsgBox("Please confirm", vbYesNo, "Double Check") = vbNo Then Exit Sub
   End If
     
For i = 2 To LastRow

If Worksheets("sheet1").Cells(i, 5).Value = rx Then
m = MsgBox("Please confirm", vbYesNo, "Double Check")

    End If
Next
End Sub

but now the msg box don't pop up after the number match from typing in the textbox

 

[Fluff]

Did you press yes or no on the 1st message box?

 

[Akw47]

Did you press yes or no on the 1st message box?

i dont see the message box now though. after typing the number in the column in

 

[Fluff]

What is in the textbox?

 

[Akw47]

What is in the textbox?

My column I have 12345 / written. Then i write 12345 in the box, and no msg box pops out

 

[Fluff]

Will the textbox always contain a number?

 

[Akw47]

Will the textbox always contain a number?

yep

 

[Fluff]

In that case use

rx = Val(Trim(TextBox1.Text))

 

[Akw47]

still no msg box pop out. interesting

In that case use

rx = Val(Trim(TextBox1.Text))

 

[Fluff]

Did you put 12345 in col A before the last row of data in col E?