Soru VBA Eğer Listbox Seçilmemiş İse

[derisa963]

Merha Abileri Ablalarım.
Bunu okuyan ve dinleyen bu forumda olan herkese , Ve yine olamayıp da olacak olan herkese selam olsun

Userform'um da bir listbox1'im var ve ben butona yazdığım kodlamada:

Dim aranan as Variant
aranan = Listbox1.List(Listbox1.ListIndex, 1)

Şeklinde seçili olan satrın içeriğini buluyorum fakat herhangibir seçim yoksa hata alıyorum.
On Error kullanmadan listbox'umda herhangibir seçme varmı yokmu diye nasıl sorgulayabilirim ?

 

[turist]

aranan = Listbox1.List(Listbox1.ListIndex, 1)
satırından sonra,

If Listbox1.ListIndex = -1 Then
        MsgBox "Listeden seçim yapılmadı!!!"
    Exit Sub
    Else
        'Else - End If  arasına kendi kodlarınızı yazın
    End If

 

[derisa963]

aranan = Listbox1.List(Listbox1.ListIndex, 1)
satırından sonra,

If Listbox1.ListIndex = -1 Then
        MsgBox "Listeden seçim yapılmadı!!!"
    Exit Sub
    Else
        'Else - End If  arasına kendi kodlarınızı yazın
    End If

Ahaha ustam kod çok basitmiş ama bilmeyince çok zor oluyor yazabilmek
uzun uğraşlar sonucunda kendime şu kodu yaratmıştım geceden

Sec = 0
    For x = 0 To li3.ListCount - 1
        If li3.Selected(x) = True Then
            Sec = 1
        End If
    Next x
If Not Sec = 1 Then
    MsgBox ("Önce Bir Kayıt Seçmelisiniz."), vbInformation, "GİRDİ HATASI"
    GoTo cikis
End If

 

[derisa963]

ama şimdi farkettim
aranan = Listbox1.List(Listbox1.ListIndex, 1)
kodundan önce yazmam gerekiyor çünkü bu kod herhangibir seçim yapmaz isem hataya sebebiyet veriyor çünkü

 

[derisa963]

If Listbox1.ListIndex = -1 Then msgbox("Önce seçim yapınız.") : Exit sub

TA-1012 cihazımdan Tapatalk kullanılarak gönderildi