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

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

 

Sigue pasando lo mismo....?

Después de dar a Guardar cambios y despues de Limpiar datos.

Es que no veo el fallo...entra en bucle y se jo....

He realizado algunos cambios en las macros. Prueba a ver que tal.

Notas v 1.0 - copia.xlsm

Antoni....te vas a reir...

En cuanto lo meto al ordenador...vuelve a pasar lo mismo!!!!!!!!

 

Hay veces que va bien...y veces q entra en bucle y nada...

 

Estoy ralladisimo!!!!!!!

 

Es excel 2013...¿será por esta version?

 

Porque me voy a volver majara....

 

Vale....en mi ordenador con excel 2016 va perfecto...

Esto es para volverse majara eh?

Me imagino que es por la versión....¿alguna idea?

Gracias!!

En excel 2016, 2019 y 2021 funciona perfectamente

Gracias a todos!!

Alguna forma de forzar el q funcione en excel 2013???

En el hospital es lo que tenemos...ejem.