Ad ve Soyad Ayırma

@YasarPiskin

Belgede DATA sayfasının kod bölümünde 2 adet Worksheet_Change kod bloku mevcut.
Worksheet_BeforeDoubleClick kodu kalsın, Worksheet_Change kod bloklarının ikisini de silin ve yerine aşağıdakini yapıştırın.

Mevcut kodda, TC Kimlik no için sadece 11 karakter kontrolü var idi,
bunun yanı sıra gerçek TC Kimlik numarası algoritma kontrolünü ekledim.
Bu algoritmanın sıhhatini, kendi TC kimlik no bilginizi ya da başka bir gerçek TC Kimlik numarası yazarak test edebilirsiniz.

Örnkelediğim gibi AYŞE ASLAN YILMAZ gibi iki soyadlarda birinci soyadı isim gibi AYŞE ASLAN şeklinde ayırıyor. Bunun AYŞE ASLAN YILMAZ ve birden fazla isme sahip ALİ VELİ MEHMET POYRAZ'ı ise ALİ VELİ MEHMET POYRAZ şeklinde ayrıyor. Bu hususların düzeltilmesi için yardımalrınızı talep ediyorum.

@YasarPiskin

Bu işlem için garantili bir yöntem yok maalesef.
3 kelime olan AD SOYAD için her zaman birinci kelime AD, iki ve üçüncü her zaman SOYAD olur,
ya da tersi bir kural koyulamaz.

Şöyle deneyin, olması gerekene biraz daha yaklaşılması mümkün olacaktır.

Kodda ilgili satırı şöyle değiştirin.
krt = Int((Len(mtn) - Len(Replace(mtn, " ", "")) + 1) / 2)

Merhaba, Ömer Baran üstadım,
Çift ad ve çift soyadları ayrıştırmada Ad lar Baş harf hariç küçük harflerle; Soyadları isi hepsi büyük harfle yazılması halinde formüle edilebilir mi?

Mehmet Ali DURMAZ ASLAN -- Mehmet Ali - DURMAZ ASLAN
Fatma Duru KORKMAZ ASLAN -- Fatma Duru - KORKMAZ ASLAN