Macro de Excel para Conciliación de cuentas bancarias

Contenidos de la página

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:

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

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:

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.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.