Página 1 de 1

comparar dois arquivos.xlsx

Enviado: 07 Out 2016 às 14:13
por 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.

comparar dois arquivos.xlsx

Enviado: 10 Out 2016 às 01:02
por DJunqueira
Vc pode fazer isso com funções.

Re: comparar dois arquivos.xlsx

Enviado: 10 Out 2016 às 10:58
por 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