Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Botón Buscar no Funciona

jcvelez

Active member
Registrado
1 Mar 2013
Mensajes
914
Hola, estoy trabajando y adaptando dicha macro en el archivo que adjunto, pero me encuentro con algunos inconvenientes

1) En el formulario miformulario el botón CDM_Buscar necesitaria que al ir...
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í
 

Adjuntos

Solución
1) En el formulario miformulario el botón CDM_Buscar necesitaria que al ir escribiendo letras en el TXT_Buscar correspondientes a la columna "C" "Apellido Y Nombre" se vallan reflejando en el cuadro de Lista.

Agrega lo siguiente:
Código:
Private Sub TXT_Buscar_Change()
  CDM_Buscar_Click
End Sub


Y así quedaría el código para CDM_Buscar_Click
Código:
Private Sub CDM_Buscar_Click()
  Dim y As Long
  With Hoja1
    numerodedatos = .Range("A" & Rows.Count).End(xlUp).Row
    LISTA.RowSource = ""
    LISTA.List = .Range("A2").Resize(1, 8).Value '<----- 13 columnas
    LISTA.Clear
    Me.LISTA.ColumnHeads = True
    
    For fila = 2 To .Range("A" & Rows.Count).End(xlUp).Row
      If UCase(.Cells(fila, 3).Value) Like "*" &...
Buenas, cambia la columna donde compara
Código:
    If UCase(.Cells(fila, 3).Value) Like "*" & UCase(Me.TXT_Buscar.Value) & "*" Then


y en el evento de la caja de texto llama al...
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í
 
Última edición:
Volver
Arriba