Macro de Excel para Conciliaci贸n de cuentas bancarias

Conciliaci贸n Bancaria
Conciliaci贸n Bancaria

Este ejemplo de macro que voy a exponerles el d铆a de hoy, es una aplicaci贸n sencilla para hacer una conciliaci贸n de cuentas bancarias, es decir, comparar para ver que todos los registros que tenemos en contabilidad,  se ven reflejados en movimientos de los extractos bancarios.

Esta macro se encargar谩 de comparar los valores de contabilidad y los bancos, con el fin de mostrarnos d贸nde hay coincidencias, y en donde hay diferencias, para que una vez filtradas, podamos empezar a indagar la raz贸n de estas discrepancias.

Te invitamos a seguir leyendo las siguientes p谩ginas sobre c贸mo construir esta macro:


Estructura de la informaci贸n


Entrando en materia, creamos una hoja de Excel, donde ponemos en la columna A, los datos que tenemos en Contabilidad, y en la columna C, los datos de los extractos bancarios:

Conciliaci贸n de cuentas bancarias
Conciliaci贸n de cuentas bancarias

Creamos un bot贸n al lado de estos datos, para correr la macro cuando tengamos los datos disponibles:

Bot贸n para la conciliaci贸n de cuentas bancarias
Bot贸n para la conciliaci贸n de cuentas bancarias

C贸digo VBA de la macro


Ahora creamos las siguientes macros:

' Macro que se encarga de comparar los datos de de consignaciones en Contabilidad, 
' contra los registros de los extractos bancarios

Sub conciliar()
 

Dim f As Integer, c As Integer, tmp As Integer, j As Integer
Dim encontrado As Boolean

f = 2
j = 2
tmp = 2

'Se limpian las columnas B y D y se ordenan ascendentemente los datos en las columnas A y C
Call limpiar

' Ahora se recorren uno a uno los registros de contabilidad de la columna A
While (ActiveSheet.Cells(f, 1) <> "")
    encontrado = False
    j = tmp

' Para cada registro de contabilidad de la columna A, se comparan con los registros 
' de bancos en la columna C
    While (ActiveSheet.Cells(j, 3) <> "") And Not encontrado And ActiveSheet.Cells(j, 4) = ""
        If ActiveSheet.Cells(f, 1) = ActiveSheet.Cells(j, 3) Then

' Una vez se encuentra coincidencia en los valores, se marca en la columna D la fila de coincidencia,
' en contabilidad
            encontrado = True
            ActiveSheet.Cells(j, 4) = f
            tmp = j + 1
        End If
        j = j + 1
    Wend

' Si luego de recorrer la columna de bancos, el registro de contabilidad no se encuentra,
' se marca con el s铆mbolo $ en la columna B
    If Not encontrado Then
        ActiveSheet.Cells(f, 1).Interior.ColorIndex = 6
        ActiveSheet.Cells(f, 2) = "$"
    End If
    f = f + 1
Wend

f = 2

' Los registros de bancos, no coincidentes, se marcan con un color magenta y el s铆mbolo #
While (ActiveSheet.Cells(f, 3) <> "")
    If ActiveSheet.Cells(f, 4) = "" Then
        ActiveSheet.Cells(f, 4) = "#"
        ActiveSheet.Cells(f, 3).Interior.ColorIndex = 7
    End If
    f = f + 1
Wend

End Sub
Sub limpiar()
'
' Esta macro se encarga de limpiar las columnas B y D, y ordenar en forma ascendente,
' los datos de las columnas A y C

    Range("B:B").Select
    Selection.Clear
    Range("D:D").Select
    Selection.Clear
    Cells.Select
    Selection.Interior.ColorIndex = xlNone
    Range("A1").Select
    Call ordenacion
End Sub
Sub ordenacion()

'Esta macro ordena en forma ascendente los datos de las columnas A y C
    Columns("A:A").Select
    Range("A1").Activate
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Columns("C:C").Select
    Range("C1").Activate
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlYes _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Finalmente asignamos la macro conciliar(), al bot贸n Conciliar que creamos en la hoja de excel.

Tambi茅n puedes leer Encontrar datos repetidos en una tabla de Excel o de una base de datos


Resultados de la conciliaci贸n


As铆 pues al oprimir el bot贸n Conciliar,  obtenemos unos resultados tal y como se muestra a continuaci贸n:

Resultados de la conciliaci贸n de cuentas bancarias
Resultados de la conciliaci贸n de cuentas bancarias

Si filtramos la columna B con el s铆mbolo $, encontramos los registros que est谩n en contabilidad, pero no se ven en bancos:

Si ahora filtramos por la columna D con el s铆mbolo #, encontramos los registros de bancos que no est谩n en la contabilidad:

Con este ejemplo quise ilustrar la forma en la que un proceso manual de comparaci贸n, se puede automatizar f谩cilmente con Excel, para hacer m谩s r谩pido el proceso, minimizando la cantidad de errores humanos.

Tambi茅n te puede interesar el art铆culo Consolidar varias hojas de Excel con datos de ventas en una sola hoja

Este art铆culo hace parte del servicio de divulgaci贸n de conocimiento econ贸mico de Vendiendo.co.


Vendiendo Software POS
Vendiendo Software POS

Vendiendo.co es un servicio para tu punto de venta, muy sencillo de manejar, muy econ贸mico, con grandes prestaciones para ayudarte a crecer tu negocio.

Ven y con贸cenos hoy mismo en www.vendiendo.co.


Si te gust贸 este art铆culo, por favor no te olvides compartirlo en las redes sociales. Thnks 馃槈

Deja un comentario

Tu direcci贸n de correo electr贸nico no ser谩 publicada.