karışık sıralı bir listeden aynı isimleri bulmak başka sheete altalta aktarmak

[ouzan83]

herkese çok slm,
eminim kolay bir soru soruyorum ama 3 saattir forumda geziyorum cevabı bulamadım , sorunu anlatayım ; karışık olarak isimler ve o isimlere ait bilgiler alt alta verigiriş sheetine giriliyor.Benim istediğim arama sheetine bir isim girildiğinde bana verigiriş sheetindeki o isme ait bilgileri bulması ve alt alta girmesi. Sanırım 2 dk nı almaz bunu yapması, şimdiden çok teşekkurler.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Sub rapor()
Sheets("Arama").Select
If Range("B1").Value = "" Then
    MsgBox "B1 Hücresine Ad Soyad Giriniz.!!", vbCritical, Application.UserName
    Exit Sub
End If
Range("A4:H65536").ClearContents
Set s1 = Sheets("Verigiriş")
sat = 4
sonsat = s1.Cells(65536, "B").End(xlUp).Row
Application.ScreenUpdating = False
For i = 8 To sonsat
    If UCase(Replace(Replace(s1.Cells(i, "B").Value, "ı", "I"), "i", "İ")) = _
    UCase(Replace(Replace(Range("B1").Value, "i", "İ"), "ı", "I")) Then
        Cells(sat, "A").Value = sat - 3
        Cells(sat, "B").Value = s1.Cells(i, "D").Value
        Cells(sat, "C").Value = s1.Cells(i, "E").Value
        Cells(sat, "D").Value = s1.Cells(i, "F").Value
        sat = sat + 1
    End If
Next i
Application.ScreenUpdating = True
Set s1 = Nothing
MsgBox "Rapor Çıkarıldı.!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[veyselemre]

Ekteki örnekte sayın Orion2 yapmış olduğu çalışma ile birlikte 2 alternatif daha var.

 

[ouzan83]

sayın veyselemre ve orion, çok ama çok teşekkürler. bişey daha istesem çok olmam inş. sayın veysel in yaptığı filtrelerin ikiside isme göre, üsteki filtre bölük no ya göre olursa işlem tamamlanmış olcak. üsteki filtreden bölük no girince aşağdaki fitrede sadece o bölükteki isimler çıkarsa yapılan çalışma daha kullanışlı olur.

 

[ouzan83]

sanırım son sorum güme gitti , yinede çok ama çok saolun. Elleriniz dert görmesin.