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.
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 plan de cuentas contables venezuela excel vba
El plan de cuentas contables se compone de las siguientes partes: Private Sub txtBuscar_Change() Dim ws As Worksheet Set
Se recomienda crear cuentas espejo para las operaciones en divisas. Por ejemplo, 1.1.01.01.01 para Banco Nacional en Bolívares y 1.1.01.01.02 para Banco Nacional en Cuenta Custodia USD. 1).Value = f.Offset(0
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then ' Columna Código de cuenta Dim codigo As String Dim f As Range codigo = Target.Value Set f = Sheets("PlanCuentas").Range("A:A").Find(codigo, LookAt:=xlWhole) If Not f Is Nothing Then Target.Offset(0, 1).Value = f.Offset(0, 1).Value ' Nombre cuenta Target.Offset(0, 2).Value = f.Offset(0, 2).Value ' Naturaleza (DB/CR) Else MsgBox "Código de cuenta no existe en el Plan Contable Venezolano" End If End If End Sub
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