Busqueda segun numeracion

[riverts]

Buenas a Todos equipo de ayudaexcel quisiera saber como puedo hacer la busqueda deacuerdo a una numeracion en la base de datos y que me jale el resto de los datos a los que pertenece;

Subo un archivo para que tengan idea del objetivo

MUCHAS GRACIS DE ANTEMANO..!!

Libro1.rar

[riverts]

AHÍ LES DEJO EL COCDIGHO DEL BUSCADOR EL PROBLEMA ES QUE SOLO ME RESULTA CUANDO LA BUSQUEDA DE LA CELDA "B6" SON NOMBRE; PORQUE CUANDO ES NUMERO NO ME FUNCIONA..!

Private Sub CommandButton2_Click()

Frame1.Visible = True

Dim i As Integer

Dim final As Integer

For i = 2 To 30000

If Hoja2.Cells(i, 2) = "" Then

final = i - 1

Exit For

End If

Next

For i = 2 To final

If ComboBox5 = Hoja2.Cells(i, 2) Then

TextBox2 = Hoja2.Cells(i, 3)

ComboBox1 = Hoja2.Cells(i, 4)

TextBox3 = Hoja2.Cells(i, 5)

TextBox4 = Hoja2.Cells(i, 6)

ComboBox2 = Hoja2.Cells(i, 7)

ComboBox3 = Hoja2.Cells(i, 8)

TextBox5 = Hoja2.Cells(i, 9)

TextBox6 = Hoja2.Cells(i, 10)

TextBox7 = Hoja2.Cells(i, 11)

TextBox8 = Hoja2.Cells(i, 12)

TextBox9 = Hoja2.Cells(i, 13)

TextBox10 = Hoja2.Cells(i, 14)

TextBox11 = Hoja2.Cells(i, 15)

TextBox12 = Hoja2.Cells(i, 16)

ComboBox4 = Hoja2.Cells(i, 17)

TextBox13 = Hoja2.Cells(i, 18)

TextBox14 = Hoja2.Cells(i, 19)

TextBox15 = Hoja2.Cells(i, 20)

Exit For

End If

Next

End Sub

Private Sub ComboBox5_Enter()

Dim i As Integer

Dim final As Integer

Dim tareas As String

ComboBox5.BackColor = &H80000005

For i = 1 To ComboBox5.ListCount

ComboBox5.RemoveItem 0

Next i

For i = 1 To 30000

If Hoja2.Cells(i, 2) = "" Then

final = i - 1

Exit For

End If

Next

For i = 6 To final

tareas = Hoja2.Cells(i, 2)

ComboBox5.AddItem (tareas)

Next

End Sub

[riverts]

Bueno la verdad aun no se me ocurre que puede ser que no puedo buscar los datos por numeracion.!; le quite el spinnbutton1 y le puse la letra "N" para que el ingreso sea directo ( un poco colegial pero en fin) quisiera saber como puedo grabar el ultimo ingreso en textbox1 o en cualquier otro textbox para poder seguir la secuencia consecutiva del N° de placa que se ingreso..! Muchas Gracias de Antemano..!

SUBO UN NUEVO ARCHIVO

Libro2.rar

[riverts]

Al parecer este codigo me va muy Bien Gracias x la Ayuda..!

Application.ScreenUpdating = False

Me.TextBox16.Text = Hoja2.Range("b" & Rows.Count).End(xlUp).Value

Application.ScreenUpdating = True

si tiene alguna otra idea seria Bueno ..!