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
1 respuesta
Hola gracias por la atención y disculpa tal ves fui muy general, en la pantalla anexa tengo un formulario el cual me filtra una base y me muestra el resultado del filtro en un listBox, actualmente con el boton actualizar puedo abrir cada registros y actualizarlo por separado anexo pantalla.
lo que necesito es que con una sola instrucción me actualice por ejemplo en la primera imagen toda la columna (4) llamado documento que me coloque la fecha del día de hoy por mencionar un dato para cada uno de los registros mostrados en el listbox.
Te comparto el archivo.
http://1drv.ms/1STzKmu
Aun esta en desarrollo pero ya esta la estructura.
Saludos y gracias.
¿Vas a poner algo en la columna GUIA?
Te pregunto porque al momento de seleccionar un registro en el listbox tienes esto:
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
Lo que haces es pasar el primer dato del listbox a la variable valor, el primer dato del listbox es el que tienes en la columna GUIA, pero como GUIA está en blanco, entonces valor siempre es blanco; después buscas valor en la hoja, pero como tienes blanco, entonces el cursor se posiciona siempre en la primera celda vacía que encuentra.
Te explico lo anterior, porque cuando filtras información, un registro que está en la fila 5 de la hoja, ahora puede estar en la fila 0 del listbox, entonces hay que buscar el registro del listbox en la hoja, pero tu búsqueda no está funcionando.
Si quieres filtrar y luego modificar todos los registros filtrados, entonces se tiene que buscar uno por uno en la hoja, una vez que lo encuentras ya le puedes modificar la fecha o lo que quieras.
Pero no sé cómo voy a buscar el dato.
Tu código lo está buscando por GUIA, pero no funciona.
En la columna "Documento", tienes registros duplicados así que tampoco podemos utilizar la columna "Documento" para buscar.
¿Tienes alguna otra columna que tenga valores únicos?
A mira sin problema la columna con valor único será "A" guía, solo que no esta llena en el momento como te comento se esta armando este proyecto.
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
Y si es correcto lo que mencionas ahora la cuestión es que con la instrucción anterior solo puedo seleccionar un registro y actualizar solo este, quisiera que se pueda seleccionar varios registros del listbox y mediante un botón u otro formulario actualice como ejemplo la columna ("D" Stop) de cada registro del listbox con un datos "x" que será el mismo para cada registro por ser actualización mutiregistro.
saludos.
Te anexo un botón para rellenar la columna Stop, según los registros que tengas filtrados. La columna Guía deberá estar lleno con el número de fila.
Private Sub CommandButton7_Click() 'Por.Dante Amor If Me.ListBox1.ListCount = 0 Then MsgBox "NO HAY REGISTROS FILTRADOS", vbExclamation, "CONTROLPANALPINA" Exit Sub End If 'ejemplo para actualizar la columna STOP valor = "xyz" 'Esta dato puede ser de un textbox, por ejemplo valor = textbox50 For i = 0 To ListBox1.ListCount - 1 fila = ListBox1.List(i) Cells(fila, "D") = valor Next End Sub
El código es un ejemplo, deberás adaptarlo a lo que necesites cuando sigas armando el proyecto.
Saludos. Dante Amor
Recuerda valorar la respuesta.
Te anexo el archivo para que veas el funcionamiento del botón "Rellenar", está en el formulario "frmBuscar2"
https://www.dropbox.com/s/62dwk7qawyhc1ok/Control%20panalpina%20dam.xlsm?dl=0
Saludos. Dante Amor
Recuerda valorar la respuesta.
Excelente muchas gracias.
lo he implementado y funciona muy bien.
No muchas gracias a ti. me apoyaste mucho..
Saludos.
Para concluir entiendo que el valor único que en este caso es la guia lo adopta cada registro en listbox y al actualizar masivamente o retoma para poderlo realizar. }}saludos.
Así es, si borras o insertas registros debes actualizar la guía con el número de fila de excel.
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