Plan De Cuentas Contables Venezuela Excel Vba

Muchos contadores venezolanos usan subcuentas como:

VBA permite crear listas desplegables dinámicas para evitar errores en estas cuentas críticas.

Elena stared at the spreadsheet on her screen. It was 11:47 PM. The Plan de Cuentas Contables de Venezuela—the official chart of accounts mandated by the SUNDDE and the FISCAL-i system—spread across 47 sheets like a drunk centipede. plan de cuentas contables venezuela excel vba

Every month, she had to:

Her assistant, José, quit last week. His farewell message: "Elena, I’d rather sell tequeños from a cart than touch another VLOOKUP." Muchos contadores venezolanos usan subcuentas como:

She laughed bitterly. Then she opened the Visual Basic for Applications (VBA) editor.

| Codigo | Nombre_Cuenta | Tipo | Nivel | Naturaleza | Acumula | Estado | |--------|---------------|------|-------|------------|---------|--------| | 1 | ACTIVO | Activo | 1 | Deudora | SI | Activo | | 1.1 | ACTIVO CORRIENTE | Activo | 2 | Deudora | SI | Activo | | 1.1.01 | Caja | Activo | 3 | Deudora | NO | Activo | VBA permite crear listas desplegables dinámicas para evitar

Sub RegistrarAsiento()
    Dim codigoDebito As String, codigoCredito As String
    Dim monto As Double
codigoDebito = Range("E2").Value
codigoCredito = Range("F2").Value
monto = Range("G2").Value
If ValidarCuenta(codigoDebito) And ValidarCuenta(codigoCredito) Then
    Sheets("Transacciones").Cells(Sheets("Transacciones").Rows.Count, 1).End(xlUp).Offset(1, 0).Value = _
        Array(Date, "C-001", codigoDebito, monto, 0, "Asiento VBA")
    Sheets("Transacciones").Cells(Sheets("Transacciones").Rows.Count, 1).End(xlUp).Offset(1, 0).Value = _
        Array(Date, "C-001", codigoCredito, 0, monto, "Asiento VBA")
    MsgBox "Asiento registrado correctamente"
Else
    MsgBox "Error: Cuenta no válida"
End If

End Sub