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....

Editado el el 8 de mayo2 años por Yigdrasil2023

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....

 

Editado el el 8 de mayo2 años por Yigdrasil2023

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.