- Katılım
- 10 Mayıs 2005
- Mesajlar
- 82
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
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