E-Posta Adresi Ayırma

E-Posta Adresi Ayırma, A sütunundaki metinlerin içinde geçen e-posta adreslerini bulup hemen yan hücreye (B sütunu) yazan makrolu bir Excel dosyasıdır. Karışık metinlerden adres listesi çıkarmak için kullanılır.

Dosyanın içeriği​

• Sayfa1: A1:A6 aralığında içinde e-posta adresi geçen örnek metinler bulunur. Makro çalıştırıldığında bulunan adresler aynı satırın B sütununa yazılır.
• Module1: e_posta_ayirma adlı makroyu içeren VBA modülüdür.

Dosyada çalışma sayfası formülü bulunmaz; tüm işlem makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• e_posta_ayirma: VBScript.Regexp nesnesi ile düzenli ifade (regex) araması yapar. Desen, "@" işaretinden önce en az iki karakterli bir kullanıcı bölümü, sonrasında alan adı ve en fazla 6 karakterli bir uzantı arar. Döngü, A sütunundaki ilk satırdan son dolu satıra kadar (son satır A65536 hücresinden yukarı doğru bulunur) her hücreyi tarar. Eşleşme varsa ilk eşleşen adres aynı satırın B sütununa yazılır; eşleşme yoksa B hücresine dokunulmaz.

Makro dosya silme veya dışarıya bağlantı gibi işlemler yapmaz; yalnızca açık çalışma sayfasındaki hücreleri okur ve B sütununa yazar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 içindeki A sütununa e-posta adresi içeren metinleri yazın veya yapıştırın.
3. Alt+F8 tuşlarıyla makro listesini açın, e_posta_ayirma makrosunu seçip Çalıştır düğmesine basın.
4. Bulunan e-posta adresleri B sütununda ilgili satırların karşısında listelenir.

Desen, adresin metnin sonunda yer aldığı durumlara göre kurulmuştur ($ ifadesi); bu nedenle adresin hücre metninin sonunda bulunması en doğru sonucu verir. Hücrede birden fazla adres varsa yalnızca ilk eşleşme yazılır.