¿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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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