Find (tam değer)

[vivident]

Merhaba

Ayarlar sayfamın
A3 hücresinde : İ.EMİRALİ
A9 hücresinde : İ.EMİR
isimleri mevcut

Combobox'tan isim seçince textbox1'e aynı ismi yazmasını istiyorum. Lakin ben "İ.EMİR" seçtiğimde find komutu "İ.EMİRALİ" ismini textboxa yazıyor

Yani combobox'da hangi isim varsa, textboxda da o isim görüntülenmeli. Tam ismi nasıl getirebilirim. Dosyam ektedir

Private Sub ComboBox1_Change()
On Error Resume Next
Dim Bul As Range
Set Bul = Sheets("Ayarlar").Columns(1).Find(what:=ComboBox1)
TextBox1.Text = Bul
End Sub

 

[Korhan Ayhan]

Deneyiniz.

.Find(What:= ComboBox1,,, xlWhole)

 

[vivident]

Korhan bey
Kodu kabul etmiyor
Komple error veriyor. Zaten kopyaladığımda kod kırmız renkte, virgül kısmında sorun olabilir mi

Set Bul = Sheets("Ayarlar").Columns(1).Find(What:= ComboBox1,,, xlWhole)

 

[Murat OSMA]

Bu şekilde deneyin..

[SIZE="2"]Set Bul = Sheets("Ayarlar").Columns(1).Find(ComboBox1, , , xlWhole)[/SIZE]

xlWhole yerine 1 de yazabilirsiniz.​

 

[Orion1]

Alternatif.

Private Sub ComboBox1_Change()
Dim Bul As Range
TextBox1.Value = ""
Set Bul = Sheets("Ayarlar").Columns(1).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not Bul Is Nothing Then
    TextBox1.Text = Bul.Value
End If
End Sub

 

[Korhan Ayhan]

Merhaba,

Cepten yazdığım için hatalı olmuş. Diğer arkadaşlarım sağ olsunlar gerekli düzeltmeyi yapmışlar.

 

[vivident]

Hepinize teşekkür ediyorum
Çok sağolun

 

[Murat OSMA]

Merhaba,

Cepten yazdığım için hatalı olmuş. Diğer arkadaşlarım sağ olsunlar gerekli düzeltmeyi yapmışlar.

Sizi online göremeyince ufak bir düzeltme ile yanıt verelim dedik. :hey:​