Si el SENIAT introduce una nueva alícuota impositiva (como ocurrió con el IGTF), añadir la subcuenta correspondiente toma segundos, sin esperar actualizaciones del desarrollador del software.
End Sub
Sub ConsolidarPlanCuentas() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("PlanCuentas") Dim UltimaFila As Long UltimaFila = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Dim i As Long, j As Long Dim CodigoPadre As String, CodigoHijo As String Dim SaldoAcumulado As Double ' Limpiar saldos de las cuentas tipo "Total" antes de recalcular For i = 2 To UltimaFila If ws.Range("D" & i).Value = "Total" Then ws.Range("F" & i).Value = 0 End If Next i ' Recorrer el plan de cuentas desde el final hacia arriba For i = UltimaFila To 2 Step -1 If ws.Range("D" & i).Value = "Detalle" Then CodigoHijo = ws.Range("A" & i).Value SaldoAcumulado = ws.Range("F" & i).Value ' Buscar las cuentas padre que coincidan con el inicio del código hijo For j = i - 1 To 2 Step -1 If ws.Range("D" & j).Value = "Total" Then CodigoPadre = ws.Range("A" & j).Value ' Verificar si el código hijo pertenece a la jerarquía del padre If Left(CodigoHijo, Len(CodigoPadre)) = CodigoPadre Then ws.Range("F" & j).Value = ws.Range("F" & j).Value + SaldoAcumulado End If End If Next j End If Next i MsgBox "Consolidación de cuentas ejecutada con éxito.", vbInformation, "SENIAT - Contabilidad" End Sub Use code with caution.
Sitios como Ofimática Empresarial ofrecen herramientas de contabilidad automatizadas con macros para descargar de forma gratuita.
Debes incluir dentro de tu plan de cuentas las cuentas de pasivo específicas para el control de retenciones. Por ejemplo: 2.01.03.01 Retención de IVA por Pagar y 2.01.03.02 Retención de ISLR por Pagar . plan de cuentas contables venezuela excel vba
¿Quieres que genere un modelo de plan de cuentas contables para Venezuela en formato Excel con macros VBA incluidas? Asumo que sí; crearé:
Integrar un con Excel VBA ofrece una solución robusta y a medida para PYMES y contadores independientes. Al automatizar la búsqueda y organización de cuentas, no solo se ahorra tiempo, sino que se asegura la integridad de la información financiera ante la normativa VEN-NIF .
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
codPadre = rngPadre.Value nivelPadre = rngPadre.Offset(0, 2).Value ' Asumiendo nivel en columna C Si el SENIAT introduce una nueva alícuota impositiva
MsgBox "✅ Cuenta creada: " & nuevoCodigo & " - " & nombreCuenta, vbInformation
The most repetitive task in accounting is recording journal entries (asientos contables). A macro can open a user form that takes the following parameters: date, account code, description, debit (Debe), and credit (Haber). The code then validates the account code against the "Plan de Cuentas" sheet, ensures the entry balances, and pastes the data into the "Libro Diario" sheet.
Activos, Pasivos, Patrimonio, Ingresos y Gastos.
Sub GenerarCodigoAutomatico() Dim rngPadre As Range Dim codPadre As String Dim nivelPadre As Integer Dim nuevoNivel As Integer Dim nuevoCodigo As String Dim ultimoHijo As String Dim ws As Worksheet Dim ultimaFila As Long Dim i As Long Dim maxHijo As Long Set ws = ThisWorkbook.Sheets("Maestro_Cuentas") On Error Resume Next Set rngPadre = Application.InputBox("Selecciona la celda del código padre", Type:=8) On Error GoTo 0 Debes incluir dentro de tu plan de cuentas
Para los contadores y administradores en Venezuela , contar con un no es solo una comodidad, sino una necesidad para cumplir con las normativas de las VEN-NIF y las exigencias de entes como el SENIAT o la SUDEASEG.
Un plan de cuentas estándar en Venezuela se organiza de forma jerárquica mediante códigos numéricos que agrupan los elementos financieros:
According to Venezuelan accounting rules (PCGA):
For i = 2 To lastRow Print #1, ws.Cells(i, 1).Value & ";" & _ ws.Cells(i, 2).Value & ";" & _ ws.Cells(i, 3).Value Next i