Macro para varios ListBox DEseleccionar líneas (Items)
Saludarlos es poco para lo que he obtenido de ustedes.
Quisiera que esta macro funcionara para varios ListBox en varios Formularios, desde un Módulo llamándola con Call Deseleccionar(Me)
Me da errores que no se explicarlos
Sub DEselecciona(miform) For Each wControl In miform.Controls If TypeOf wControl Is msforms.ListBox Then Dim F As Long For F = 0 To ListBox.ListCount ListBox.Selected(F) = False End If Next F End Sub
Donde tengo el End If me dice que; End If sin block If Si cambio hacia abajo dice For sin Next
Si quito End If dice Block IF sin End If
1 respuesta
Respuesta de Dante Amor
1
Así queda:
Sub DEselecciona(miform) For Each wControl In miform.Controls If TypeOf wControl Is msforms.ListBox Then Dim F As Long For F = 0 To wControl.ListCount wControl.Selected(F) = False Next End If Next End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
