Seleccion Multiple en Excel – Ejemplo

Requiere un Formulario y dentro un listbox y boton

Private Sub cmdSalir_Click()
fila = 2
For i = 0 To listmeses.ListCount – 1
If listmeses.Selected(i) Then
Cells(fila, “A”) = listmeses.List(i)
fila = fila + 1
End If
Next i
Unload Me
End Sub

Private Sub UserForm_Initialize()
listmeses.RowSource = “tblmeses”
End Sub

Patrocinado por:

Libertad Financiera en 90 dias!

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *