Metin İçinde Geçen E-Posta Adreslerini Ayırma

Bu dosya, içinde e-posta adresleri de geçen karışık yazılı metinlerden yalnızca e-posta adreslerini ayıklar ve ayrı bir sayfada alt alta listeler. Ayıklama işlemi bir makro ile yapılır.

Dosyanın içeriği​

• Sayfa1: A1:A688 aralığında, her hücresinde e-posta adresi barındıran metin bulunan kaynak veri.
• Sayfa2: Ayıklanan e-posta adreslerinin yazıldığı boş sonuç sayfası.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosyada Module1 içinde tek bir makro vardır:

• ayikla: Sayfa1 A sütunundaki dolu son satıra kadar her hücreyi gezer. Hücredeki metni boşluklara göre kelimelere böler ve içinde "@" işareti geçen kelimeleri e-posta adresi kabul eder. Bulunan kelimeden virgül, "e-mail:" ifadesi ve kesilmeyen boşluk karakteri (Chr(160)) temizlenir, sonuç Sayfa2'nin A sütununa sırayla yazılır. İşlem bitince Sayfa2 otomatik olarak açılır.

Makro yalnızca Sayfa1'i okur ve Sayfa2'ye yazar; dosya silme veya dış bağlantı gibi bir işlem içermez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Ayıklanacak metinleri Sayfa1'in A sütununa yapıştırın; her satıra bir metin gelmelidir.
3. Alt+F8 ile makro listesini açıp ayikla makrosunu çalıştırın.
4. Sayfa2'de listelenen e-posta adreslerini kontrol edin ve gerekli yere kopyalayın.

Makro, Sayfa2'ye yazarken önceki sonuçları temizlemez. Yeni bir veri için çalıştırmadan önce Sayfa2'deki eski listenin silinmesi gerekir. Adresler boşlukla ayrılmış kelimeler üzerinden bulunduğu için, "@" işaretinden önce ve sonra boşluk bulunmayan adresler doğru ayıklanır.