Macro para buscar, copiar y pegar

[vikthorius]

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

[AlexanderS]

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

[vikthorius]

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

[AlexanderS]

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

[vikthorius]

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

[AlexanderS]

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

[vikthorius]

muchas gracias justo lo que buscaba en verdad gracias