Sadece bir tane tekrar eden veri satırlarını aktarma

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler.

Ekte gönderdiğim excel sayfasının Sayfa1'in F sütunundaki Hüseyin isminin bulunduğu satırları Sayfa2'ye aktarmak istiyorum.

Forumda araştırdım ancak bulmadım ve benim istediklerime benzer bulduklarımı da sayfama uyarlayamadım.

Yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

-- Aşağıdaki kod'u boş bir MODÜLe yapıştırın,
-- Kod'u Düğme ile ilişkilendirin (düğmeye sağ tık-> MAKRO ATA -> AKTAR'ı seçin)
-- Aktarılacak ismi Sayfa1 M1 hücresine yazın,
-- Düğmeye tıklayın.
.

[FONT="Arial Narrow"]Sub AKTAR()
Set S1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
If S1.[M1] = "" Or WorksheetFunction.CountIf(S1.Range("F:F"), S1.[M1]) = 0 Then
    MsgBox "M1 hücresi boş veya M1 hücresine yazılan isim listede yok."
        Exit Sub
            End If
                If s2.[A65536].End(3).Row > 1 Then s2.Range("A2:K65536").ClearContents
                    For sat = 2 To S1.[F65536].End(3).Row
                        If S1.Cells(sat, 6) = S1.[B][COLOR="Red"][M1][/COLOR][/B] Then
                            s2sat = s2.[A65536].End(3).Row + 1
                            For s2sut = 2 To 11
                        s2.Cells(s2sat, 1) = s2sat - 1
                    s2.Cells(s2sat, s2sut) = S1.Cells(sat, s2sut)
                Next
            End If
        Next
    MsgBox "Veriler Aktarıldı." & vbLf & "Listelenen kayıt sayısı: " & _
s2sat - 1, vbInformation, "ASLAN ERASLAN"
End Sub[/FONT]

 

[ASLAN7410]

Sayın Ömer Bey çok teşekkür ediyorum, ellerinize sağlık Allah razı olsun tam istediğim gibi oldu.
Hayırlı sabahlar hayırlı çalışmalar.