Saberexcel - site das macros

Este exemplo de planilha contém macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), que compara dados entre duas folhas de planilhas,
aqui inserí somente uma coluna em cada folha de planilha. Ao comparar os dados, o macro abrirá uma nova planilha com a relação dos ítens diferentes.

' ESTE EXEMPLO DE PLANILHA FAZ PARTE DO MÓDULO COMO FAZER PROGRAMAÇÃO MS EXCEL VBA_IV


Sub Comparar_planilha()
On Error GoTo Err: 'caso execute o macro em outro livro ativo
Compara_Planilhas Sheets("Plan1"), Sheets("Plan2")
Exit Sub
Err: MsgBox "Selecione Planilha Compara!", vbInformation, "Saberexcel"
End Sub

Sub Compara_Planilhas(Wks1 As Worksheet, Wks2 As Worksheet)

Dim vLin As Long, vCol As Integer
Dim vContaLinWk1 As Long, vContaLinWk2 As Long, vContaColWk1 As Integer, vContaColWk2 As Integer
Dim vMaxLin As Long, vMaxCol As Integer, vDados1 As String, vDados2 As String
Dim vRelatorioWB As Workbook, vContaDiferenca As Long

Application.ScreenUpdating = False
Application.StatusBar = "gerando relatório............"

Set vRelatorioWB = Workbooks.Add
Application.DisplayAlerts = False

While Worksheets.Count > 1
Worksheets(2).Delete
Wend

Application.DisplayAlerts = True

With Wks1.UsedRange
vContaLinWk1 = .Rows.Count
vContaColWk1 = .Columns.Count
End With

With Wks2.UsedRange
vContaLinWk2 = .Rows.Count
vContaColWk2 = .Columns.Count
End With

vMaxLin = vContaLinWk1
vMaxCol = vContaColWk1

If vMaxLin < vContaLinWk2 Then vMaxLin = vContaLinWk2
If vMaxCol < vContaColWk2 Then vMaxCol = vContaColWk2
vContaDiferenca = 0

For vCol = 1 To vMaxCol
Application.StatusBar = "Comparando células " & Format(vCol / vMaxCol, "0 %") & "..."

For vLin = 1 To vMaxLin
vDados1 = ""
vDados2 = ""

On Error Resume Next
vDados1 = Wks1.Cells(vLin, vCol).FormulaLocal
vDados2 = Wks2.Cells(vLin, vCol).FormulaLocal

On Error GoTo 0
If vDados1 <> vDados2 Then
vContaDiferenca = vContaDiferenca + 1
Cells(vLin, vCol).Formula = "'" & vDados1 & " <> " & vDados2
Cells(vLin, vCol + 1).Value = " diferentes"
End If

Next vLin
Next vCol

Application.StatusBar = "Formatando Relatório..."
ActiveSheet.Name = "Relatorio dados diferentes"
ActiveWindow.DisplayGridlines = False 'retirando a grade
Columns("A:D").AutoFit

'formatando a planilha que vai receber os dados.
With Range(Cells(1, 1), Cells(vMaxLin, vMaxCol))
.Interior.ColorIndex = 19
.Font.Name = "Verdana"
.Font.Size = 8
With .Borders
.LineStyle = xlContinuous
.Weight = xlHairline
End With
End With

Columns("A:IV").ColumnWidth = 15
vRelatorioWB.Saved = True

If vContaDiferenca = 0 Then
vRelatorioWB.Close False
End If

Set vRelatorioWB = Nothing

Application.StatusBar = False
Application.ScreenUpdating = True

MsgBox "Detectado(s) ...: [ " & vContaDiferenca & " ] Itens diferentes! ", vbInformation, _
"Dados comparados.: [ " & Wks1.Name & " ] com [ " & Wks2.Name & " ]"
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel




Baixe o exemplo de planilha contendo macro acima
Excel planilha vba compara planilhas e emite relatorio diferenca (33.67 KB)