De nuevo Ayuda con macro

Yigdrasil2023 · el 8 de mayo

Buenos días a todos compañeros!!!

Tengo un problemilla y no veo el error.

Os cuento. Tengo la base de datos para poner las notas de clase de una compañera profesora.

Guarda bien los datos.

Pero cuando doy a la "lupa" para buscar alumnos me busca el primero, pero si guardo o limpio y vuelvo a dar a la lupa, entra en bucle y va mostrando lo que quiere.

El depurador no muestra fallos...pero evidentemente algo no está bien...y no lo veo.

He probado a rehacer...poner msgbox para ver y nada...siguen en bucle...

A ver si los maestros pueden iluminar el camino de este aprendiz!!!

Gracias de antemano!!

Pd: y si me explicáis el error para no cagarla de nuevo también os lo agradezco.

Notas v 1.0 - copia.xlsm

Antoni · el 8 de mayo

Sustituye tu procedimiento:

Private Sub TextBox1_Change()
Dim Contraseña As String
With Hoja3
   ListBox1.Clear
   For x = 3 To .Range("A" & Rows.Count).End(xlUp).Row
      datos = UCase(.Range("A" & x) & .Range("B" & x))
      If UCase(datos) Like "*" & UCase(TextBox1) & "*" Or TextBox1 = "" Then
         ListBox1.AddItem
         ListBox1.List(ListBox1.ListCount - 1, 0) = .Range("A" & x)
         ListBox1.List(ListBox1.ListCount - 1, 1) = .Range("B" & x)
         ListBox1.List(ListBox1.ListCount - 1, 2) = .Range("C" & x)
         ListBox1.List(ListBox1.ListCount - 1, 3) = x
      End If
   Next
End With
End Sub