listboxta satır seçili değilse uyar

[hsayar]

If ListBox2.Column(0) = "" Then
    MsgBox "personel nu8marasını seçiniz"
    Exit Sub
End If

şeklinde denedim ama başarılı olamadım ne yapamlıyım.

daha açık ifade etmek gerekirse listbox2 bazen boş olabiliyor hiç bir değer yoksa nasıl uyarı alabilirm.

 

[ceyrek]

If ListBox2.ListCount = 0 Then
.........
end if

 

[hsayar]

onudenedim olmuyor
Userform initalizede 5 değeri atalı kolon sayısı olarak
diğer önerileriniz nedir.

 

[ceyrek]

Kolon sayısının 5 olması, listcount'u arttırmıyor, initialize'de standart olarak başka birşeyler mi eklediniz?
if listbox2.text="" then .... şeklinde uymuyor mu?

 

[yccan]

say = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
say = say + 1
End If
Next i
If say = 0 Then Exit Sub


Bu şekilde deneyebilirsiniz.

 

[hsayar]

teşekkürler deneyecem