' Escribir datos For i = 2 To ultimaFila linea = ws.Cells(i, 1).Value & "," & _ ws.Cells(i, 2).Value & "," & _ ws.Cells(i, 3).Value & "," & _ ws.Cells(i, 4).Value & "," & _ ws.Cells(i, 5).Value & "," & _ ws.Cells(i, 6).Value & "," & _ ws.Cells(i, 7).Value Print #archivoNum, linea Next i
| A | B | C | D | E | F | G | |---|---|---|---|---|---|---| | Codigo | Nombre | Nivel | CodPadre | Naturaleza | TipoInflacion | Activa | | 1 | ACTIVO | 1 | | Debe | Monetaria | SI | | 11 | ACTIVO CORRIENTE | 2 | 1 | Debe | Monetaria | SI | | 1101 | CAJA | 3 | 11 | Debe | Monetaria | SI | Aquí pondremos botones, mensajes y parámetros del usuario. 4. Macros VBA esenciales para el Plan de Cuentas Venezolano 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. Macro 1: Validar estructura jerárquica (Evita cuentas huérfanas) Sub ValidarJerarquia() Dim ws As Worksheet Dim ultimaFila As Long Dim i As Long Dim codigoActual As String Dim nivelActual As Integer Dim codPadre As String Dim errorMsg As String Set ws = ThisWorkbook.Sheets("Maestro_Cuentas") ultimaFila = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row plan de cuentas contables venezuela excel vba
' 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 ' Escribir datos For i = 2 To ultimaFila linea = ws
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. Para usar este código: Presiona Alt + F11