Actualización: modificar tabla de Excel mediante ListBox con datos filtrados

Raúl says:

Hola Sergio estuve viendo este ejemplo, que me parece buenisimo.!. Veo que al seleccionar un registro y querer modificarlo o eliminarlo no trae el seleccionado sino el primero de los registros (el que esta en A2). Soy novato en el tema e intente algunas cosas para solucionarlo pero no pude.
Por favor cuando lo soluciones me avisas.
Muchas GRacias por difundir tus conocimientos.!!

Jose says:

Hola que tal, me puedes explicar un poco mas elcodigo ya que soy nuevo en esto,
esta parte no le entiendo como selecciono que columna agarrar por ejemplo si quiero agarrar la primera ?

If Me.txtFiltro1.Value = “” Then Exit Sub
Me.ListBox1.Clear
j = 1
For i = 1 To 18
If Cells(i, j).Offset(0, 2).Value = CInt(Me.txtFiltro1.Value) Then
Me.ListBox1.AddItem Cells(i, j)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 1) = Cells(i, j).Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 2) = Cells(i, j).Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 3) = Cells(i, j).Offset(0, 3)
Else
End If

EN MI CASO tengo estas columnas

Id_Empleado Empleado Dpto Permiso Fecha CIudad

Gerardo says:

Hola sergio….amigo tu página esta excelente….gracias por la info

Ok me ha encantado este ejemplo, quiero aplicarlo al proyecto que estoy llevando que es de contabilidad

mis campos son:

ID-DIA-MES-AÑO-CTA-DESCRIPCION-REFERENCIA-DEBITO-CREDITO-DEPARTAMENTO-PAIS-FAMILIA-PRODUCTO

debo hacer el filtro por CTA (CUENTA) y por MES

Mi hoja que contiene la base de datos que capturo se llama “BD” y va desde “A3” hasta “M20”

los datos a filtrar lo hago desde un combobox que contiene la lista de las cuentas y otro que contiene la lista de los meses.

Comenze a modificar tu codigo asi:

Sheets(“BD”).Select
Me.ListBox1.Clear
j = 6
For i = 3 To 20
If Cells(i, j).Offset(0, 2).Value = Me.cmb_cta.Value Then
Me.ListBox1.AddItem Cells(i, j)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 1) = Cells(i, j).Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 2) = Cells(i, j).Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 3) = Cells(i, j).Offset(0, 3)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 4) = Cells(i, j).Offset(0, 4)
End If
Next i

plz..ayudame con esto hermano…

saludos…

Saryio SD says:

Buenas Sergio, lo primero felicitarte por este blog el cual a mi personalmente y seguro que a muchos mas nos ayuda a entender y utilizar de forma eficiente Excel.
La verdad es que tu ejemplo me sirvió como base de una base de datos que estoy creando el problema es que e ido modificandolo (con tu permiso jeje) y e llegado a algunos puntos muertos…, te dejo mi correo electrónico para poder enviarte un ejemplo y clarificarte mejor mis problemas, no tendría inconveniente en colgar posteriormente mi ejemplo para ayudar a otros, pero yo no puedo por aquí

Muchas gracias de antemano

MI correo es saryio@gmail.com

Mercurio Mo says:

Hola.
He revisado tus posts en busca del error que atormenta mi trabajo y que describo en el siguiente video:

Sucede que al utilizar el ListBox para buscar un registro y seleccionarlo, no me activa la celda correspondiente y por lo tanto al presionar el botón de modificar, me carga otros datos en el formulario.

Aquí está mi código:

Private Sub CommandButton6_Click()
FModificar.Show

End Sub

‘Cambia el TextBox con cada cambio en el Combo
‘
Private Sub cmbEncabezado_Change()
Me.lblFiltro = “Filtro por ” & Me.cmbEncabezado.Value
End Sub
‘
‘Cerrar formulario
Private Sub CommandButton2_Click()
Unload Me
End Sub
‘
‘
‘Mostrar resultado en ListBox
Private Sub CommandButton5_Click()
On Error GoTo Errores
If Me.txtFiltro1.Value = “” Then Exit Sub
Me.ListBox1.Clear

Columna = Me.cmbEncabezado.ListIndex

j = 1
Filas = Range(“a1”).CurrentRegion.Rows.Count
For i = 2 To Filas
If LCase(Cells(i, j).Offset(0, CInt(Columna)).Value) Like “*” & LCase(Me.txtFiltro1.Value) & “*” Then
Me.ListBox1.AddItem Cells(i, j)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 1) = Cells(i, j).Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 2) = Cells(i, j).Offset(0, 2)
Me.ListBox1.List(Me.ListBox1.ListCount – 1, 3) = Cells(i, j).Offset(0, 3)
Else
End If
Next i
Exit Sub
Errores:
MsgBox “No se encuentra.”, vbExclamation, “EXCELeINFO”
End Sub
‘
‘Activar la celda del registro elegido
Private Sub ListBox1_Click()
Range(“a2”).Activate
Cuenta = Me.ListBox1.ListCount
Set Rango = Range(“A1”).CurrentRegion
For i = 0 To Cuenta – 1
If Me.ListBox1.Selected(i) Then
MsgBox Me.ListBox1.List(i)
Valor = Me.ListBox1.List(i)
Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If
Next i
End Sub
‘
‘Dar formato al ListBox y traer los encabezados de la tabla
Private Sub UserForm_Initialize()
‘
Sheets(“Puestos”).Select
Range(“A2”).Select
For i = 1 To 4
Me.Controls(“Label” & i) = Cells(1, i).Value
Next i
‘
With Me
.ListBox1.ColumnCount = 4
.ListBox1.ColumnWidths = “60 pt;60 pt;60 pt;60 pt”
.cmbEncabezado.List = Application.Transpose(ActiveCell.CurrentRegion.Resize(1).Value)
.cmbEncabezado.ListStyle = fmListStyleOption
End With
End Sub

Si alguien pudiera ayudarme lo agradecería mucho.