ComboBoxtaki metne göre veri arama

[oerbas]

ComboBox2 ye rakam yazdığım zaman arama yapıldığı halde Abone adını yazdığım zaman arama yapamıyorum.

ComboBox2 de D sütün bilgileri olan abone isimleri listelenmektedir. Seçilen Abone adına göre aramıyor. Ama D sütununa rakam girersem o zaman arama işlemi gerçekleşiyor.

Yapmak istediğim ComboBox2 de Abone ismini seçmek daha sonra CommandButon4'e atadığım kod sayesinde ilgili aboneye ait bilgileri TextBoxlara aktarmak.

Yardımcı olursanız sevinirim.

Private Sub CommandButton4_Click()
'aranan numara yoksa
Set s1 = Sheets("EVRAK DEFTERİ")
noA = WorksheetFunction.CountA(s1.Range("a:a"))
For i = 1 To noA
    If s1.Cells(i, "d") = Val(ComboBox2) Then
'devam et
Dim x As Integer
x = Sheets("EVRAK DEFTERİ").Range("D:D").Cells.Find(what:=ComboBox2, LookIn:=xlValues).Row
ComboBox2.Value = ComboBox2
TextBox2 = Sheets("EVRAK DEFTERİ").Cells(x, 3)
TextBox3 = Sheets("EVRAK DEFTERİ").Cells(x, 1)
TextBox4 = Sheets("EVRAK DEFTERİ").Cells(x, 4)
TextBox5 = Sheets("EVRAK DEFTERİ").Cells(x, 5)
TextBox6 = Sheets("EVRAK DEFTERİ").Cells(x, 6)
TextBox7 = Sheets("EVRAK DEFTERİ").Cells(x, 7)
TextBox8 = Sheets("EVRAK DEFTERİ").Cells(x, 8)
TextBox9 = Sheets("EVRAK DEFTERİ").Cells(x, 9)
TextBox10 = Sheets("EVRAK DEFTERİ").Cells(x, 10)
TextBox11 = Sheets("EVRAK DEFTERİ").Cells(x, 11)
TextBox12 = Sheets("EVRAK DEFTERİ").Cells(x, 12)
TextBox13 = Sheets("EVRAK DEFTERİ").Cells(x, 13)
ComboBox1 = Sheets("EVRAK DEFTERİ").Cells(x, 14)
TextBox15 = Sheets("EVRAK DEFTERİ").Cells(x, 15)
TextBox16 = Sheets("EVRAK DEFTERİ").Cells(x, 16)
TextBox17 = Sheets("EVRAK DEFTERİ").Cells(x, 17)

CommandButton4.Enabled = True
Exit Sub
    End If
Next i
'Kaydı yoksa kayıt edeyimmi Numarasını yazmadıysa
İkaz = MsgBox("İsimli  bir Abone Kaydı yok." & vbCrLf & "Yeni Kayıt Yapmak İstermisiniz?", vbYesNo + vbExclamation, "Dikkat !")
If ikaz = vbNo Then Cancel = True
ComboBox2.SetFocus
Unload Me
If İkaz = vbYes Then UserForm2.Show

'Tamam Düğmesine ait kod son

End Sub

 

[xxrt]

ComboBox2'nin RowSource özelliğine

'EVRAK DEFTERİ'!D2:D100

yazarsanız.Arama yapacağınız veriler ComboBox2'ye elecektir.Ve Oradan yapacağınız seçim ile CommandButton4'de bulunan kodlar İlgili seçilen verinin diğer bilgilerini atayacaktır.Combo2'de rakama göre buluyorsa,CommandButton4'ün Kodlarında bir hata olabilir.Ama ComboBox2'ye herhangi bir İsim yazdığımda (D Sütununda olan)Onun diğer bilgilerini getiriyor.Yani kodlarınız çalışıyor.Sadece ComboBox2'nini RowSource özelliğine 'EVRAK DEFTERİ'!D2100 yazarsanız sanırım olur.

 

[oerbas]

xxrt Demişki

ComboBox2'nini RowSource özelliğine 'EVRAK DEFTERİ'!D2100 yazarsanız

Hocam ComboBox2 ye veri aktarımı konusunda problem yaşamıyorum. Dediğinz gibi zaten ComboBox2 nin RowSorurce özelliğine "EVRAK DEFTERİ'! D265000 yazılı. ama olmuyor. Ã?rnek çalışmayı gönderiyorum dosya üzerinde yardımcı olabilirmisiniz.

Hayırlı çalışmalar.

 

[xxrt]

Dosya? :aha:

 

[oerbas]

Hocam kusura bakmayın örnek dosyayı göndermeyi unutmuştum.

 

[ALPEN]

hehe. şifre ne?

 

[red_lion_72]

evet, evet aynı fikirdeyim :kafa:

 

[oerbas]

Hocam Cin olmadan Çarpayı öğrendik gibi oldu.

Þifre küçük harf omerosman

 

[ALPEN]

inceleyin

 

[oerbas]

Hocam ellerinize sağlık.

Bilgi cimrisi olduğumuz bir toplumda sizin gibi insanlarla tanışmak çok güzel