istenilen kelimenin olduğu satırı aktarma

[EXTRANET]

merhaba

sayfa 1 de 10 binden fazla satır var

sayfa 2 ye içinde galvaniz kelimesi geçen satırı nasıl aktarabilirim


teşekürler

 

[Necdet]

Merhaba,

Dosyada Başlıkların olduğu varsaydım ve Suz işleminden sonra aktardım.

Sub Suz_ve_Aktar()
    
    Dim i As Long
    
    If ActiveSheet.FilterMode = True Then Selection.AutoFilter
    i = Cells(Rows.Count, "A").End(3).Row
    
    Range("$A$1:$I$" & i).AutoFilter Field:=3, Criteria1:="=*galvaniz*"
    Range("A1").CurrentRegion.Copy Sheets("Sayfa2").Range("A1")
    
End Sub

 

[EXTRANET]

çok teşekür ederim.

 

[sahinhakan04]

merhabalar ben yaptıgınız kodları yapıştırıyorum ama bir türlu olmadı

Bende a sütününda 12000 adet mail adresi yazılı ve bunları katagori halinde ayırmak istedim yazdıgınız kodun sonundaki galvaliz kelimesinin yerine sırayla katagori olarak ayırmak istedigim maillern domain uzantılarını yazıyorum ama bir türlü olmuyo neden olabilir sizce