Macro Excel actualización masiva de registros mostrados ListBox.
Tengo macro que me permite filtrar mediante un Userform y un listBox. Del cual me podrían apoyar para ver si se puede actualizar simultáneamente los registros mostrados en este listBox obviamente se actualizara con la misma información.
Les dejo la macro.
'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)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Cells(i, j).Offset(0, 8)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 9) = Cells(i, j).Offset(0, 10)
End If
Next i
Exit Sub
Errores:
MsgBox "No se encuentra.", vbExclamation, "CONTROL PANALPINA"
End Sub
Private Sub CommandButton3_Click()
If Me.ListBox1.ListIndex < 0 Then
MsgBox "NO HA SELECCIONADO NINGUN REGISTRO", vbExclamation, "CONTROLPANALPINA"
Else
Actualizacion.Show
' Modificar.Show
End If
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
valor = Me.ListBox1.List(i)
Rango.Find(What:=valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If
Next i
Hola buenas tardes, tú macro se ve muy interesante, crees que me puedas decir cómo la hiciste? gracias - Roxana Baez Garcia
A qué te refieres con "cómo la hiciste?". Tienes alguna duda en especifico sobre alguna línea de la macro? - Dante Amor