nuevoNivel = nivelPadre + 1 If nuevoNivel > 4 Then MsgBox "Máximo nivel permitido es 4.", vbExclamation Exit Sub End If
' Generar nuevo código Select Case nuevoNivel Case 2 ' Hijo de nivel 1 (ej: 1 -> 11,12,13...) nuevoCodigo = codPadre & Format(maxHijo + 1, "0") Case 3 ' Hijo de nivel 2 (ej: 11 -> 1101,1102...) nuevoCodigo = codPadre & Format(maxHijo + 1, "00") Case 4 ' Hijo de nivel 3 (ej: 1101 -> 110101,110102...) nuevoCodigo = codPadre & Format(maxHijo + 1, "00") End Select
rutaArchivo = ThisWorkbook.Path & "\Plan_Cuentas_Venezuela_" & Format(Date, "yyyymmdd") & ".csv" archivoNum = FreeFile plan de cuentas contables venezuela excel vba
For i = 2 To ultimaFila codigoActual = ws.Cells(i, 1).Value nivelActual = ws.Cells(i, 3).Value codPadre = ws.Cells(i, 4).Value ' Validación: Si nivel > 1, debe tener padre existente If nivelActual > 1 Then If codPadre = "" Then errorMsg = errorMsg & "Fila " & i & ": Cuenta " & codigoActual & " no tiene código padre." & vbCrLf Else ' Buscar que el padre exista en columna A Dim encontrado As Boolean encontrado = False Dim j As Long For j = 2 To ultimaFila If ws.Cells(j, 1).Value = codPadre Then encontrado = True Exit For End If Next j If Not encontrado Then errorMsg = errorMsg & "Fila " & i & ": Código padre " & codPadre & " no existe." & vbCrLf End If End If End If ' Validación: Largo del código según nivel típico Venezuela Select Case nivelActual Case 1: If Len(codigoActual) <> 1 Then errorMsg = errorMsg & "Fila " & i & ": Nivel 1 debe tener 1 dígito." & vbCrLf Case 2: If Len(codigoActual) <> 2 Then errorMsg = errorMsg & "Fila " & i & ": Nivel 2 debe tener 2 dígitos." & vbCrLf Case 3: If Len(codigoActual) < 3 Or Len(codigoActual) > 4 Then errorMsg = errorMsg & "Fila " & i & ": Nivel 3 debe tener 3-4 dígitos." & vbCrLf Case 4: If Len(codigoActual) <> 6 Then errorMsg = errorMsg & "Fila " & i & ": Nivel 4 debe tener 6 dígitos." & vbCrLf End Select Next i
¿El objetivo? Pasar de 1 hora manejando cuentas a 5 minutos. Antes de escribir una sola línea de código VBA, debemos definir la estructura lógica. Según los PCGA venezolanos y la adaptación práctica de las empresas, un plan de cuentas típico sigue este esquema de niveles: nuevoNivel = nivelPadre + 1 If nuevoNivel >
Pero, ¿por qué seguir usando un listado estático en papel o un Excel plano cuando podemos potenciarlo con ?
Introducción: El Desafío del Contador Venezolano Llevar la contabilidad en Venezuela presenta desafíos únicos. Entre la hiperinflación (Normativa del BCV), los requisitos del SENIAT, las declaraciones de ISLR, Retenciones de IVA (76-3) y el cálculo del ajuste por inflación fiscal, la estructura base de todo el sistema sigue siendo la misma: el Plan de Cuentas Contable (PCGA) . Según los PCGA venezolanos y la adaptación práctica
Abre Excel, activa los macros y construye tu propio Plan_Cuentas_Venezuela_VBA.xlsm hoy mismo. Si deseas la versión descargable de esta plantilla con todos los códigos y un ejemplo práctico (incluyendo cuentas típicas venezolanas como Bancos, Proveedores, ISLR por pagar), déjanos tu comentario o escríbenos. La contabilidad eficiente empieza por datos bien estructurados.