Início
Últimas imagens
Procurar
Registar
EntrarComparar dados em arquivos diferentes
Página 1 de 1
Comparar dados em arquivos diferentes
por alexandrevba Ter Abr 08, 2014 2:21 pm
Boa tarde!
Como comparar dados em arquivos diferentes
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
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes» Comparar celulas de guais diferentes e copiar para nova guia caso igual
» Como comparar Duas colunas e deletar dados
» Como comparar Duas colunas e deletar dados II
» Copiar dados de vários arquivos para uma única planilha
» listar os arquivos em um diretório
» Como comparar Duas colunas e deletar dados
» Como comparar Duas colunas e deletar dados II
» Copiar dados de vários arquivos para uma única planilha
» listar os arquivos em um diretório
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos|
|
|