Excelde ismin sonuna (e, a, de, da vb. ekleme)

[Ahmet Sami]

İyi günler arkadaşlar, Yardımınıza ihtiyacım var;
Sizden istediğim yardım, Excelde Sayfa1 de C:C sütununda alt alta 500 adet isim soyisim var, ben bu isimleri Düşeyara formulü ile Sayfa2 ye alıyorum, ancak Sayfa2 gel geldiklerinde soyisim den sonra e, a, i, de, da, ye, ya, gibi eklenebilir mi, bu konuda yardımcı olabilirmisiniz.
Örnek: Ahmet YILMAZ 'a
Mehmet DEMİR 'e
Hasan MARLA 'ya
Veli MERVE 'ye
.............gibi

 

[muratboz06]

Ekteki örneği inceleyiniz.

https://s4.dosya.tc/server6/z088id/DuseyAraVeEkEkle.xlsm.html

Büyük çoğunluğuna yönelme eki (-e,-a) ekleyecektir.

 

[Ahmet Sami]

Sayın Murat bey, güvenlik virüs gibi bilgisayar kısıtlama yapıyor indiremiyorum. Normal olarak yükleme imkanınız var mı

 

[Necdet]

Merhaba,

Burayı inceleyiniz.

 

[muratboz06]

Rarlı dosya.
https://s4.dosya.tc/server6/1nf6vm/DuseyAraVeEkEkle.rar.html

Function DüşeyAraVeEkEkle(x As Variant) As String
    Application.Volatile
    Dim a As String
    a = WorksheetFunction.VLookup(x, Worksheets("Sayfa1").Range("A:C"), 3, 0) 'Sayfa1 isimli sayfada A:C tablosunda arama yapar, 3.sütundaki bilgiyi alır.
    If InStr(1, "a,ı,o,u", Right(a, 1), vbTextCompare) Then
        c = "'ya"
    ElseIf InStr(1, "e,i,ö,ü", Right(a, 1), vbTextCompare) Then
        c = "'ye"
        a = a & c
    ElseIf InStr(1, "a,ı,o,u", Mid(a, Len(a) - 1, 1), vbTextCompare) Then
        c = "'a"
        a = a & c
    ElseIf InStr(1, "e,i,ö,ü", Mid(a, Len(a) - 1, 1), vbTextCompare) Then
        c = "'e"
        a = a & c
    ElseIf InStr(1, "a,ı,o,u", Mid(a, Len(a) - 2, 1), vbTextCompare) Then
        c = "'a"
        a = a & c
    ElseIf InStr(1, "e,i,ö,ü", Mid(a, Len(a) - 2, 1), vbTextCompare) Then
        c = "'e"
        a = a & c
    End If
    DüşeyAraVeEkEkle = a
End Function

 

[Ahmet Sami]

Merhaba,

Burayı inceleyiniz.

Necdet bey baktım. Soyadının sonuna ekleme yaparken büyük harf olarak ekliyor. Küçüğe çeviremedim

 

[Ahmet Sami]

Murat bey virüslü olarak görüyor hala indiremiyor. Kodu alarak demek istedim ama herhangi bir işlem yapmadı hatada vermedi. Müsaitseniz şayet tarif etme imkanınız var mı?

 

[27style]

merhaba,
aşağıdaki formülün olduğu Sayfa2.B2 hücresinde sonuç "Murat gece'ye" olarak görünüyor. Sayfa1.C2 hücresindeki soyad alanını "GECE" olarak değiştirdiğimde ise sonuç "Murat GECE'ye" olarak görünüyor. tekrar kontrol edebilir misiniz? Murat bey'in gönderdiği dosyada sorun görünmüyor.


=CONCATENATE(VLOOKUP(A2;Sayfa1!A:C;2;0);" ";DüşeyAraVeEkEkle(A2))

 

[muratb06]

Excel Vba da yeni modül ekleyerek yukarıdaki kodu kopyalayınız.

Verilerin Sayfa 1 de ve A:C sütununda olduğu varsayılmıstır. A sütünü No, SicilNo, TC No vb. Düseyara için kullanılan tekil deger olsun, B sutunu Ad, C sütünündada Soyad olsun.

Sayfa2 de A1 de tekil numara varsa,
B1 e veya baska biryere DuseyAraVeEkEkle(A1) yazarsanız A1 e ait Soyismi bulur ve eki ekler.

Sayfa1 A1:123456 B1:Ahmet C1:Excel verileri var diyelim,
Sayfa2 A1 de 123456 var ve B1 e =DuseyAraVeEkEkle(A1) yazarsanıız hücreye Excel'e yazacaktır.

Örnek excel yollarsanız kodu ona göre revize ederiz. Ben sadace soyisime ek ekledim. Gerekirse basınada isim gelecek sekilde birleştirilir. Göndermiş olduğum dosyada bu sekilde iki örnek vardı.



ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi

 

[Necdet]

Necdet bey baktım. Soyadının sonuna ekleme yaparken büyük harf olarak ekliyor. Küçüğe çeviremedim

Merhaba,

İkinci sayfaya bakmadınız mı?

 

[Ahmet Sami]

Murat bey örnek dosya gönderdim