Sayfadan sayfaya verileri aktarma

[bdeniz_bilen]

Örnek dosya ekledim diğer sayfadaki veriler fazla onların içerisinde arayacağı hücreye karşılık gelen verileri kendi sayfasına aktaracak.

 

[asi_kral]

Merhaba
Bu kodu deneyiniz_?

Option Explicit
Sub veri_getir_1967()
Dim BUL As Range, SAT As Variant, SAT1 As Variant
Dim S1 As Worksheet, S2 As Worksheet, SAT2 As Long
Application.ScreenUpdating = False
Set S1 = Sheets("DEFTER"): Set S2 = Sheets("SORGU")
Set BUL = S1.Cells.Find(S2.Range("K3"), , , xlWhole)
SAT = BUL.Address: SAT1 = Cells(BUL.Row + 49, BUL.Column + 3).Address
S1.Range(SAT & ":" & SAT1).Copy Destination:=S2.Range("F3")
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation
End Sub