Bu dosya, tek hücrede yazılı ad ve soyad bilgisini VBA ile hazırlanmış iki kullanıcı tanımlı fonksiyonla ayırır. Soyadı olarak hücredeki son kelime kabul edilir; bu nedenle birden fazla isimli kayıtlarda da son boşluktan sonraki bölüm soyadı olarak alınır.
Formül, B3 hücresindeki metnin son boşluğundan sonraki bölümü döndürür. Ad bölümü için aynı mantıkla ADI fonksiyonu kullanılır.
Dosyanın içeriği
- Sayfa1: B1:E21 aralığında ad soyad listesi ve sonuç sütunları bulunur. Soyadı sonucu E3 hücresinden başlar ve ilgili satırdaki ad soyad bilgisini B sütunundan alır.
- Module1: SOYADI ve ADI adlı iki fonksiyonu içeren VBA modülüdür.
Kullanılan formüller
Sayfada soyadı ayırmak için SOYADI fonksiyonu çağrılır:=SOYADI(B3)
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar düğmeyle çalıştırılmaz; kullanıcı tanımlı fonksiyon olduğundan hücreye formül olarak yazılır.- SOYADI: Hücredeki metni sondan başa doğru tarar, bulduğu ilk boşlukta durur ve o boşluğun sağındaki metni döndürür.
- ADI: Aynı şekilde son boşluğu bulur ve boşluğa kadar olan sol bölümü döndürür. Sonuçta ad kısmının sonundaki boşluk da yer alır; gerekirse TRIM (TR: KIRP) ile temizlenebilir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Ad soyad bilgilerini B sütununa girin.
- Soyadı için sonuç hücresine =SOYADI(B3) yazın, ad için =ADI(B3) yazın.
- Formülleri listenin son satırına kadar aşağı kopyalayın.
- Fonksiyonları başka bir dosyada kullanmak için Module1 içindeki kodu o dosyanın bir modülüne kopyalayın ve dosyayı .xlsm olarak kaydedin.