comparar columnas y que reste la diferencia

16/12/2004 - 20:23 por Papelucho | Informe spam
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.
 

Leer las respuestas

#1 David
17/12/2004 - 01:33 | Informe spam
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.





.

Preguntas similares