Conciliar un libro Contable

Buena tarde, necesito su ayuda
Tengo un hoja con datos en A, B, C y DE, en A tengo el departamento, en B tengo un # referencia, en C tengo Cargo y en DE tengo abonos.
Necesito identificar dentro del rango de A, las referencias iguales en B y que compare si C y DE son iguales, para que me coloque una leyenda en E de Conciliado, si lo encontró o Pendiente, en caso de no encontrarlo.
Actualmente hago esto por medio de Filtros, pero necesito realizarlo para un libro de 25000 registros.
Espero puedan ayudarme!

1 Respuesta

Respuesta
1
Supongo que ABCD son columnas
No entendí muy bien lo de Necesito identificar dentro del rango de A, las referencias iguales en B, se supone que en A tienes el departamento y en B las referencias, entonces no pueden haber datos iguales en A y B.
Se puede sacar las que son iguales en B y condicionarlas con C y DE para que arroje Conciliado o Pendiente, pero entonces A que onda... ¿qué es lo que se debe encontrar? ¿El departamento en B? ¿Deparamento es un numero letra o que?
Perdón que no te comprenda del todo bien, pero si me explicaras te podría ayudar
Tienes razón el planteamiento no fue claro.
En la columna A tengo departamentos por ejemplo: "Mercados", "Ventas", "sistemas", etc., en la columna B tengo un numero de referencia que se asigna a cada Gasto, en C solo tengo datos cuando el gasto es un Cargo, en DE solo tengo datos cuando es un Abono.
Necesito Identificar por ejemplo: del los movimientos en la cuneta de "Mercados" columna A, cuales tienen en la columna B el mismo numero de referencia, y cuando localice 2 con la misma referencia identifique si el monto en la columna C "Cargos" de la primera, corresponde con el monto en la columna DE "Abonos"
Espero haberlo planteado mejor, ¿crees poderme ayudar?
Es un poquito más de lo que pensaba, pero claro que puedo ayudarte...
Un favor... mandame el archivo a [email protected], si es información confidencial a algo así manda datos falsos o inventados (necesito saber como están ordenados tus datos exactamente, pues lo que necesitas es una macro).
Te lo hago llegar, muchas gracias!
Ya lo envíe por correo,
en la primer celda:
=si(si(c2=0,d2,c2)=si.error(buscarv(b2,b3:$d$55,si(buscarv(b2,b3:$d$55,2,falso)=0,3,2),falso),"pendiente"),"conciliado",si.error(buscarv(b2,b3:$d$55,si(buscarv(b2,b3:$d$55,2,falso)=0,3,2),falso),"pendiente"))
en las posteriores:
=si.error(buscarv(b3,$b$2:e2,4,falso),si(si(c3=0,d3,c3)=si.error(buscarv(b3,b4:$d$55,si(buscarv(b3,b4:$d$55,2,falso)=0,3,2),falso),"pendiente"),"conciliado",si.error(buscarv(b3,b4:$d$55,si(buscarv(b3,b4:$d$55,2,falso)=0,3,2),falso),"pendiente")))
Ya lo recibí, gracias
Efectivamente me funciona el resultado que me enviaste, pero no tengo la actualización a 2007, ¿se podrá hacer algo para 2003?
Saludos.
Envío macro por correo...
Sheets(1).Range("B2").Select
If ActiveCell.Offset(0, 1) = 0 Then
valorceldaactual = ActiveCell.Offset(0, 2)
Else
valorceldaactual = ActiveCell.Offset(0, 1)
End If
buscardesde = ActiveCell.Offset(1, 0).Address
buscarhasta = Range(buscardesde).End(xlDown).Address
If Sheets(1).Range(buscardesde, buscarhasta).Find(ActiveCell) Is Nothing Then
ActiveCell.Offset(0, 3) = "PENDIENTE"
Else
celdacoincidencia = Sheets(1).Range(buscardesde, buscarhasta).Find(ActiveCell).Address
If Range(celdacoincidencia).Offset(0, 1) = 0 Then
valorcoincidencia = Range(celdacoincidencia).Offset(0, 2)
Else
valorcoincidencia = Range(celdacoincidencia).Offset(0, 1)
End If
If valorceldaactual = valorcoincidencia Then
ActiveCell.Offset(0, 3) = "CONCILIADO"
End If
End If
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""
celdaactual = ActiveCell.Address
If ActiveCell.Offset(0, 1) = 0 Then
valorceldaactual = ActiveCell.Offset(0, 2)
Else
valorceldaactual = ActiveCell.Offset(0, 1)
End If
buscardesde1 = Range("B2").Address
buscarhasta1 = ActiveCell.Offset(-1, 0).Address
buscardesde = ActiveCell.Offset(1, 0).Address
buscarhasta = Range(buscardesde).End(xlDown).Address
If Not Sheets(1).Range(buscardesde1, buscarhasta1).Find(ActiveCell) Is Nothing Then
Sheets(1).Range(buscardesde1, buscarhasta1).Find(ActiveCell).Offset(0, 3).Select
Selection.Copy
Range(celdaactual).Offset(0, 3).PasteSpecial
Range(celdaactual).Select
ElseIf Sheets(1).Range(buscardesde, buscarhasta).Find(ActiveCell) Is Nothing Then
ActiveCell.Offset(0, 3) = "PENDIENTE"
Else
celdacoincidencia = Sheets(1).Range(buscardesde, buscarhasta).Find(ActiveCell).Address
If Range(celdacoincidencia).Offset(0, 1) = 0 Then
valorcoincidencia = Range(celdacoincidencia).Offset(0, 2)
Else
valorcoincidencia = Range(celdacoincidencia).Offset(0, 1)
End If
If valorceldaactual = valorcoincidencia Then
ActiveCell.Offset(0, 3) = "CONCILIADO"
End If
End If
ActiveCell.Offset(1, 0).Select
Wend
Application.CutCopyMode = False

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ayuda con código visual basic (userform)

Gracias por tomarse la molestia de leer mi duda pero ya llevo días y no consigo hacer que funcione. Tengo una hoja en excel 2010 llamada "Captura" con columnas desde "A" hasta "-k-" y las filas son variables debido a que van aumentando conforme se...
1 respuesta

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Macro para comparar dos hojas y obtener diferencias

No puedo dar con el código correcto para poder comparar dos hojas de calculo del mismo libro, básicamente se conforma de tres columnas, código, cantidad y articulo, es para un inventario, la hoja1 es el primer conteo y la hoja dos es el muestreo...
1 respuesta

Optimizar macro

La verdad soy nuevo con las macros asi que no se mucho de códigos, pero quisiera poder optimizar el siguiente código., ya que, si realiza la tarea que necesito pero me parece que puede optimizarse; lo que más necesito es que cuando ya tengo muchos...
2 respuestas

Copiar rango de celdas según condición VBA

Necesito de su ayuda en lo siguiente, quiero copiar un rango de celdas y pegarlas en otra ubicación solo si cumple una condición, por ejemplo tengo una columna digamos B:B la cual tiene valores como nombres de personas en cada celda por ejemplo b1 =...
2 respuestas

¿Textbox No suma Decimales?

Hla, tengo un formulario con 4 textbox alineados en dos columnas de dos textbox c/u y un botón entre ellos, o que hace mi formulario es esto: Escribo un Valor en el Textbox1, presiono el botón que esta entre los dos textbox, el botón busca ese valor...
3 respuestas

Macro. Copiar filas según condición.

Agradecería también que me ayudara en este otro macro, he separado los dos mensajes para que la respuesta no sea demasiado compleja. Tengo una hoja en la que se han introducido una serie de registros. Quisiera copiar en otra hoja sólo aquellas filas...
1 respuesta

BUSCARV Referencia al address de celda-resultado

Supongamos que usando BUSCARV me da como resultado el valor de una celda de la matriz en la que he realizado la búsqueda ¿Cómo puedo referirme a la dirección (address) de la celda al margen de su valor? Es decir a la celda como objeto.
1 respuesta

Macro para copiar según nombre de hoja

Tengo una macro con una hoja de registros por filas (hoja total), de esta hoja, con una macro paso los registros que tienen el la columna B:B el nombre de una hoja, a la correspondiente hoja. Esta es la mcro que repito para cada nombre de hoja: Sub...
1 respuesta

Celda Activa, presionar enter para disparar Macro

Quiero hacer una macro que al dar ENTER en una celda dispare una macro, en la hoja "AL 1-MAR-08" en la columna A escribo un código, lo que hace la macro es buscar ese código en otra hoja "CATALOGO PROD", al encontrarlo, brinca 1 columna y el valor de...
1 respuesta