Makro ile Düşeyara yapabilme

[achil19]

Herkese selamlar,
Soracağım soru çok kolay olabilir ama Excel'de makro kullanımını daha yeni öğrenmeye başladım.
Elimde bir dosya var. yaklaşık 1 milyon satır.
Formül ile Düşeyara yaptığımda işlem çok uzun sürüyor.
Bu işlemleri makroda nasıl yazabilirim acaba? Bir de yaptığınız işlemleri anlatmanızı rica edeceğim
"Veri 2" çalışma sayfasına "Veri 1" den düşeyara formülü ile "Mağaza sınıfı" nı getiriyorum.
İsteğim "Makro" çalışma sayfasına "Veri 1" çalışma sayfasından aynı işlemi düşeyara makrosu ile yapmak
Satırların yeri sabit değil, değişebiliyor. Bu yüzden yazdığınız makroyu kısaca anlatmanızı rica ediyorum

Örnek dosya linki aşağıdadır
Herkese şimdiden çok teşekkür ederim

https://drive.google.com/file/d/0B6jo34yj3V6rN3RRTWVBX28yeW8/view?usp=sharing

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

ben sonucu E sütununa yazdırdım, aynı sonucu görün diye.

Sub AraBul()

    Dim i   As Long, _
        c   As Range, _
        s1  As Worksheet
        
    Application.ScreenUpdating = False
    Set s1 = Sheets("VERİ 1")
    Sheets("VERİ 2").Select
    
    For i = 2 To Cells(Rows.Count, "B").End(3).Row
        Set c = s1.Range("A:A").Find(Cells(i, "B"), LookIn:=xlValues)
        If Not c Is Nothing Then
            Cells(i, "E") = c.Offset(0, 1).Value
        Else
            Cells(i, "E") = "Bulunmadı"
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "Arama İşlemi Bitmiştir...."
    
End Sub

 

[achil19]

Necdet Bey, çok teşekkür ederim. Elinize sağlık