Buscar y copiar valores entre libros de trabajo

Buscar y copiar valores entre libros de trabajo

Estoy intentando automatizar la tarea de encontrar el número de pieza en otro libro (un libro que contiene poco más de 100 hojas) y copiar los datos en la hoja de trabajo.

ingrese la descripción de la imagen aquíingrese la descripción de la imagen aquí

Tengo dos hojas de Excel que contienen datos, de los cuales hay un número de pieza de identificación única (celdas resaltadas en la imagen 2). La columna "C" de la imagen 2 tiene un número de pieza correspondiente y coincidente en la columna "F" de la imagen 1. (Aunque lo tengo no sé en qué hoja está la información)

Necesito recorrer la Columna C, seleccionando cada número de pieza y aplicación. Encuentre cada uno en el otro libro de trabajo y devuelva la fila donde aparece cada número de pieza.

Actualmente tengo:

Sub Findvalue()
'
' Findvalue Macro
'
' Keyboard Shortcut: Ctrl+o
'

b = 6 
c = 1
Set Start = "C" & b

While c < 250
    Range(Start).Select
    Selection.Copy
    Windows("SPARES.xlsm").Activate
    Cells.Find(What:="'Start'", After:=ActiveCell, LookIn:=xlFormulas,     LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    Windows("A696237-08_spare_parts U2D.xlsx").Activate
    Range(Start).Select
    ActiveSheet.Paste
    b = b + 1
End Sub

Que es una macro grabada con algunas correcciones para intentar automatizar.

¿Existe alguna manera más fácil de lograr esto que con VBA?

información relacionada