Hücre içindeki harflere göre kopyalama

[YASINT]

Merhaba arkadaşlar
Benim sorunum, A sütunundaki hücrelerdeki "00M" kelimesini bulup bulunduğu satırı Manisa sayfasına sıralı olarak kopyalatmak. Forumda aradım ama istediğimi bulamadım yardımlarınızı bekliyorum Teşekkür ederim. Örnek Dosya ektedir.

 

[hamitcan]

Sub aktar()
    For i = 6 To 12
    If Cells(i, 1) Like "*00M*" Then
        c = c + 1
        Sheets("Manisa").Cells(c, 1) = Cells(i, 1)
        Sheets("Manisa").Cells(c, 2) = Cells(i, 2)
    End If
    Next
End Sub

 

[YASINT]

cevabınız için çok teşekkür ederim. Yalnız satırı komple almıyor. Sadece bulduğu hücreyi kopyalıyor. Satırı kopyalatmak için yardım edebilir misiniz ?

 

[hamitcan]

Düzelttim.

 

[YASINT]

teşekkür ederim çok sağolun

 

[baydeniro]

Çok teşekkürler. Çok yararlı bir paylaşım