Tarih: 20/05/2022

VBA MultiSelect ListBox’da Belirli Bir Şarta Göre Seçim Yaptırmamak

 

Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
Dim a As Integer
 
For i = 0 To Me.Lstcap.ListCount - 1
If Me.Lstcap.Selected(i) Then
a = a + 1
End If
Next
If a >= 41 Then
MsgBox "Maksimum seçim adedine ulaştınız!"
Me.Lstcap.Selected(Me.Lstcap.ListIndex) = False
End If
 
End Sub

Kodları incelerseniz ne olduğunu anlarsınız.

Kolay gele…

Excel VBA

MultiSelectListboxConditionNotSelect

İlk Yorumu Siz Yapın

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir