ComboBox ve TextBox hk.

[ozuberk]

Merhaba ekteki dosyamda bulunan ComboBox1 de ismi seçtiğim zaman;

1. O kişiye ait Görevi neyse onu bulsun (Örnek: Ayşe - Memur)
2. TextBox0 dan ListBox dan arama yapılması. Arama yaparken tam isim değilde örneğin "Öz" veya "100" yazdığım zaman Öz veya 100 içeren isimlerin ListBox da süzülmesi.

 

[NBATMAN]

Comboboxdan ara sayfada bul bir sağındaki textboxa getir

Merhaba ekteki dosyamda bulunan ComboBox1 de ismi seçtiğim zaman;

1. O kişiye ait Görevi neyse onu bulsun (Örnek: Ayşe - Memur)
2. TextBox0 dan ListBox dan arama yapılması. Arama yaparken tam isim değilde örneğin "Öz" veya "100" yazdığım zaman Öz veya 100 içeren isimlerin ListBox da süzülmesi.

Merhaba,

1.sorunun cevabı için aşağıdaki kodları kullanınız.

Private Sub ComboBox1_Change() 'BUL
Dim k As Range
If ComboBox1.Value = "" Then Exit Sub
Set k = Range("c2:s500").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
k.Select
TextBox4.Value = ActiveCell.Offset(0, 1).Value
End If
End Sub