Sayfadan veri çekme

[ilkayturk83]

Bir dosyam var inceleyip yardımcı olursanız memnun olurum saygı değer hocalarım

 

[Civan Jack]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    If Target.Address(0, 0) <> "A7" Then Exit Sub
    Application.ScreenUpdating = False
    For i = 2 To Sayfa1.Range("A65536").End(3).Row
        If Target.Value = Sayfa1.Cells(i, "E") Then
            Sayfa1.Cells(i, 1).Resize(, 25).Copy
            Range("B65536").End(3)(2, 1).PasteSpecial xlValues
        End If
    Next i
    i = Empty
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub