Olha se atende sua necessidade http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&t=3899 versão 2.0 você mesmo faz a configuração dos campos.

Olha se atende sua necessidade http://www.tomasvasquez.com.br/forum/viewtopic.php?f=23&t=3899 versão 2.0 você mesmo faz a configuração dos campos.

Não me ajudo muito não, alias, me deixou mais perdido ainda haha

Eu estou tentando utilizar este codigo, porem ele só me mostra a msg de carregado e nao faz nada, alguem saberia concertar ? ou me passar outro modo ?

Private Sub Buscar_Click()
    On Error Resume Next
    Dim Dept_Row As Long
    Dim Dept_Clm As Long
        Table1 = Sheet1.Range("F2:F101") ' Employee_ID Column from Employee table
        Table2 = Workbooks("CadPeso.xlsx").Sheets("Plan1").Range("A2:A65653") ' Range of Employee Table 1
        Dept_Row = Sheet1.Range("G2").Row ' Change E3 with the cell from where you need to start populating the Department
        Dept_Clm = Sheet1.Range("G2").Column
    For Each cl In Table1
        Sheet1.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(cl, Table2, 1, False)
        Dept_Row = Dept_Row + 1
    Next cl
        MsgBox "Carregado"
       
End Sub

O exemplo em que falei acima ele cadastra edita deleta busca ...
o campo de busca é o de nome na base de dados ele seria o de código vc cadastra e no nome coloca o código e faz a busca no botão busca no campo busca por nome.
vejo que vc está meio perdido.
pega o arquivo em que eu citei veja o seu comportamento...
depois que vc autoriza as macros para entrar no programa é só renomear para o nome diferente...

É assim o que vc quer?

messiasmbm desculpe pela confusão, mas o que eu quis dizer não era planilhas diferentes e sim pastas de trabalho, obrigado pela ajuda, sera q vc tb sabe sobre pastas diferentes ?

Precisava ligar esses 2 workbooks no exemplo usando algum macro tipo vlookup

Primeiro vc tem que saber onde ela vai ser localizada , em qual pasta?
Para continuarmos...

Vê se atende suas necessidades...

Sub fncMain()
    'Este código deverá ficar num módulo da pasta de trabalho de pedidos.

Application.ScreenUpdating = False

On Error GoTo ErrHandler:

    Dim lngPedido, lngLastPedido As Long
    Dim X, Y As Variant
    Dim wP, wksBD As Worksheet
    
    
    'Mude o caminho abaixo ou use Set wP = ActiveSheet
    Set wP = ThisWorkbook.Worksheets("Consulta")
    'Para a linha abaixo funcionar, coloque a pasta de trabalho de banco de dados
    'no mesmo diretório da pasta de trabalho de pedidos.
    Set wksBD = Workbooks.Open(ThisWorkbook.Path & "CadPeso.XLSX").Worksheets("Peso")
    
    With wP
        lngLastPedido = .Cells(.Rows.Count, "F").End(xlUp).Row
    End With
    
    For lngPedido = 2 To lngLastPedido
    
        X = wP.Cells(lngPedido, 6).Value
        
        Y = Application.WorksheetFunction.VLookup(X, wksBD.Range("A:E"), 2, False)
        wP.Cells(lngPedido, 7).Value = Y
        
        Y = Application.WorksheetFunction.VLookup(X, wksBD.Range("A:E"), 3, False)
        wP.Cells(lngPedido, 8).Value = Y
        
        Y = Application.WorksheetFunction.VLookup(X, wksBD.Range("A:E"), 4, False)
        wP.Cells(lngPedido, 9).Value = Y
        
        Y = Application.WorksheetFunction.VLookup(X, wksBD.Range("A:E"), 5, False)
        wP.Cells(lngPedido, 10).Value = Y
        
    Next lngPedido
    
    wksBD.Parent.Close False
   
ErrHandler:
If Err.Number = 1004 Then
    Y = "N/C"
    Resume Next
End If
   
End Sub