¿Por qué no me deja hacer una búsqueda en mi textbox con mas de 5 caracteres en mi macro de excel?

hola buen dia,
espero y pueda ayudarme con un problema bueno estés es el problema tengo este código en un commandbutton en mi macro de excel:

On Error GoTo Errores
If Me.TextBox13.Value = "" Then Exit Sub
Me.ListBox1.Clear
j = 1
For i = 2 To 1000
If Cells(i, j).Offset(0, 2).Value = CInt(Me.TextBox13.Value) Then
Me.ListBox1.AddItem Cells(i, j)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)
Else
End If
Next i
Exit Sub
Errores:
MsgBox "No se encuentra.", vbExclamation, "EXCELeINFO"
si sirve el código, cuando tecleo en mi textbox13 el numero a buscar en la hoja de excel
,busca el número menores a 5 caracteres en excel pero yo quiero que también busque números mayores a 5 como por ejemplo 1234567890 y no hace la búsqueda es mas cuando tecleo este numero 1234567890 me manda el mensaje MsgBox "No se encuentra.", vbExclamation, "EXCELeINFO" y no entiendo por que.

1 respuesta

Respuesta
1

Cambia esta línea

If Cells(i, j).Offset(0, 2).Value = CInt(Me.TextBox13.Value) Then

Por esta

If Cells(i, j).Offset(0, 2).Value = Val(Me.TextBox13.Value) Then

El problema está en esta función CInt, no puede leer más de 5 enteros, con la función Val, no vas a tener problemas.

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas