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
El plan de cuentas contables es el esqueleto financiero de cualquier empresa. En Venezuela, este documento debe adaptarse a las Normas de Información Financiera (VEN-NIF) y a las exigencias fiscales del SENIAT. Diseñar y gestionar esta estructura de forma manual en Excel puede generar errores de digitación, duplicados y pérdida de tiempo. plan de cuentas contables venezuela excel vba