Parpadeo de pantalla

[RubenDario]

Buenas tardes

¿Cómo se puede evitar el parpadeo de pantalla en cada pulsación dentro de un TextBox?

Se trata de filtros (AutoFilter) que aprendí en YouTube. Se trata de una tabla (la mía) con 21 campos y más de 20.700 registros.

Private Sub Txt_Obra_Change()
        Dim obra As String
        obra = "*" & Sheets("Proveed_Detalle").Txt_Obra.Value & "*"
        Range("A4").AutoFilter field:=18, Criteria1:=obra
End Sub

Private Sub Txt_Proveedor_Change()
        Dim proveed As String
        proveed = "*" & Sheets("Proveed_Detalle").Txt_Proveedor.Value & "*"
        Range("A4").AutoFilter field:=17, Criteria1:=proveed
End Sub

La columna 17 es la de PROVEEDOR y la 18 es la de CLIENTES.

Por cada carácter escrito en ambos textbox todo se mueve y también en el borrado de cada carácter.

Muchas  gracias desde ya.

Rubén

[JSDJSD]

 Pon esto en tu código como te muestro más abajo.      Application.ScreenUpdating = False

Private Sub Txt_Obra_Change():Application.ScreenUpdating = False
        Dim obra As String
        obra = "*" & Sheets("Proveed_Detalle").Txt_Obra.Value & "*"
        Range("A4").AutoFilter field:=18, Criteria1:=obra
End Sub

Private Sub Txt_Proveedor_Change():Application.ScreenUpdating = False
        Dim proveed As String
        proveed = "*" & Sheets("Proveed_Detalle").Txt_Proveedor.Value & "*"
        Range("A4").AutoFilter field:=17, Criteria1:=proveed
End Sub

 

[RubenDario]

Muchas gracias @JSDJSD

Sin ninguna intención de ofender ni nada por el estilo, ahora el comportamiento ha empeorado un poco.

¿Si en alguna parte del código ponemos Application.ScreenUpdating=  True? Lo digo porque he  visto en algún que otro código. No por corregir a nadie.

[JSDJSD]

Sube tu archivo

[RubenDario]

Hola...

Pesa casi 3 MB y el tamaño máximo a subir es sólo de 1 MB.

Lo convertí al tipo binario y aún no alcanza a bajar hasta los 1 MB

Gracias

[JSDJSD]

Sube solamente la hoja donde tienes los datos y el codigo

[JSDJSD]

O también comprimelo

[RubenDario]

Hola !

Tuve que borrar muchos registros estimado @JSDJSD

Ojalá sirva igual.

Gracias

ProveedoresHISTORICO copia.xlsb

[JSDJSD]

Si el filtrado lo haces en la misma hoja siempre vas a ver parpadeo, pero espera que te preparo algo

[JSDJSD]

Prueba y comentaProveedoresHISTORICO copia.xlsb

[Gerson Pineda]

Hola a ambos

Haciendo pruebas, no hay parpadeo

Por lo que puedo suponer, que tienes más procedimientos, entonces se cruzan 

[JSDJSD]

hace 19 minutos , Gerson Pineda dijo:

Por lo que puedo suponer, que tienes más procedimientos, entonces se cruzan 

En mis pruebas tampoco observo parpadeo pero creo que si su equipo es menos potente puede ser que el efecto visual al ir filtrado lo interprete como parpadeo.

 

 

[RubenDario]

Buenas tardes @Gerson Pineday @JSDJSD !!

Gracias estimados...

Por un lado lamento decirte JSDJSD que con lo que me pasaste experimento el mismo problema. Algo pasa entonces con mi PC ?

Y qué placer saludarte después de tanto tiempo estimado Gerson. Tantas soluciones ya me has aportado hasta la fecha y me quedo maravillado que en tu equipo no sucede lo mismo. Pues ya no entiendo nada.

Permítanme compartirles la imagen de las propiedades de la PC. Ojalá puedan decirme si algo no es suficiente y así proceder en consecuencia.

Un fuerte abrazo a ambos en la distancia.

Rubén

[Gerson Pineda]

Es un gusto Ruben

Pero te reitero, lo más probable es que como solo envías una parte de tu proyecto, por eso para nosotros las pruebas no son completas

Es decir, VBA es muy quisquilloso, hasta que descubrimos los porque... 

¿Qué te recomiendo? pues ir procedimiento por procedimiento y ver donde tienes las desactivación y activación de la actualización de la pantalla y trata de corregir o si es posible, no utilizarlos, pues no siempre es necesario 

 

[RubenDario]

Estimado Gerson tanto tiempo !

Bueno así como lo envié es todo el archivo y quise aplicar lo de los filtros nada más. Existe un módulo de protección de todas las hojas que podría llegar a tener dicho libro. Pero nada más. Como @JSDJSDme había solicitado que alzara el archivo, lo que tuve que hacer es borrar cierta cantidad de registros para alivianarlo.

De ahí es que no entiendo eso de "...envías solo una parte de tu proyecto". Te pido disculpas por si no lo estoy captando. Es que he visto en YouTube el video que enseña como hacerlo y lo quise aplicar a esta tabla de 21 columnas y más de 20.700 registros. Queda claro que los que enseñan como hacerlo en YouTube utilizan una tabla de 3 a 4 columnas y no tantos registros.

Una vez más, gracias por tu amable respuesta.

Rubén

 

[Gerson Pineda]

Rubén si, hace mucho! 

¿Al realizar pruebas en este libro, tienes más abiertos?

Si es posible, sube ese libro tal cual a la nube y comparte enlace, para realizar pruebas

 

[RubenDario]

Hola Gerson !

Tengo la opción de alzarlo en la nube, pero yo suelo compartir a través de una cuenta de mail. Tengo OneDrive.

Para compartirlo aquí ¿Cómo lo hago? Una guía por favor.

Me anticipo un poco: entre tantas pruebas que estuve haciendo y con la ayuda de un conocedor de hardware tuve que salir del canal BETA del Office 365 desinstalar todo y volver a reinstalarlo. Con  el simple hecho de salir del canal BETA, persistía el problema. Entonces a desinstalar todo y volver a reinstalarlo y ahí cambió todo. 

Todo esto me parecía muy raro hasta que llegó otra sugerencia: aumentar la memoria virtual del Office 365 para Windows 11. En fin navegando en aguas extrañas estoy. Hoy lo estoy probando y lo siento estable. Sólo me queda dos opciones: es la memoria virtual o la tarjeta gráfica ya cumplió con su vida útil. ¿Ahora qué pruebas se hace para saber si el problema es la tarjeta gráfica?

Como tengo 8 GB de RAM las sugerencias piden llevarlo a 3 veces: 8x1.024 = 8.192 MB. Luego 8.192 x 3 = 24.576 MB. Pero yo lo llevé a 5 veces 8.192 x 5 = 40.960 MB.

Aquí estoy... no tengo idea de lo que pasaría más adelante.

Gerson, estimado. Ayúdame con guiarme para eso de alzar en la nube.

Muchas gracias por la paciencia de siempre.

Rubén

[Gerson Pineda]

hace 20 horas, RubenDario dijo:

Gerson, estimado. Ayúdame con guiarme para eso de alzar en la nube.

Muchas gracias por la paciencia de siempre.

Utiliza cualquier servidor como ondrive, dirve, dropbox, sube el archivo y lo haces público, luego comparte el enlace

 

[Gerson Pineda]

A lo mejor un maestro de estructuras computacionales como lo es @Abraham Valencia nos da más ideas 

 

[Abraham Valencia]

Hola amigos

Como he comentado en algunos posts, Windows 11 no termina de llevarse bien con todas las tarjetas gráficas ya que, finalmente, como dice Microsoft aún es una versión en evaluación. Eso se nota más cuando se combina Windows 11 con Microsoft 365 Insider Canal Beta, jejeje. No es una cuestión de RAM casi nunca. ¿Qué se puede hacer? Windows normalmente usa drivers genéricos para las tarjetas así que hay que ver exactamente cuál es la de uno e ir a la web oficial y descargar la última versión, que probablemente incluso sea para Windows 10, no importa. Descargar e instalar. Eso debería hacer que ese parpadeo desparezca, al menos en gran medida.

[RubenDario]

Buenos días estimados

Muy agradecido por tanta ayuda y tiempo dedicado.

Un fuerte abrazo @Gerson Pineday @Abraham Valencia !

Rubén

[Gerson Pineda]

Hace 1 hora, RubenDario dijo:

Buenos días estimados

Muy agradecido por tanta ayuda y tiempo dedicado.

Un fuerte abrazo @Gerson Pineday @Abraham Valencia !

Rubén

También a @JSDJSD  ?