Esta macro, al ejecutarse, buscaría el nombre de la cuenta basándose en el código ingresado, para completarlo en la columna adyacente. Si bien el siguiente código es genérico, la lógica es aplicable a cualquier plan de cuentas:
' Asignar cuenta correspondiente If codigo Like "100*" Then ' Activo corriente Range("A2").Value = codigo Range("B2").Value = descripcion Range("C2").Value = valor ElseIf codigo Like "300*" Then ' Pasivo corriente Range("A10").Value = codigo Range("B10").Value = descripcion Range("C10").Value = valor End If End Sub
codigo = InputBox("Ingrese el código de la cuenta") descripcion = InputBox("Ingrese la descripción de la cuenta") valor = InputBox("Ingrese el valor de la cuenta")
El para el Libro Diario conectado a este catálogo. plan de cuentas contables venezuela excel vba
Con un formato estandarizado de asientos contables en otra hoja ( Libro_Diario ), puedes generar el para una cuenta específica con esta macro ejemplar del proyecto "Gestor Contable" en Excel:
Sub GenerarNivelesYFormato() Dim ws As Worksheet Dim i As Long Dim ultimoRegistro As Long Dim codigo As String Dim partes() As String Dim nivel As Integer Set ws = ThisWorkbook.Sheets("PlanDeCuentas") ultimoRegistro = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False For i = 2 To ultimoRegistro codigo = Trim(ws.Cells(i, 1).Value) If codigo <> "" Then ' Contar cuántos segmentos separados por puntos existen partes = Split(codigo, ".") nivel = UBound(partes) + 1 ' Asignar el nivel numérico en la columna D ws.Cells(i, 4).Value = nivel ' Aplicar formato visual según el nivel With ws.Cells(i, 2) ' Columna Nombre Cuenta .IndentLevel = nivel - 1 If nivel <= 3 Then .Font.Bold = True ws.Rows(i).Font.Bold = True Else .Font.Bold = False ws.Rows(i).Font.Bold = False End If End With End If Next i Application.ScreenUpdating = True MsgBox "Jerarquía y niveles actualizados correctamente.", vbInformation, "Proceso Completado" End Sub Use code with caution. 4. Integración del Entorno Venezolano en el Modelo
More specific categories (e.g., 1.1.1 for Cash and Equivalents). Esta macro, al ejecutarse, buscaría el nombre de
: A partir de este año, se deben considerar las actualizaciones en las NIIF 18 y 19 , que impactan la presentación de estados financieros y la clasificación de ingresos y gastos operativos. 2. Automatización con Excel y VBA
Bienes y derechos de la entidad (Efectivo, Cuentas por Cobrar, Inventarios, Propiedad, Planta y Equipo).
Antes de escribir código VBA, es necesario preparar la hoja de cálculo que servirá de matriz. Crea una pestaña llamada Plan_Cuentas con las siguientes columnas: : A partir de este año, se deben
Un plan de cuentas robusto en Venezuela debe seguir una jerarquía numérica que facilite la consolidación de estados financieros: Categoría Descripción Ejemplificada Recursos controlados por la entidad. Activo Corriente Efectivo y equivalentes, inventarios. Efectivo y Equivalentes Caja, Bancos Nacionales/Extranjeros. Cuentas de Detalle Banco de Venezuela - Cta. Corriente.
His tool didn't just save time—it became the company’s "single source of truth," proving that in the face of economic complexity, a bit of clever code can be an accountant's best ally. VBA code snippet to help you start automating your own Chart of Accounts?
Aquí tienes una guía detallada y técnica para crear un plan de cuentas automatizado en Excel utilizando VBA, adaptado a la normativa contable vigente en Venezuela (VEN-NIF).
: Cuentas de activo (Retenciones por recuperar) para el control de los comprobantes recibidos de agentes de retención.