Data Çekme

[mhmtrn]

Merhaba arkadaşlar,
Öncelikle VBA bilmediğimi belirtmeliyim. Onun için zamanınızı alırsam şimdiden kusuruma bakmayın.
Elimde yaklaşık 50-60 adedince excel de listelenmiş veri var.
Bu verilerin A sütununda "örnek olarak" sadece Ahmet yazanları çekip bir "Excel Sheet"e aktarmak istiyorum.
Durum biraz acil olduğu için yardım istedim.
Şimdiden zaman ayıran arkadaşlara teşekkür ederim.

 

[Ömer]

Merhaba,

Öncelikle sorularınızı küçük bir örnek dosya ile destekleyip açıklamaya özen gösterirseniz daha hızlı ve net yanıtlar alırsınız.

Aşağıdaki kodlar, Sayfa1 A sütununda "Ahmet" leri arar ve Sayfa2 A sütununa aktarır.

Sub Aktar()
 
    Dim S1 As Worksheet, S2 As Worksheet, sat As Long, c As Range, Adr As String
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Range("A2:A" & Rows.Count).ClearContents
    sat = 2
    With S1.Range("A:A")
        Set c = .Find("Ahmet", , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                S1.Cells(c.Row, "A").Copy S2.Range("A" & sat)
                sat = sat + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
 
End Sub

.