10.000 veri üstünde text change ve combobox clıc olayında arama süresi çok uzun oluy

[kadr]

ekteki örnek dosyada userform2 den text2 veri girerken aynı zamandada veri sorgulası yapıp veri getirmeye çalışıyorum fakat veri çok fazla olduğu için text girişte ve veri getirmede zaman alıyor. Ayrıca userform4 arama yaptırdığımdada aynı sorunla karşılaşıyorum çalışmanın daha ekleri var bir kısmını buraya ekledim aramayı hızlandırmak mümkünmü değişik kodlarla değerli excel hocalarına şimdiden teşekkürler

 

[kadr]

sonunda dosyayı eklemeyi başardım yardım edecek arkadaşlara şimdiden tşkler.

 

[halit3]

ekteki örnek dosyada userform2 den text2 veri girerken aynı zamandada veri sorgulası yapıp veri getirmeye çalışıyorum fakat veri çok fazla olduğu için text girişte ve veri getirmede zaman alıyor. Ayrıca userform4 arama yaptırdığımdada aynı sorunla karşılaşıyorum çalışmanın daha ekleri var bir kısmını buraya ekledim aramayı hızlandırmak mümkünmü değişik kodlarla değerli excel hocalarına şimdiden teşekkürler

Örnek olarak

Userform1 deki kodları textbox2.Change yerine

Private Sub TextBox2_Enter()
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
veya
Private Sub TextBox2_AfterUpdate()
bunun içine koymuş olsanız kodlar textboxdan çıkınca çalışacağından birazcık hızlanır. ben find komutu kullandım baya hızlı geldi bana

textbox2.Change olayını silin ve aşağıdaki kodu bir deneyin kod tekboxdan çıktıktan sonra çalışacak.

Private Sub TextBox2_AfterUpdate()
ad = TextBox2.Text
With Worksheets("VERI").Range("a2:a65000")
Set c = .Find(ad, LookAt:=xlWhole)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
c.Select
TextBox101.Text = Worksheets("VERI").Cells(c.Row, 1).Value
TextBox102.Text = Worksheets("VERI").Cells(c.Row, 2).Value
TextBox103.Text = Worksheets("VERI").Cells(c.Row, 3).Value
TextBox106.Text = Worksheets("VERI").Cells(c.Row, 4).Value
'TextBox108.Text = Worksheets("VERI").Cells(c.Row, 5).Value
TextBox110.Text = Worksheets("VERI").Cells(c.Row, 5).Value
TextBox101.Visible = True
TextBox102.Visible = True
TextBox103.Visible = True
TextBox106.Visible = True
TextBox108.Visible = False
TextBox110.Visible = True
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label11.Visible = True
Label12.Visible = False
Label13.Visible = True
Frame2.Visible = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With
 
End Sub

 

[kadr]

halit3 bey mesajı yeni gördüm bu ne hız ilginize teşekkürler.işimi görüyor kodlar takıldığım yer olursa tekrar rahatsız ederim