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