• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
64
En iyi yanıt
0
Puanları
18
Yaş
36
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.

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ş
25
Konum
Bursa
Ad Soyad
Abdullah Orhan
Merhaba, örnek dosya atabilir misiniz?
 
Üst Alt