Saltar al contenido

Macro para buscar, copiar y pegar

publicado

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

Featured Replies

publicado
  • Autor

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

publicado

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

publicado
  • Autor

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

publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.