Sonuçların listelenmesi hakkında

[yesimgurol]

Merhabalar;
Ekteki dosyamda CSV ve SONUCLAR sayfaları mevcut.Amacım SONUCLAR sayfasında yazdığım numune isimlerine göre CSV sayfasında arama yapılsın bulunan değerler dikey olarak numune isminin altına aktarılsın.
Ekteki dosyamda SONUCLAR sayfasında örnek vererek açıklamaya çalıştım.Umarım istediğimi anlatabilmişimdir.:???:

 

[Murat OSMA]

Bu kodları kullanabilirsiniz..​

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    For i = 2 To 4
        Set evn = Sayfa1.Columns(2).Find(Sayfa2.Cells(1, i).Value, , , 2)
        If Not evn Is Nothing Then
            Sayfa1.Cells(evn.Offset(3, 0).Row, 2).Resize(, 5).Copy
            Sayfa2.Cells(2, i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        End If
    Next i
End Sub[/SIZE][/FONT]

 

[yesimgurol]

Bu kodları kullanabilirsiniz..​

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    For i = 2 To 4
        Set evn = Sayfa1.Columns(2).Find(Sayfa2.Cells(1, i).Value, , , 2)
        If Not evn Is Nothing Then
            Sayfa1.Cells(evn.Offset(3, 0).Row, 2).Resize(, 5).Copy
            Sayfa2.Cells(2, i).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        End If
    Next i
End Sub[/SIZE][/FONT]

Murat Bey,çok teşekkür ederim.:bravo: Aslında aktarılacak satır çoktu ben kısaltarak yazmıştım.Şu an işteyim denedim tam istediğim gibi olmuş.Artık eve gidince diğer satırlarıda kendim uyarlamaya çalışacağım inşaAllah başarabilirim.İyi çalışmalar:mutlu::mutlu:

 

[Murat OSMA]

Rica ederim, iyi günler.​