Plan De Cuentas Contables Venezuela Excel Vba [hot] 【2026】

She smiled. The Plan de Cuentas Contables was a beast born of chaos: seven layers of numbering, political whims, and economic collapse. But inside Excel, inside a 1,200-line VBA module named "Esperanza" (Hope), she had tamed it.

If Not findCode Is Nothing Then MsgBox "El código " & txt_Codigo.Value & " ya existe.", vbExclamation Exit Sub End If plan de cuentas contables venezuela excel vba

Every month, she had to:

Private Sub txtBusqueda_Change() Dim fila As Long Dim criterio As String criterio = LCase(Me.txtBusqueda.Value) Me.lstCuentas.Clear fila = 2 ' Suponiendo que los datos empiezan en la fila 2 Do While Sheets("Catalogo").Cells(fila, 1) <> "" If InStr(LCase(Sheets("Catalogo").Cells(fila, 2)), criterio) > 0 Then Me.lstCuentas.AddItem Sheets("Catalogo").Cells(fila, 1) & " - " & Sheets("Catalogo").Cells(fila, 2) End If fila = fila + 1 Loop End Sub Use code with caution. Copied to clipboard Recursos y Plantillas Disponibles She smiled

Progecad 2021 Download






She smiled. The Plan de Cuentas Contables was a beast born of chaos: seven layers of numbering, political whims, and economic collapse. But inside Excel, inside a 1,200-line VBA module named "Esperanza" (Hope), she had tamed it.

If Not findCode Is Nothing Then MsgBox "El código " & txt_Codigo.Value & " ya existe.", vbExclamation Exit Sub End If

Every month, she had to:

Private Sub txtBusqueda_Change() Dim fila As Long Dim criterio As String criterio = LCase(Me.txtBusqueda.Value) Me.lstCuentas.Clear fila = 2 ' Suponiendo que los datos empiezan en la fila 2 Do While Sheets("Catalogo").Cells(fila, 1) <> "" If InStr(LCase(Sheets("Catalogo").Cells(fila, 2)), criterio) > 0 Then Me.lstCuentas.AddItem Sheets("Catalogo").Cells(fila, 1) & " - " & Sheets("Catalogo").Cells(fila, 2) End If fila = fila + 1 Loop End Sub Use code with caution. Copied to clipboard Recursos y Plantillas Disponibles