Excel diğer sayfadan veri çağırma.

Sayfa1 de ki A kolonu ile Sayfa2 B kayıtlar eşit ise Sayfa 2 veri yaz.

Sub FiyatGetir()

  Dim Hucre As Range

  Dim AramaAlani As Range

    Set AramaAlani = Worksheets("Sayfa1").Range("A:A")

    For Each Hucre In Worksheets("sayfa2").Range("B:B")

    On Error Resume Next

    Hucre.Offset(0, 3) = AramaAlani.Find(Hucre.Value).Offset(0, 3).Value

  Next Hucre

End Sub