Buscar y reemplazar datos asociado excel vba
Necesito crear una macro donde a partir de un código que escriba en una celda, la macro lo busque en una columna de otra hoja, de forma que los datos asociados al código (son 5 en columna) sean copiados a la otra hoja pero de forma horizontal (transpuestos).
2 Respuestas
sub buscar()
valor = range("a1").value
Set h = Sheets("BD")
Set b = h.Columns("A").Find(valor)
If Not b Is Nothing Then
range("a3") = h.Cells(b.Row, "B")
range("a4") = h.Cells(b.Row, "C")
range("a5") = h.Cells(b.Row, "D")
range("a6") = h.Cells(b.Row, "E")
range("a7") = h.Cells(b.Row, "F")
End If
End Sub
Range("a1") es la celda donde pondras lo que quiere buscar
BD es el nombre de la hoja donde estas lo que vas a buscar
A Es la columna donde estas lo que buscar
Range("a3 hasta a7") estos son las celdas donde irian los datos asocido a la busquedad
Desde la columna B hasta la F
Si te silve no dudes en valorar para cerrar la pregunta
Hola, muchas gracias por la respuesta!!, funciono perfecto, pero se me olvido un detalle, al copiar los datos en horizontal, estos deben quedar en la misma fila que la posición del código, es posible??.
Saludos.
Si es posible solo tiene que elegir la celda donde quiere que se copie la información
A2 por la celda donde se va a copier ejemplo b2
