Combobox Hk.

[Mdemir63]

Selamlar
Arkadaşlar ekteki dosyada Form üzerindeki Combobox içinde listelenen isimlerden farklı bir isim yazmaya çalıştığımda hata alıyorum. Hata almamak için eğer liste dışında bir isim girildiğinde bu isim listede bulunamadı gibi mesaj verdirebilir miyiz?

Saygılar

 

[Necdet]

Merhaba,

Combobox'1n style ini 2 yapın ve deneyin.
İsteğinize gerek kalacak mı?

 

[Zeki Gürsoy]

Aramalar için worksheetfunction başka seçenekler de var diyerek aşağıdaki kodu kullanabilirsiniz.

Private Sub ComboBox1_Change()
    On Error Resume Next
    
    If ComboBox1 <> "" Then
      TextBox1 = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Worksheets("veri").Range("B2:E100"), 2, 0)
      TextBox2 = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Worksheets("veri").Range("B2:E100"), 3, 0)
      TextBox3 = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Worksheets("veri").Range("B2:E100"), 4, 0)
    End If
    
    If Err.Number = 1004 Then
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
    End If
    
    Err.Clear
    
End Sub

.

 

[Mdemir63]

Zeki hocam
öncelikle elinize emeğinize sağlık. Çok teşekkür ederim.
Mesaj verdirme olabilir mi?
Saygılar

 

[Mdemir63]

Merhaba,

Combobox'1n style ini 2 yapın ve deneyin.
İsteğinize gerek kalacak mı?

Selamlar Necdet Abi
dediğinizi denedim. Başka isim girmek istediğimde içinde bulunan ismi getiriyor.
Asıl benim yapmak istediğim, Olmayan ismi girdiğimde mesaj olarak bulunamadı demesi buna istinaden butonla başka bir form açarak girdiğim isme ait bilgileri ilgili sayfaya girebilmek.
Saygılar

 

[Korhan Ayhan]

@Zeki Gürsoy beyin önerisini aşağıdaki gibi düzenleyin.

Private Sub ComboBox1_Change()
    On Error Resume Next
    
    If ComboBox1 <> "" Then
      TextBox1 = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Worksheets("veri").Range("B2:E100"), 2, 0)
      TextBox2 = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Worksheets("veri").Range("B2:E100"), 3, 0)
      TextBox3 = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, Worksheets("veri").Range("B2:E100"), 4, 0)
    Else
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
    End If
    
    If Err.Number = 1004 Then
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
        ComboBox1 = ""
        MsgBox "Lütfen listeden seçim yapınız!", vbCritical
    End If
    
    Err.Clear
End Sub

 

[Mdemir63]

Selamlar
Korhan Hocam çok teşekkür ederim.
elinize emeğinize sağlık.
Saygılar