Macro que busque un campo especifico en otro archivo y devuelva datos de tres celdas

Te anexo la macro para buscar las matrículas. En esta macro va el directorio donde tienes los archivos con las matrículas:

Sub BuscarMatriculas()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set l1 = ThisWorkbook
    Set h1 = l1.Sheets("Hoja1")
    '
    If h1.[B2] = "" Then
        MsgBox "Poner matrícula"
        Exit Sub
    End If
    '
    ruta = "C:\documents and Settings\Administrador\Escritorio\carpeta de factura\"
    'ruta = l1.Path & "\"
    arch = Dir(ruta & h1.[B2] & "*.xls")
    Do While arch <> ""
        Set l2 = Workbooks.Open(ruta & arch)
        Set h2 = l2.Sheets(1)
        u = 11
        Do While h1.Cells(u, "B") <> ""
            u = u + 1
        Loop
        h1.Cells(u, "G") = h2.[N9]
        h1.Cells(u, "D") = h2.[H13]
        h1.Cells(u, "B") = h2.[N5]
        l2.Close False
        arch = Dir()
    Loop
    Application.ScreenUpdating = True
    MsgBox "Termiando"
End Sub

Si quieres otra carpeta cambia en la macro esta línea:

ruta = "C:\documents and Settings\Administrador\Escritorio\carpeta de factura\"

H o l a:

Para ejecutar la macro cuando abres el archivo pon el siguiente evento en Thisworkbook:

Private Sub Workbook_Open()
    BuscarMatriculas
End Sub

¡Gracias! 

Hola Dante,

¿Seria posible usar el numero secuencial de la celda "C5" que esta en la factura como identificador para decirle que haga la extracción si es diferente?

Dime si es posible para abrir una solicitud.