Anónimo
Cargar datos de una hoja al listbox
Para Dante Amor.
El listbox debe capturar los datos asociados al código de la columna T, los datos que van en el listbox son las columnas I, J, K, luego de esto se selecciona uno y al presionar en solucionado debe cambiar el estado de pendiente a solucionado y asignarle la fecha de solucionado.
1 respuesta
H o l a:
Te anexo la macro para filtrar los registros que según el Txtpostventas coinciden con lo que está en la columna "T"; y carga en el listbox las columnas I, J y K
Private Sub BUSCAR_Click()
'Por.Dante Amor
Set h = Sheets("CUADRO DE LOCATIVAS")
With CODLOCATIVAS
.Clear
.AddItem "CODIGO": .List(.ListCount - 1, 1) = "DESCRIPCION": .List(.ListCount - 1, 2) = "GRUPO"
For i = 4 To h.Range("T" & Rows.Count).End(xlUp).Row
If Cells(i, "T") = Txtpostventas And Cells(i, "I") <> "" And Cells(i, "N") = 1 Then
.AddItem h.Cells(i, "I")
.List(.ListCount - 1, 1) = h.Cells(i, "J")
.List(.ListCount - 1, 2) = h.Cells(i, "K")
.List(.ListCount - 1, 3) = i
End If
Next
End With
End SubCon esta instrucción ".List(.ListCount - 1, 3) = i" estoy cargando el número de fila, así cuando lo seleccionas en el listbox ya sabremos a qué fila corresponde y de esa forma poder modificar sus datos.
Lo siguiente que necesitas:
"
Luego de esto se selecciona uno y al presionar en solucionado debe cambiar el estado de pendiente a solucionado y asignarle la fecha de solucionado
"
Corresponde a otra petición. Con mucho gusto te ayudo con todas tus peticiones.
Valora esta respuesta y crea una nueva pregunta en el tema de microsoft excel, en el desarrollo de la pregunta escribe: "para Dante Amor", también me describes en cuál columna se cambia de "pendiente" a "solucionado" y en dónde se pone la fecha.
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )