Macro buscar y pegar un valor en valor encontrado

[exskizzo]

Buenos dias a todos.

Nuevamente recurro a ustedes para pedir ayuda.

Les explico, tengo un archivo con varias hojas las cuales son mis Ordenes de Compra otra hoja que se llama "Explosion de Materiales".

Lo que quiero es que de las hojas que son mis "ordenes de compra" tomar el valor de la celda "J10" y pegarlo en la hoja explosion de materiales en la columna "G" siempre y cuando el nombre que esta en "A12" de la hoja que seleccione (Cualquier Orden de Compra) coincida con los nombres que estan en la hoja "Explosion de materiales"

Anexo archivo y ahi tengo el ejemplo de como deseo y quede.

Gracias y desde ya agradezco por su ayuda.

Libro2.xls

[nixonlyo]

quizá deberías al menos hacer un esfuerzo por crear una macro considero yo, básicamente quieres que te hagan todo el trabajo desde cero, y disculpa si te molesta, pensaba ayudarte pero como lo veo no lo considero ético.

[exskizzo]

Gracias de por lo menos contestarme.

Tengo un codigo pero no he podido completarlo, lo adjunto y si quieres seguir ayudando lo agradeceria y si no es asi de cualquier forma gracias.

Sub Buscar()

Dim myValor As String 'si es un numero entero = as integer, o as single si tiene comillas

myValor = Range("A12").Value

Sheets("Explosion de Materiales").Select

'Range("b1:b100").ClearContents

Range("F4").Select

Do Until ActiveCell.Value = myValor

If ActiveCell = "" Then End

ActiveCell.Offset(1, 0).Range("F4").Select

Loop

ActiveCell.Offset(0, 1) = "O.C.M." & Range("J10").Value 'Tendria que colocarme el dato de la celda "J10" valor buscado"

End Sub

Este codigo se para en cuanto encuentra el primer valor y no sigue buscarndo mas, obviamente es por que no esta bien mi codigo, ademas de que no coloca el valor de la celda "j10" cuando deberia quedar asi:

O.C.M. valor de celda "j10"

Gracias.