Listbox Düşey Ara Hatalıysa

[leonadies]

Mehrahaba;

Listbox1 üzerinde varolan tabloya tıklayınca verileri buldurabiliyorum.
Listbox üzerinde boş olan satırlara tıklayınca TextBox2.Text bilgisini "bilgi bulunamadı" yazmasını istiyorum. Nsıl Revize etmeliyim

Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.Value
TextBox2.Text = WorksheetFunction.VLookup(TextBox1, Sheets("veriler").Range("H:N"), 7, 0)
End Sub

 

[Muzaffer Ali]

Merhaba.
Buyurun

Private Sub ListBox1_Click()
    TextBox1.Text = ListBox1.Value
    If ListBox1.Value = "" Then
        TextBox2.Text = "Bilgi bulunamadı."
    Else
        TextBox2.Text = WorksheetFunction.VLookup(TextBox1, Sheets("veriler").Range("H:N"), 7, 0)
    End If
End Sub

 

[leonadies]

Çok teşekkür ederim Kutunun boş olması durumunda çalışıyor. Birde kutuya karşılığı olmayan bir sayı girdiğimde karşılaştığım hatanın giderilmesine ihtiyacım var. Hep aşağıdaki hatayı alıyorum. Bunu nasıl aşarız ?


Runtime-Error 1004
Worksheetfunction sınıfının vlookup özelliği alınamıyor


 

[Muzaffer Ali]

Aşağıdaki kodlar ile olur.

Private Sub ListBox1_Click()
    Dim Bul As Range
    TextBox1.Text = ListBox1.Value
    If ListBox1.Value = "" Then
        TextBox2.Text = "Bilgi bulunamadı."
    Else
        Set Bul = Sheets("veriler").Range("H:H").Find(TextBox1.Text)
        If Bul Is Nothing Then
            TextBox2.Text = ""
        Else
            TextBox2.Text = Bul(1, 7)
        End If
    End If
End Sub

 

[Orion1]

Örnek dosya eklerseniz daha çabuk ve doğru yanıt alabilirsiniz.
Belkide başka bir yöntemle cevabı vardır.

 

[leonadies]

Teşekkür ederim dalgalikur mukemmel çalışıyor

 

[leonadies]

Kıymetli Orion1 Hocam sorularımı mümkün oldugunca örnek dosyalar ile sormaya çalışan biriyim. Ancak bu çalışma dışbağlantılar vb yönünden bunu engelledi. Özelikle sizlerden çok şey öğreniyoruz. Teşekkür ediyorum

 

[Orion1]

Hiç sayfada arama yapmadan direk listboxtan alınırmı diye bakacaktım.

 

[leonadies]

Valla o da çok güzel olurdu gerçekten

 

[leonadies]

Hiç sayfada arama yapmadan direk listboxtan alınırmı diye bakacaktım.

Peki Mesela düşeyaradan gelen veriyi bir combobox yardımı ile chrome uygulaması üzerinden açtırabilirmiyiz? Örenğin bulduğu değer http://www.excelvba.net olsun