Este fórum está sendo desativado

[rafael84]

Pessoal, estou quebrando a cabeça e não consigo resolver....
Tenho dois arquivos arquivo1.xslx e arquivo2.xlsx, os dois arquivos tem as colunas nome e cargos (A e B). Eu preciso comparar o arquivo1 com o arquivo2 e onde os nomes forem iguais, colocar o cargo no arquivo2. Não sei como abrir no macro o arquivo2 e fazer a comparacao usando o for. Alguem tem exemplo pra eu me basear?

Obrigado.

[DJunqueira]

Vc pode fazer isso com funções.

[alexandrevba]

Bom dia!!

Visto que você não detalhou....
Foi considerado a seguinte situação...
1.Ambos arquivos já estão salvos em um local qualquer.
2.Ambos arquivos estão abertos.
3.Favor adaptar os nomes das guias e nomes e extensões dos arquivos (Aquivo2.xlsm) no meu caso eu usei xlsm.

Código: Selecionar todos

Sub AleVBA_3228()
    Dim wsFO As String
    Dim wsFT As Worksheet
    Set wsFT = Workbooks("Aquivo2.xlsm").Sheets("NomeGuiaArq2")
    With Workbooks("Aquivo1.xlsm").Sheets("NomeGuiaArq1")
        wsFO = "'" & .Parent.Path & "\[" & .Parent.Name & "]" & .Name & "'!"
    End With
    With wsFT.Cells(1).CurrentRegion
        With .Columns("B").Offset(1).Resize(.Rows.Count - 1)
            .Formula = "=IFERROR(VLOOKUP(A2," & wsFO & "A:B,2,false),"""")"
            .Value = .Value
        End With
    End With
End Sub

Att