Jump to content

Busqueda rapida


Recommended Posts

Estoy haciendo una busqueda con macro en base a 2 criterios por dni o por apellido utilizando el siguiente codigo:

Private Sub btn_buscardata_Click()

Dim contador As Integer

Dim s As String

Dim i As Integer

s = txt_criterio.Text

contador = 2

Dim flg As Boolean

If rb_dni.Value Then

contador = 1

End If

If rb_apellidos.Value Then

contador = 4

End If

lbx_datos.ListIndex = -1

If txt_criterio.Text = "" Then

Exit Sub

End If

For i = 0 To lbx_datos.ListCount - 1

If UCase(lbx_datos.List(i, contador)) Like UCase(s & "*") Then

lbx_datos.ListIndex = i

flg = True

Exit For

Exit Sub

End If

Next

If Not flg Then MsgBox "No se encuentra registrado"

End Sub

La ejecucion de la macro es muy lenta ya que tengo 2000 datos en donde hace la busqueda y cuando busca alguien cuyo apellido empieza con Z por ejemplo demora demasiado.

Espero puedan ayudarme.

Gracias.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Hola a ambos, @gonzalomadrid, en Word de M365 sí funciona. Basta con que escribas =rand() para que te aparezca el texto. Si eliges =rand(2,3) te aparecerá un texto con 2 párrafos y 5 operaciones. En Excel, hasta donde yo sé, es diferente. Tal como te comenta @Abraham Valencia, dispones de =ALEATORIO() y =ALEATORIO.ENTRE() para generar números aleatorios. El propio 'Help' de Excel explica muy bien argumento y sintaxis de ambas funciones. Saludos,  
    • Hola, descargar mejor la versión (2). Saludos. MImgUrl(2).xlsm
    • Hola Medio enredado lo que escribes, pero creo que en realidad lo que buscas es ALEATORIO.ENTRE o RANDBETWEEN si usas Excel en inglés.    
    • Muchas gracias a todos por sus aportes, me han resultado de mucha utilidad, al final lo pude resolver utilizando temporalmente la funcion de reemplazar para sacar la operacion requerida y despues de eso lo volvi a dejar como estaba. Un saludo para todos
    • aquel famoso - y antiguo-    = Rand (8,5)   ¿funciona en    en excel 2019? y de paso ¿funciona en word 2019 y demás office? A mi no me funciona ni a tiros, ni ese ni   = Rand () ni Lorem Ipsum() ni nada parecido para meter texto dummy o aleatorio. ¿alguien  sabe algo?  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy