Private Sub txtBusqueda_Change() Dim fila As Long lstCuentas.Clear For fila = 2 To Sheets("PlanDeCuentas").Cells(Rows.Count, 1).End(xlUp).Row If InStr(1, LCase(Sheets("PlanDeCuentas").Cells(fila, 2)), LCase(txtBusqueda.Text)) > 0 Then lstCuentas.AddItem Sheets("PlanDeCuentas").Cells(fila, 1) & " - " & Sheets("PlanDeCuentas").Cells(fila, 2) End If Next fila End Sub Use code with caution.
wsOutput.Cells(i - 1, 1).Value = indent & wsPlan.Cells(i, 1).Value wsOutput.Cells(i - 1, 2).Value = wsPlan.Cells(i, 2).Value Next i plan de cuentas contables venezuela excel vba
Elena wasn’t a programmer. But desperation is the mother of invention. Over three years, she had learned to whisper to Excel in VBA—the ancient language of Range , For Each , and Dictionary objects. Private Sub txtBusqueda_Change() Dim fila As Long lstCuentas
She had built a monster. A macro called . Over three years, she had learned to whisper
Para que el plan de cuentas sea funcional y dinámico, puedes implementar macros que agilicen la búsqueda y selección de códigos. 1. Tabla de Datos Crea una hoja llamada Catalogo con las siguientes columnas: