Error al buscar hora en texbox

[davdc14]

Hola a todos.

Mis saludos a este foro que me saco de unos cuantos apuros!!!

Solicito su ayuda en la solucion a este problema, ya que no lo encontre en ningun lado.

En este archivo se muestra un formulario de busqueda, donde busco una fecha de una db y en esa fecha hay horas.

Cuando trato de buscar una hora para que me traiga datos al formulario, no me reconoce la hora por mas que cambie de formato.

En cambio si remplazo el formato hora o pongo numeros enteros al buscarlo me funciona perfecto.

Gracias por su tiempo y ayuda.

buscar hora.zip

[Antoni]

Hola:

Sustituye el procedimiento:

Private Sub cmdhora_Click()


If txthora.Text = "" Then MsgBox ("Ingrese una hora"): Exit Sub


For i = 2 To Sheets("db_peso_10_paq").Range("A" & Rows.Count).End(xlUp).Row 'Última fila con datos


   If txthora.Text =[COLOR=#0000ff] [B]Format([/B][/COLOR]Sheets("db_peso_10_paq").Cells(i, 3).Value,[B] [COLOR=#0000ff]"h:mm")[/COLOR][/B] Then

      txtcontrol.Text = Sheets("db_peso_10_paq").Cells(i, 2).Value

      Exit Sub

   End If


Next


MsgBox ("No se encuentra la hora")


End Sub[/CODE]

En el TextBox has de entrar la hora exactamente igual a como se ve en la celda.

Saludos

[davdc14]

Funciono perfecto!!!

Me falta mucho por aprender y agradezco que haya gente como ustedes dispuestos a enseñar todo lo que saben.

Muchas gracias!!