TextBoxlara Veri Aktarma da Poblem

[oerbas]

ComboBox2 Rowsource özelliği ile veriler listelenmekte olup CommandButton3 e atanan aşağıdaki Kod u kullanarak TextBoxlara veri aktarılmaktadır.

Sorun şu; Eğer veri listeden seçilerek onaylanırsa problem çıkmıyor.
Fakat liste alfabetik olmadığı için uzunca bir liste ilk birkaç harfini elle girince veri geliyor onaylayıncada sanki bu kayıt yokmuş gibi oluyor. ComboBox elle dolduruluncada arama yapılması için ne yapmalıyım

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, "c") = ComboBox2.Text Then
'devam et
Dim x As Integer
x = Sheets("EVRAK DEFTERİ").Range("C:C").Cells.Find(what:=ComboBox2, LookIn:=xlValues).Row
TextBox2 = Sheets("EVRAK DEFTERİ").Cells(i, 2)
TextBox4 = Sheets("EVRAK DEFTERİ").Cells(i, 3)
TextBox5 = Sheets("EVRAK DEFTERİ").Cells(i, 4)
TextBox6 = Sheets("EVRAK DEFTERİ").Cells(i, 5)
TextBox7 = Sheets("EVRAK DEFTERİ").Cells(i, 7)
TextBox8 = Sheets("EVRAK DEFTERİ").Cells(i, 7)
TextBox9 = Sheets("EVRAK DEFTERİ").Cells(i, 9)
TextBox10 = Sheets("EVRAK DEFTERİ").Cells(i, 10)
TextBox11 = Sheets("EVRAK DEFTERİ").Cells(i, 11)
TextBox12 = Sheets("EVRAK DEFTERİ").Cells(i, 12)
TextBox13 = Sheets("EVRAK DEFTERİ").Cells(i, 13)
ComboBox1 = Sheets("EVRAK DEFTERİ").Cells(i, 14)
TextBox15 = Sheets("EVRAK DEFTERİ").Cells(i, 15)
TextBox16 = Sheets("EVRAK DEFTERİ").Cells(i, 16)
TextBox17 = Sheets("EVRAK DEFTERİ").Cells(i, 17)

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

'Tamam Düğmesine ait kod son

End Sub