kodda hata

[sozlersilah]

Private Sub CommandButton1_Click()
Dim x As Integer
On Error GoTo hata
x = Sheets("LİSTE").Range("A:A").Cells.Find(what:=TextBox13, LookIn:=xlValues).Row
TextBox13.Value = TextBox13
TextBox14 = Sheets("LİSTE").Cells(x, 2)
TextBox15 = Sheets("LİSTE").Cells(x, 3)
TextBox16 = Sheets("LİSTE").Cells(x, 4)
TextBox17 = Sheets("LİSTE").Cells(x, 5)
TextBox18 = Sheets("LİSTE").Cells(x, 6)
TextBox19 = Sheets("LİSTE").Cells(x, 7)
TextBox20 = Sheets("LİSTE").Cells(x, 8)
TextBox21 = Sheets("LİSTE").Cells(x, 9)
TextBox22 = Sheets("LİSTE").Cells(x, 10)
TextBox23 = Sheets("LİSTE").Cells(x, 11)
hata:
If Err = 91 Then
MsgBox "ARADIÐINIZ KAYIT BULUNAMADI"
End If
End Sub

yukarıdaki kodları userform üzerinde arama yaptırmak için kullanıyorum.excel sayfa satırı 32.000 kadar arıyor ondan sonrasını aramıyor.65.000 sayısına nasıl arattırabiliriz.
2-userformda aranılacak veriyi girip entera basıldığında arama yapması nasıl olacak.
tşk ler

 

[Haluk]

Aşağıdaki satırı, eskisiyle değiştirin.

dim x as long

Sorunuzun 2nci kısmı için, UserForm'a aşağıdakini ilave edin:

Private Sub TextBox13_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
                              ByVal Shift As Integer)
    If KeyCode = 13 Then CommandButton1_Click
End Sub

 

[sozlersilah]

tsk ler saolun

 

[Haluk]

tsk ler saolun

ric ler. (Rica ederim)

 

[sozlersilah]

sayın raider bir sorum daha olacak unutmuşum kusura bakmayın;userform üzerinde ki combobox daki verilere tıklayınca aynı adlı veriler farklı yerdeki kapalı excel dosyasını nasıl actıra biliriz

 

[ALPEN]

asl?