Plan De Cuentas Contables Venezuela Excel Vba -

According to Venezuelan accounting rules (PCGA):

| Tipo | Naturaleza | |------|-------------| | Activo, Gastos | Debe (DB) | | Pasivo, Patrimonio, Ingresos | Haber (CR) | plan de cuentas contables venezuela excel vba

Function ObtenerNaturaleza(codigo As String) As String
    Dim primerDigito As String
    primerDigito = Left(codigo, 1)
    Select Case primerDigito
        Case "1", "5"  ' Activo (1) y Gastos/Costos (5)
            ObtenerNaturaleza = "DB"
        Case "2", "3", "4" ' Pasivo (2), Patrimonio (3), Ingresos (4)
            ObtenerNaturaleza = "CR"
        Case Else
            ObtenerNaturaleza = "Error"
    End Select
End Function

A continuación, el corazón técnico. Para usar este código: Presiona Alt + F11, inserta un módulo, y pega el siguiente VBA. According to Venezuelan accounting rules (PCGA): | Tipo

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

Once you have your plan (e.g., columns: Código, Nombre, Tipo, Naturaleza), you can use VBA to: A continuación, el corazón técnico