Soyadın son harfine göre e-a takısı getirme

[Mdemir63]

Selamlar

Arkadaşlar ekteki örnek dosyada da belirttim. Soyadların son harfine göre e a takısı nasıl getirebilirim.

Saygılar

 

[yucel baygul]

http://www.excel.web.tr/f47/ad-soyada-ek-ilave-etmek-t54995.html
BU LİNKE Bİ BAKIN SANIRIM ARADIĞINIZ BURADA VAR

 

[uzmanamele]

Merhaba

Buraya bakınız.
Özel adlara takı ekleme

 

[Mdemir63]

Selamlar

Arkadaşlar verdiğiniz linktlerdeki dosyayı inceledim. O şekilde değilde aşağıdaki gibi;
Ben bu kodları uyarlamaya çalıştım. Yapamadım Buradaki kodlar
ın", "in", "ın", "in", "un", "ün", "un", "ün bu takıları ekliyor. Ben ise e-a-ye-ya takılarını getirmesini istiyorum. Bu kodlarda değişikliği yapamadım.

Saygılar

Kod:
Function NunEkle(giris)
If giris = "" Then Exit Function
ara = Array("A", "E", "I", "İ", "O", "Ö", "U", "Ü")
ekle = Array("ın", "in", "ın", "in", "un", "ün", "un", "ün")

For x = 0 To 7
If InStr(Right(giris, 1), ara(x)) > 0 Then
NunEkle = giris & "'n" & ekle(x)

Exit Function
End If
Next x

For x = 0 To 7
If InStr(Left(Right(giris, 2), 1), ara(x)) > 0 Then
NunEkle = giris & "'" & ekle(x)
Exit Function
End If
Next x

For x = 0 To 7
If InStr(Left(Right(giris, 3), 1), ara(x)) > 0 Then
NunEkle = giris & "'" & ekle(x)
Exit Function
End If
Next x
NunEkle = ""
End Function

 

[dragon44760]

Ekteki dosyayı inceleyin...

 

[Mdemir63]

Ekteki dosyayı inceleyin...

Selamlar

Teşekkür ederim. Sağolun
Kolay gelsin

 

[raykon1]

Merhaba, örneği vermişsiniz ama ordaki EkEkle fonksiyonunun içeriğini nerden görüyoruz??

 

[dEdE]

Merhaba, örneği vermişsiniz ama ordaki EkEkle fonksiyonunun içeriğini nerden görüyoruz??

Merhaba,
Alt+F11
Module 1 içinde yer alıyor.