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?

 

[Fluff]

What is the error & what line is highlighted?

 

[Akw47]

What is the error & what line is highlighted?

the first line, but they did not give me a error reading

 

[Akw47]

the first line, but they did not give me a error reading

oh and they say for without next. as a compile error

 

[Fluff]

In that case you need to add a Next at the end of the loop.

 

[Akw47]

In that case you need to add a Next at the end of the loop.

Okay have added, however now they give me a run time error on

lastrow = Worksheets("sheet1").Cells(rows.Count, 5).End(x1Up).Row

 

[Fluff]

It should be xlUp (lower case L) not x1Up (number one)

 

[Akw47]

It should be xlUp (lower case L) not x1Up (number one)

okay nice catch :0 but now i changed my code to this

Private Sub TextBox1_AfterUpdate()

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

For i = 2 To lastrow

If Worksheets("sheet1").Cells(i, 1).Value = rx Or (InStr(Me.TextBox1.Value, "/") > 0 Or InStr(Me.TextBox1.Value, ",") > 0) Then
m = MsgBox("Please confirm", vbYesNo, "Double Check")

    End If
 Next
End Sub

is it possible to help me stop from getting an endless loop?

 

[Fluff]

That's not an endless loop, it will stop when it gets to the last used cell in col E

 

[Akw47]

That's not an endless loop, it will stop when it gets to the last used cell in col E

oh but the msgbox keep popping out when there is only 2 cell with "/" in it