Comparar dados em arquivos diferentes

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Comparar dados em arquivos diferentes

Mensagem por alexandrevba em Ter Abr 08, 2014 2:21 pm

Boa tarde!

Como comparar dados em arquivos diferentes
Código:
Sub CopararDados()
'Como comparar dados em arquivos diferentes
'Caso encontrato pinta valores diferentes
Dim rcell As Range
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Workbooks("Arquivo1.xls").Sheets("GuiaArquivo1")
Set ws2 = Workbooks("Arquivo2.xls").Sheets("GuiaArquivo2")
ws.Activate
For Each rcell In ws.UsedRange
    If rcell.Value <> ws2.Cells(rcell.Row, rcell.Column).Value Then
        rcell.Interior.ColorIndex = 6
    End If
Next rcell
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum