Belirtilen Metni İçeren Satırları Ayırma

[Beycan Çetin]

Dostlarım merhaba,
Alt alta sıralanmış müşterilerimin birsürü mail adresleri var.

***@yahoo.com
***@hotmail.com
***@gmail.com

Gibi..

Bunların içinden hotmail olanlarını ayırıp seçmek istediğimde hotmail olarak arama yapıp tek tek kopyalamam gerekiyor.
Peki bunun daha kısa yolu yokmu. Örnek içerisinde hotmail yazısı geçen satırları bana ayırabilirmi.

Office 2007 kullanıyorum. Lütfen yardımcı olun.

 

[muygun]

Merhaba;
Eki inceleyin (kendi dosyanıza uyarlayın)
İyi çalışmalar.

 

[omerceri]

Süzme işlemi yapın, Süzme işleminde "Özel" Seçeneği vardır, orada da "ile biter" seçeneğini seçip, yanındaki kutuya @hotmail.com yazıp süzün. Daha sonra bu sütunu seçip kopyalayıp, istediğiniz yere yapıştırın. Sadece süzülmüş satırlar gelecektir. 2007 de belki değişiklik vardır. Ama bu işlem işinizi görür.

 

[Necdet]

Süzme işlemi yapın, Süzme işleminde "Özel" Seçeneği vardır, orada da "ile biter" seçeneğini seçip, yanındaki kutuya @hotmail.com yazıp süzün. Daha sonra bu sütunu seçip kopyalayıp, istediğiniz yere yapıştırın. Sadece süzülmüş satırlar gelecektir. 2007 de belki değişiklik vardır. Ama bu işlem işinizi görür.

3 aşağı 5 yukarı 2007 de de aynı.

Ekran görüntülerini dosyada görebilirsiniz.

 

[Beycan Çetin]

Dostlarım hepinize teşekkür ederim. Selametle

 

[Orion1]

Bu soruyu sitemizin gülü olan Makro ile çözmessek makrolara ayıp olur doğrusu.
İşte makrolu çözümde benden.Dosya ektedir.

Sub email_ayir()
Dim hcr As Range, sat As Long
sat = 2
Range("B2:B65536").Clear
For Each hcr In Range("A2:A" & Cells(65536, "A").End(xlUp).Row)
    If InStr(1, hcr.Value, "@hotmail.com") > 0 Then
        Cells(sat, "B").Value = hcr.Value
        sat = sat + 1
    End If
Next
MsgBox "İşlem tamalandı"
End Sub