Textbox verisini aratıp bulma.

[TRuNsouL]

Private Sub sicilno_Change()
Dim Found As Range
Dim str As String
str = sicilno.Text
Set Found = Worksheets("Sayfa2").Columns(3).Find(What:=str, LookIn:=xlValues, Lookat:=xlWhole)
adsoyad.Text = bul.Offset(0, 1).Value
unvan.Text = bul.Offset(0, 4).Value
TextBox7.Text = bul.Offset(0, 2).Value
End Sub

Arkadaşlar merhaba, yukarıdaki kod ile alakalı bir problemim var. sicilno_Change dediğim için daha ben sicilno.Text verisine ilk rakamı yazdığım gibi bana hata veriyor.
Bunun önüne nasıl geçebilirim ben ? Yani atıyorum 200100 sicil nosunu aratmak için ne yapmam gerekiyor. Ben daha 2 rakamına bastığımda hata alıyorum.

 

[AdemCan]

Merhaba, sicil numaraları sabit bir uzunlukta ise yazdığınız sicilin karakter sayısını kontrol ederek kodu çalıştırabilirsiniz ya da change yerine
Private Sub sicilno_Exit(ByVal Cancel As MSForms.ReturnBoolean) başlığını kullanabilirsiniz, textbox dan çıktıktan sonra kodlar çalışır.

 

[TRuNsouL]

Hocam merhaba Exiti denedim fakat Sicil noyu yazdıktan sonra başka bir textboxa geçtiğimde adsoyad.Text = bul.Offset(0, 1).Value bu satır sarı oluyor ve Run Time error '424' Object required hatası alıyorum.

 

[AdemCan]

Merhaba,
Found tanımlamasını bul olarak değiştiriniz. Bul için tanımlama yapılmamış.