gicimi
Yeni Üye
- Katılım
- 18 Haz 2018
- Mesajlar
- 64
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 37
- Konum
- Ankara
- Ad Soyad
- Hüseyin Yılmaz
- Office Vers.
- Office 2016 Pro
Merhabalar,
Visual Basic Editör ‘de Makro ile düşeyara 300.000 satırda arama yapıp sonucu bulması yaklaşık olarak 5-7 sn dir.
Visual Basic Editör ‘de Makro ile düşeyara 300.000 satırda arama yapıp sonucu bulması yaklaşık olarak 5-7 sn dir.
Kod:
Sub FastestVlookup()
Sheets("Sayfa2").Select
sayfa2sonsatir = Cells(Rows.Count, "A").End(3).Row
Sheets("Sayfa1").Select
sayfa1sonsatir = Cells(Rows.Count, "A").End(3).Row
secim = "B1:B" & sayfa1sonsatir
secim1 = "B2:B" & sayfa1sonsatir
Range(secim1).Select
Selection.ClearContents
Range("B2").Select
formul = "=IF(VLOOKUP(RC1,Sayfa2!R1C1:R" & sayfa2sonsatir & "C1,1)=RC1,VLOOKUP(RC1,Sayfa2!R1C1:R" & sayfa2sonsatir & "C2,2),""N/A"")"
With Sayfa1.Range(secim)
.FormulaR1C1 = formul
.Value = .Value
End With
MsgBox ("İşlem tamamlandı")
End Sub