Plan De Cuentas Contables Venezuela Excel Vba [updated]
Recuerda que el archivo de Excel debe salvarse obligatoriamente con la extensión .xlsm (Libro de Excel habilitado para macros). De lo contrario, todo el código programado se borrará al cerrar el archivo.
A diferencia de otros países, Venezuela no posee un "Plan de Cuentas Único" de aplicación obligatoria para todos los sectores. La Federación de Colegios de Contadores Públicos de Venezuela (FCCPV) promueve la adaptación de los Principios de Contabilidad Generalmente Aceptados (PCGA) a las Normas Internacionales de Información Financiera (NIIF). No obstante, existen regulaciones sectoriales clave que definen la estructura contable que debes considerar.
' Agregar nueva fila ultimaFila = ultimaFila + 1 ws.Cells(ultimaFila, 1).Value = nuevoCodigo ws.Cells(ultimaFila, 2).Value = nombreCuenta ws.Cells(ultimaFila, 3).Value = nuevoNivel ws.Cells(ultimaFila, 4).Value = codPadre ws.Cells(ultimaFila, 5).Value = rngPadre.Offset(0, 4).Value ' Hereda naturaleza ws.Cells(ultimaFila, 6).Value = "Monetaria" ' Default ws.Cells(ultimaFila, 7).Value = "SI"
Un plan de cuentas en Venezuela debe alinearse con las macro-reglas de la contabilidad nacional. Esto incluye la adopción de las VEN-NIF (Normas de Información Financiera de Venezuela), adoptadas por la Federación de Colegios de Contadores Públicos de Venezuela (FCCPV), diferenciando entre VEN-NIF GE (Grandes Entidades) y VEN-NIF PYME. Niveles de Codificación Estándar
Private Sub txtBuscar_Change() Dim ws As Worksheet Set ws = Sheets("Catalogo") Dim lastRow As Long lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row lstCuentas.Clear For i = 2 To lastRow If UCase(ws.Cells(i, 2).Value) Like "*" & UCase(txtBuscar.Value) & "*" Then lstCuentas.AddItem ws.Cells(i, 1).Value & " - " & ws.Cells(i, 2).Value End If Next i End Sub Use code with caution. plan de cuentas contables venezuela excel vba
She had built a monster. A macro called .
¿Quieres que genere un modelo de plan de cuentas contables para Venezuela en formato Excel con macros VBA incluidas? Asumo que sí; crearé:
Sub AgregarCuentaContable() Dim ws As Worksheet Dim codigo As String, nombre As String, nivel As Integer, naturaleza As String Dim ultimaFila As Long Set ws = ThisWorkbook.Sheets( "PlanCuentas" ' Captura de datos (puedes usar un UserForm para esto) codigo = InputBox( "Ingrese el Código de la cuenta (Ej: 1.1.01.02):" ) nombre = UCase(InputBox( "Ingrese el Nombre de la cuenta:" )) nivel = InputBox( "Ingrese el Nivel (1-5):" ) naturaleza = InputBox( "Ingrese Naturaleza (Deudora/Acreedora):" ' Validación básica If codigo = Or nombre = Then Exit Sub
Al diseñar el plan de cuentas en Excel, debes incluir subcuentas específicas para el control tributario venezolano: Recuerda que el archivo de Excel debe salvarse
' If the bolívar dies, uncomment Sub ReindexInCrypto()
Un sistema multiempresa con paneles profesionales diseñado para gestionar la contabilidad completa en Excel VBA Accounting en YouTube Plantillas de Microsoft:
rutaArchivo = ThisWorkbook.Path & "\Plan_Cuentas_Venezuela_" & Format(Date, "yyyymmdd") & ".csv" archivoNum = FreeFile
Once the account listing is complete, this database can be used to filter transactions and validate user entries. La Federación de Colegios de Contadores Públicos de
Diseña tu plan base utilizando como referencia los catálogos de cuentas sugeridos por la Federación de Colegios de Contadores Públicos de Venezuela (FCCPV).
Sub FormatearPlanDeCuentas() Dim ws As Worksheet Dim uFila As Long Dim i As Long Dim codigo As String Dim puntos As Integer Dim nivel As Integer Set ws = ThisWorkbook.Sheets("PlanCuentas") uFila = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False For i = 2 To uFila codigo = Trim(ws.Cells(i, 1).Value) ' Contar los puntos en el código para determinar el nivel jerárquico puntos = Len(codigo) - Len(Replace(codigo, ".", "")) nivel = puntos + 1 ' Asignar el nivel en la columna D ws.Cells(i, 4).Value = nivel ' Aplicar formato visual según el nivel With ws.Cells(i, 2) .InsertIndent nivel - 1 ' Aplica sangría según el nivel If nivel <= 3 Then .Font.Bold = True ' Cuentas de nivel superior en negrita Else .Font.Bold = False End If End With Next i Application.ScreenUpdating = True MsgBox "Plan de cuentas formateado con éxito.", vbInformation, "Contabilidad Venezuela" End Sub Use code with caution.
The screen flickered. Excel froze for 14 seconds—long enough for her heart to stop. Then, like a miracle:
Para que el código VBA funcione sin errores, la hoja de cálculo llamada PlanCuentas debe tener un formato de tabla limpia. Las columnas esenciales son: Descripción Tipo de Cuenta Nivel Naturaleza Moneda Activo Corriente 1.1.01.01.001 Banco de Venezuela 1.1.01.02.001 Banesco Account USD 3. Automatización con Excel VBA (Código Fuente)
