Filtreleme gibi bişey

[sincarhakan]

x sayfasının 4.sütununda, içinde a değeri bulunduran satırları kopyala ve y sayfasına alt alta yaz.
Bu formülü excelde nasıl yapabilirim ?

 

[systran]

Sayfa 1' e Command buton Ekle, kodları içine yaz.
Sayfa1 deki D sütunundaki içinde *a* geçenleri Sayfa2 deki D sütununa alt alta ekler

Dim son_satir As Long
Dim i As Long
Dim sayac As Long
Dim tmp As String
son_satir = Sayfa1.Range("D65536").End(xlUp).Row
sayac = 1
For i = 1 To son
    tmp = Sayfa1.Range("D" & i).Value
    If tmp Like "*a*" Then
        Sayfa2.Range("D" & sayac).Value = tmp
        sayac = sayac + 1
    End If
Next i
End Sub