Cargar listview rápidamente

[marcoooooo]

Hola, apreciados
Solicito de su valiosa colaboración con este tema:
Estoy cargando una listview con 4500 ítems pero me resulta muy lento, estos datos hacen referencia una tabla que alimenta un...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Hola

Para bucles que llenan objetos con datos, nunca es conveniente usar los del tipo Do Loop, es mejor y más rápido usar For Next y más rápido aún si lo combinas con matrices. Para no inventar...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[marcoooooo]

Enserio, de Hecho opté por cambiar do Loop por que al utilizar el for next, resultaba lento, Tome la decisión de cambiar a do loop porque leí varios artículos en los que menciona que las macro son...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Enserio, de echo opté por cambiar do Loop por que al utilizar el for next, resultaba lento, de echo decidi cambiar a do loop por que leei varios...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[marcoooooo]

Si puedes, regalame tu correo y te lo comparto con onedrive

 

[Abraham.Valencia]

Espero me entiendas, pero en casi 20 años ayudando en foros tengo como premisa jamás aceptar consultas privadas (y eso parece ser que es lo que solicitaste) pues para ayudar yo doy mi tiempo libre...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[marcoooooo]

Te entiendo, y me excuso, mi intención no es incomodarte, ni tampoco abusar de tu ayuda. El compartir por OneDrive me parece ágil pues el archivo es pesado, es un proyecto que está Compuesto por...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Hola Marco,
Un detalle pequeño y sin relación con la velocidad de carga del ListView: cuando escribes

Dim UfilaA, fila As Long

estás declarando UfilaA como Variant.
Debe ser...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Estimado @marcoooooo usas el For Next ¡Pero con Do until! Por eso sigue lento.

Saludos

Abraham Valencia
...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[marcoooooo]

Te entiendo, y me excuso, mi intención no es incomodarte, ni tampoco abusar de tu ayuda. El compartir por OneDrive me parece ágil pues el archivo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[marcoooooo]

Estimado @marcoooooo usas el For Next ¡Pero con Do until! Por eso sigue lento.

Saludos

Abraham Valencia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Gracias por tu repuesta, Pero los Do Loop los tengo comentados, con el fin de hacer pruebas, en realidad no se ejecutan, solo se ejecutan el For...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Hola Marcoooooo,

Pones:

With HojaA
For fila = 14 To UfilaA
Set Li = Me.Buscado.ListItems.Add(Text:=HojaA.Range("A" & fila).Value)
For J = 1 To 24
Li.ListSubItems.Add...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí