Daha hızlı sorgulama işlemi..???

[saydn]

Arkadaşlar, tabloma 1000 satırlık veri girişi olmakta ve tablomda VLookup fonksiyonunu kullanarak sorgulama yapmaktayım, fakat satırların fazlalığından dolayı veri girişini çok yavaş yapabilmekteyim bunu daha hızlı yapabilmenin bir yolu varmıdır..??

Kullandığım kodlar ;

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [B2:B1000]) Is Nothing Then Exit Sub
For ara = 1 To 1000
Range("I" & ara) = WorksheetFunction.VLookup(Range("B" & ara), Range("N:O"), 2, 0)
If Range("B" & ara) = "" Then
Range("B" & ara).Offset(0, 1) = ""
Range("B" & ara).Offset(0, 2) = ""
End If
Next
End Sub

 

[ECYavuz]

Find komutu ile daha hızlı arama yapabilirsiniz. Aşağıdaki örneği inceleyin isterseniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Range, ilkadres, i
Application.ScreenUpdating = False
If Target.Address = "$H$1" Then
Sayfa1.[I1:I65536].ClearContents
Set Bul = Sayfa1.[A:A].Find(Target, LookAt:=xlWhole)
If Not Bul Is Nothing Then
ilkadres = Bul.Address
i = 1
Do
i = i + 1
Target(i - 1, 2) = Bul(1, 4)
Set Bul = Sayfa1.[A:A].FindNext(Bul)
Loop Until ilkadres = Bul.Address
End If
End If
End Sub