hola he creado un formulario para añadir registros, modificar, eliminar, buscar etc. el problema lo tengo en el boton busqueda que el dato que necesito que busque es la fecha y sale un mensaje 380. 

podeis por favor ayudarme en donde tengo que modificar y que poner?

 

adjunto fichero. 

gracias. 

Partes de Trabajo.xlsm

Sustituye tu procedimiento por este:

Private Sub bt_busqueda_Click()
Dim y As Long, fila as Long
lista.RowSource = ""
For fila = 5 To Hoja3.Range("a" & Rows.Count).End(xlUp).Row
   If Hoja3.Cells(fila, 2).Text Like "*" & txt_busqueda.Value & "*" Then
       Me.lista.AddItem
       Me.lista.List(y, 0) = ActiveSheet.Cells(fila, 1).Value '<- En esta línea había una letra o
       Me.lista.List(y, 1) = ActiveSheet.Cells(fila, 2).Value '   en lugar de un cero
       Me.lista.List(y, 2) = ActiveSheet.Cells(fila, 3).Value
       Me.lista.List(y, 3) = ActiveSheet.Cells(fila, 4).Value
       Me.lista.List(y, 4) = ActiveSheet.Cells(fila, 5).Value
       y = y + 1
   End If
Next
End Sub

 

Muchas gracias Antoni, ahora si hace la busqueda. 

mil gracias de nuevo.