Örnek Kod Makro ile Düşeyara Formülü

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
54
Puanları
18
Yaş
31
Konum
Ankara
Ad Soyad
Hüseyin Yılmaz
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.

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
 

RixtoNN

Yeni Üye
Katılım
4 Ocak 2019
Mesajlar
18
Puanları
1
Yaş
21
Konum
Bursa
Ad Soyad
Abdullah Orhan
Merhaba, örnek dosya atabilir misiniz?
 
Üst Alt