Diferencias en columnas

Hola Miguel.

La siguiente macro te ordena dos columnas y te inserta una
celda con valor 0 en aquellos valores no coincidentes en
ambas columnas.

Debes personalizar el rango definido en PRIMERRANGO y
SEGUNDORANGO

Sub ordenaryañadir0()
PRIMERRANGO = Range("A4:A59").Address
SEGUNDORANGO = Range("B4:B59").Address
Range(PRIMERRANGO).Sort Key1:=Range(PRIMERRANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(SEGUNDORANGO).Sort Key1:=Range(SEGUNDORANGO),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range(PRIMERRANGO).Select
While ActiveCell.Offset(A, 0) <> ""
If ActiveCell.Offset(A, 0) > ActiveCell.Offset(A, 1)
Then
ActiveCell.Offset(A, 0).Insert Shift:=xlDown
ActiveCell.Offset(A, 0).Value = 0
ElseIf ActiveCell.Offset(A, 0) < ActiveCell.Offset(A,
1) Then
ActiveCell.Offset(A, 1).Insert Shift:=xlDown
ActiveCell.Offset(A, 1).Value = 0
End If
A = A + 1
Wend
While ActiveCell.Offset(A, 1) <> ""
ActiveCell.Offset(A, 0).Value = 0
A = A + 1
Wend

End Sub

Espero que te funcione.

Atentamente,

Benito Merino
Barcelona

Hola Amigos:

Tengo dos columnas con valores

numéricos ordenadas,

manualmente hago coincidir los importes que así concurren

y los que no

agrego una casilla en blanco Ej.:

Colum1 Colum2

1 0
5 5
0 6
7 0
0 8
9 9

UD. serian tan amables de decirme como lo puedo hacer

automáticamente por

medio de una macro, tanto ordenar como hacer coincidir

los que coinciden y

los que no agregarle un cero.-

Desde ya muchas gracias

Saludos y Felices Fiestas!


.