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

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
61
En iyi yanıt
0
Puanları
18
Yaş
32
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
19
En iyi yanıt
0
Puanları
1
Yaş
21
Konum
Bursa
Ad Soyad
Abdullah Orhan
Merhaba, örnek dosya atabilir misiniz?
 
Üst Alt