smart27

hola amigo una consulta hoy estaba modificando lo que resolviste del form que se agrego el label para búsqueda de stock. Pero hay un error cuando pongo en el casillero código a buscar un código por ejemplo ponía 0 y me aparecia todo los códigos que contiene 0 bueno eso hace hasta ahí todo ok. pero de toda la lista que sale ya no me permite seleccionar un código con click para que aparezca en el texbox código.

serias tan amable de modificar el código?

Private Sub ListBox1_Click()
 With Hoja3
     With ListBox1
      'TxtCodigo = .List(.ListIndex, 0)-------------Esto era el código anterior
      Label13.Caption = ListBox1.List(.ListIndex, 1)-----------este es tu codigo
    End With
  
    End With
End Sub

si borro tu código ya no me hace la búsqueda de stock

pero si borro el código anterior ya no se puede seleccionar el código buscado con click

puedes probar boorando tu código y al hacer la busqqueda  se puede seleccionar lo buscado en la lista haciendo click.

CONSULTA_01rRESUELTO FINAL.xlsm