' Agregar nueva fila ultimaFila = ultimaFila + 1 ws.Cells(ultimaFila, 1).Value = nuevoCodigo ws.Cells(ultimaFila, 2).Value = nombreCuenta ws.Cells(ultimaFila, 3).Value = nuevoNivel ws.Cells(ultimaFila, 4).Value = codPadre ws.Cells(ultimaFila, 5).Value = rngPadre.Offset(0, 4).Value ' Hereda naturaleza ws.Cells(ultimaFila, 6).Value = "Monetaria" ' Default ws.Cells(ultimaFila, 7).Value = "SI"
La hoja de cálculo debe contener las siguientes columnas para que la macro funcione correctamente: Denominación Tipo (Naturaleza) ACTIVO CORRIENTE EFECTIVO Y EQUIVALENTES Caja Chica 2. Automatización con VBA (Macro para insertar cuentas) plan de cuentas contables venezuela excel vba
Al diseñar el plan en Excel, es crítico incluir cuentas específicas para la gestión de impuestos locales: ' Agregar nueva fila ultimaFila = ultimaFila + 1 ws
' 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 1).Value = nuevoCodigo ws.Cells(ultimaFila
Sub BuscarCuenta() Dim codigo As String Dim cuenta As Range codigo = InputBox("Ingrese el código de la cuenta:") ' Supone que el plan está en la Hoja1, columna A Set cuenta = Sheets("PlanCuentas").Range("A:A").Find(codigo, LookIn:=xlValues) If Not cuenta Is Nothing Then MsgBox "Cuenta encontrada: " & cuenta.Offset(0, 1).Value Else MsgBox "El código no existe en el plan de cuentas." End If End Sub Use code with caution. Copied to clipboard
If you don’t have the list yet:
