Makro ile Ad Soyad Ayırma

Bu dosya, A sütunundaki ad ve soyad bilgisinin VBA makrosuyla iki ayrı sütuna bölünmesini örneklendirir. Formül kullanılmaz; ayırma işlemi tamamen makro koduyla yapılır.

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

Dosyanın içeriği​

• Sayfa1: A sütununda ayrılacak örnek veriler bulunur (ör. "kalem rucka", "kitap kniga"). Sonuçlar B ve C sütunlarına yazılır.
• Module1: Turke_Rusca_Ayirma adlı makroyu barındıran VBA modülüdür.

Makrolar​

Turke_Rusca_Ayirma makrosu çalıştığında önce B2:C65536 aralığındaki eski sonuçları temizler. Ardından A sütunundaki dolu satırları tek tek dolaşır ve her hücreyi boşluk karakterine göre Split ile parçalar:

• Hücrede tek sözcük varsa B sütunundaki değer C sütununa aktarılır.
• Hücrede iki sözcük varsa ilk sözcük B sütununa, ikinci sözcük C sütununa yazılır.
• B sütununda aynı sözcüğü içeren başka bir kayıt varsa, tekrarı ayırt etmek için ilk sözcüğün sonuna bulunan eşleşme sayısı kadar nokta eklenir. Bu işlemde CountIf ve Rept fonksiyonları kullanılır.
• Üç ve daha fazla sözcük varsa ilk iki sözcük B sütununa, kalan sözcükler C sütununa yazılır.

İşlem bitince "İşlem Tamamdır." mesajı görüntülenir ve sütun genişlikleri otomatik ayarlanır. Kodda dosya silme ya da dış bağlantı gibi işlem bulunmaz; makro yalnızca açık sayfadaki hücrelerle çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Ayrılacak ad soyad bilgilerini Sayfa1'de A sütununa girin.
3. ALT+F8 tuşlarıyla Turke_Rusca_Ayirma makrosunu seçip çalıştırın; sayfaya bir düğme atanmışsa düğmeye tıklamanız yeterlidir.
4. Ad B sütununda, soyad C sütununda listelenir.

Makro her çalıştırıldığında B ve C sütunlarını yeniden oluşturur; bu alanlara elle girilen veriler silinir. Makro 2. satırdan itibaren yazar ancak döngü A1 hücresinden başladığı için başlık satırı kullanılacaksa sonuçların konumu kontrol edilmelidir.