hücreden bölüm almak

[ADEMES]

arkadaslar mail listemden hotmail olan adresleri cıkarmak ıstıyorum .

hücre içerisinde hotmail varsa satırı sil nasıl yapabilirim .

saygılarımla,
adem eskici

 

[turist]

Sub satırsil()
   Dim r As Range
   Dim alan

   Set alan = ActiveSheet.UsedRange
   Do
       Set r = alan.Find("hotmail", LookIn:=xlValues)
       If Not r Is Nothing Then r.EntireRow.Delete
   Loop While Not r Is Nothing
End Sub

Makroyu kullanabilirsiniz.

 

[ADEMES]

tesekkurler ilginiz için

 

[Emir Hüseyin Çoban]

. . .

Listenizde filtre yapın. >
Filtreden içerir >
hotmail yazın.
içeren mail adresleri listelenecektir.

Bu listeden silebilirsiniz.

. . .