Formulario VBA con listbox, selección múltiple, no me funciona correctamente
Buenas Noches,
A través de un formulario, con un ListBox con selección múltiple, intento que me ejecute una serie de macros pata realizar determinadas consultas, pero no me funciona correctamente. únicamente me ejecuta la última macro que selecciono del ListBox. Este es el código que ejecuta la elección que se realice del mismo:
Private Sub CmdConsultar_Click() 'enviar datos seleccionados del cuadro de lista On Error Resume Next Select Case lista.ListIndex Case -1 MsgBox "Seleccione el periodo a consultar" Exit Sub Case 0: Call Enero Case 1: Call Febrero Case 2: Call Marzo Case 3: Call Abril Case 4: Call Mayo Case 5: Call Junio Case 6: Call Julio Case 7: Call Agosto Case 8: Call Septiembre Case 9: Call Octubre Case 10: Call Noviembre Case 11: Call Diciembre Case 12: Call Total_2015 End Select 'borrar seleccion For a = 0 To 13 lista.Selected(a) = False Next a 'Unload Me End Sub
No se donde se encuentra el error. Si fuera necesario, podría enviar un archivo de prueba.
Muchas gracias,
Saludos.
1 Respuesta
Respuesta de Dante Amor
1
Si en tu listbox "lista" tienes solamente los 12 meses, podría ser así:
Private Sub CmdConsultar_Click()
meses = Array("Enero", "Febrero", "Marzo", "Abril")
For a = 0 To lista.ListCount - 1
If lista.Selected(a) Then
Run meses(a)
End If
Next a
'borrar seleccion
For a = 0 To lista.ListCount - 1
lista.Selected(a) = False
Next a
End SubLas macros Enero a Diciembre las tienes que poner en un módulo
Prueba y me comentas
Saludos. Dante Amor
Si es lo que necesitas.
