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

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

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

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 ..!