Estou com dificuldades para criar uma macro que possa verificar a igualdade entre cada célula de uma lista e, se ambos forem diferentes, deixar uma linha em branco acima da célula.
Por exemplo:
A A
B C
C D
D E
E F
G H
Deixando:
A A
B
C C
D D
E E
F
G
H
Tenho que verificar se as duas listas de nomes são iguais, e para cada erro tenho que fazer uma notificação (por isso a célula vazia). Não posso misturar os erros de cada lista.
O Código que tenho até então é meio desestimulante.
Private Sub compare_cells(ByVal Target1 As Range, ByVal Target2 As Range)
If Target1 Is Nothing Then Exit Sub
If Target2 Is Nothing Then Exit Sub
Dim ws1, ws2 As Worksheet
Set ws1 = Sheets(Target1.Parent.Name)
Set ws2 = Sheets(Target2.Parent.Name)
If Target1.Value <> Target2.Value Then
' If they don't match place your code here
ws1.Range(Target1.Row & ":" & Target1.Row).Insert Shift:=xlDown
ws2.Range(Target2.Row & ":" & Target2.Row).Insert Shift:=xlDown
End If
End Sub
Estava tentando fazer funcionar dessa maneira:
Range("A3:C3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("A4").Select
ActiveSheet.Paste
Range("B4").Select
Mas estou com dificuldade de fazer isso.