makro ile aynı verileri taşıma

[sldrkyurdal]

merhaba,
Eklediğim örnek dosyada sayfa2 de numaralar yazıyor ve karşısında ref yazıyor sayfa 1 deki numaraların karşısına aynı ref lerin yazmasını istiyorum.
teşekkürler

 

[askm]

B2 hücresine =DÜŞEYARA(A2;Sayfa2!A:B;2;0) formülünü yazıp aşağı doğru kopyalayın.

 

[sldrkyurdal]

B2 hücresine =DÜŞEYARA(A2;Sayfa2!A:B;2;0) formülünü yazıp aşağı doğru kopyalayın.

teşekürler

 

[Orion1]

Soruyu makrolar içinde sorduğunuzdan dolayı makro cevabı verdim.

Sub ref59()
Dim sh As Worksheet, sonsat1 As Long, sonsat2 As Long
Dim k As Range, i As Long
Sheets("Sayfa1").Select
sonsat1 = Cells(Rows.Count, "A").End(xlUp).Row
Range("B2:B" & Rows.Count).ClearContents
Application.ScreenUpdating = False
Set sh = Sheets("Sayfa2")
sonsat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sonsat1
    Set k = sh.Range("A2:A" & sonsat2).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "B").Value = k.Offset(0, 1).Value
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"

End Sub