Çözüldü text box ile veri arama

[erd5334]

Dim Metin As String
Private Sub CommandButton1_Click()
On Error Resume Next
Metin = TextBox1.Value
If TextBox1.Value <> "" Then
Set ara = Range("A2:A65000").Find(What:=Metin)
TextBox2.Text = ara
End If
Else
MsgBox "Aradığınız kayıt bulunamadı"
End If
End Sub

Arkadaşlar bu kod bloğu neden arama yapmıyor hatam nerede.

 

[YUSUF44]

Kodları commanbutton'a yazmışsınız. Textboxa yazdıkça arama yapması için TextBox1_Change olayına yazmalısınız:

Private Sub TextBox1_Change()

gibi.

 

[erd5334]

Kodları commanbutton'a yazmışsınız. Textboxa yazdıkça arama yapması için TextBox1_Change olayına yazmalısınız:

Private Sub TextBox1_Change()

gibi.

hocam text change olayını biliyorum da ben buton ile arama yapmasını istiyorum. bu kod bloğu textchange de mi çalışır

 

[YUSUF44]

Bilemedim ancak bendeki textboxchange kodunu commandbuttona aktardığımda arama işlemini yaptı. Aranan veri tipiyle mevcut veri tipi uyumsuz olabilir sizin dosyada. Örnek dosya paylaşırsanız iyi olur.

 

[erd5334]

Bilemedim ancak bendeki textboxchange kodunu commandbuttona aktardığımda arama işlemini yaptı. Aranan veri tipiyle mevcut veri tipi uyumsuz olabilir sizin dosyada. Örnek dosya paylaşırsanız iyi olur.

Çözdüm sorunu hocam teşekkür ederim konu kapanabilir.