Actividad pública reciente
Ha valorado "Excelente" la respuesta
Checkbox
Con: Dim i As Integer Dim cad As String MsgBox List1.SelCount For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then cad = cad & List1.List(i) & ", " End If Next i MsgBox cad Puedes tener los valores, al guardar evalúa con un for y guardas...