buenos dias, quería pedir la siguiente ayuda tengo una hoja con una base de datos que dice

numero de orden- cliente -descripción

necesito que en otra hoja donde tenga un buscador pueda escribir el numero de la orden y me traiga todos los datos que tiene esa orden

Libro1.xlsFetching info...

Hola, el numero de la orden se repite o es un resultado único el que necesitas?? porque si ese es el caso con un BUSCARV te es mas que suficiente.

Salu2

es solo una vez pero no me serviría con buscarv ya que es para un proyecto que estoy haciendo y no debo usar funciones de excel si no botones y cajas de texto

Bueno pues con este pequeño codigo logras lo que pides:

On Error GoTo errores

busq = Sheets(1).Range("A:A").Find([A2].Value, lookat:=xlWhole).Row

For i = 1 To 14

Sheets(2).Cells(6, i) = Sheets(1).Cells(busq, i)

Next

Exit Sub

errores: MsgBox "Codigo no encontrado", vbExclamation

[/CODE]

Adjunto el código aplicado a tu archivo.Comentas si te fue de utilidad

Salu2

Libro1.xlsFetching info...

quedo muy bien justo lo que necesitaba ahora que pena pedirte mas ayuda es posible crear un botón para que lo que modifique en la hoja donde esta el buscador quede en donde esta la base de datos, muchas gracias de igual forma por lo primero

El mismo código pero al revés, por cierto no me había fijado que se saltaba 2 columnas así que corrijo también.

On Error GoTo errores

busq = Sheets(1).Range("A:A").Find([A2].Value, lookat:=xlWhole).Row

For i = 1 To 16

Sheets(1).Cells(busq, i) = Sheets(2).Cells(6, i)

Next

Exit Sub

errores: MsgBox "Codigo no encontrado", vbExclamation[/CODE]

Salu2

Libro1.zipFetching info...

muchas gracias justo lo que buscaba en verdad gracias