Anónimo
Seleccionar un elemento de un listbox y cambiar su estado en excel.
Para Dante Amor.
Debo seleccionar un elemento del listbox(CODLOCATIVAS) y al presionar el boton solucionado(SOLUC) me debe poner la fecha de solucionado(FECSOLU) en la columna P, en la columna L poner 1 y en la N un 0.
En este caso no tengo código aún porque no he encontrado la forma de hacerlo.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Private Sub SOLUC_Click()
'Por.Dante Amor
If CODLOCATIVAS.ListCount = 0 Or CODLOCATIVAS.ListIndex < 1 Then
MsgBox "Selecciona un registro", vbExclamation
Exit Sub
End If
'
Set h = Sheets("CUADRO DE LOCATIVAS")
fila = CODLOCATIVAS.List(CODLOCATIVAS.ListIndex, 3)
h.Cells(fila, "P") = FECSOLU
h.Cells(fila, "L") = 1
h.Cells(fila, "N") = 0
BUSCAR_Click
MsgBox "Registro actualizado", vbInformation, "ACTUALIZAR REGISTROS"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )