comparar columnas y que reste la diferencia

Tengo algo que pueda servirte, pero es una combinación de
macros y funciones, así que vas a tener que hacer algunos
cambios en tu hoja. Lo he probado con datos organizados
en forma similar a la que nos envías, y se adapta
perfectamente. Aquí te va:

Primero:
Organiza tus datos de la siguiente manera: En la fila 1,
ingresa lo siguiente en las columnas indicadas:
A - CHEQUE
B - MONTO
C - CHEQUE
D - MONTO
E - CHEQUE
F - DIFERENCIA
I - CHEQUE
J - ENCONTRADOS
K - RANGO1
L - RANGO2
M - DIFERENCIA

Segundo:
En la fila 2, ingresa las siguientes fórmulas en las
columnas indicadas (Ojo con dos cosas, Primero, en un
principio te darán error, hasta que ejecutes el macro.
Segundo, yo uso la coma como separador de listas. Si no
te funcionan, prueba con punto y coma)
J - ½CONTARA(C:C,C1,I1:I2)
K - ½EXTRAER(A:B,B1,I1:I2)
L - ½EXTRAER(C:D,D1,I1:I2)
M - =K2-L2
Como no nos dices qué diferencia quieres, puede ser que
debas invertir los términos en la fórmula de la columna
M. Pruébalo, y si no es lo que esperas, ingresas =L2-K2

Tercero:
A partir de la celda A2 puedes pegar los cheques y los
montos que vas a buscar.

Cuarto:
A partir de la celda C2 pegas los cheques y los montos en
los cuales vas a buscar los que ingresaste en el primer
rango.

Quinto:
Asegúrate que en las columnas E y F, sólo estén los
encabezados que pusiste (Cheque, Diferencia).

Sexto:
Ejecuta el código que te doy a continuación:

Sub Cheques()
Range("A2").Activate
x = ActiveCell.Value
fila = 2
Filax = 2
z = 0
Do While z = 0
Range(Cells(2, 9), Cells(2, 9)).Value = x
y = Range(Cells(2, 10), Cells(2, 10)).Value
If y = 1 Then
Range(Cells(Filax, 5), Cells(Filax, 5)).Value = x
Dif = Range(Cells(2, 13), Cells(2, 13)).Value
Range(Cells(Filax, 6), Cells(Filax, 6)).Value = Dif
Filax = Filax + 1
Else
End If
ActiveCell.Offset(1, 0).Range("A1").Select
fila = fila + 1
x = ActiveCell.Value
If x = "" Then z = 1
Loop
End Sub

Eso es todo. Suerte, y felices fiestas de fin de año!

Hola grupo:
Tengo que comparar 2 columnas deacuerdo a una busqueda y

que reste la

diferencia, me explico:

Col A Col B Col C Col D Col E
Cheque // monto // Cheque // monto Cheque Nro

xxx Diferencia de $

Tengo que buscar en las columnas A y B los cheques

iguales si se encuentran

restar la diferencia entte la resta del C y D e indicar

en la Col E

los cheques no estan ordenados y puden que exitan

cheques en una columan que

no esten en la otra.

Ojala me puedan ayudar con este caso

sldos


Juan Lorca U.





.