İki Hücreden Aldığı Verilerdeki Türkçe Karakterleri İngilizceye Çevirme

[alisahin61]

Herkese merhaba,

Resimde belirttiğim D sütunundaki "Kemal Yeşil" verisini B ve C sütunlarına birleştir komutu girerek elde ediyorum.

İstediğim şey ise B ve C sütunlarındaki isim ve soyismi alıp arasına nokta koymak,sonuna "@xxx.edu.tr" eklemek ve isim soyisimdeki türkçe karakterleri ingilizceye çevirmek. Acaba böyle bir formül varmı. Yada bunu makro ile çözebilirmiyiz. Yada aklıma gelen diğer ihtimal sadece A sütunundaki karakterleri bul ve değiştir yapabiliyormuyum. Cevaplarınız beni çok büyük bir zaman kaybından kurtaracaktır. Teşekkür ederim.

 

[ÖmerFaruk]

A1 de isim
B1 de soyisim yazın
C1 de mail adresi
=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(KÜÇÜKHARF(A1);"ö";"o");"ı";"i");"ş";"s");"ü";"u");"ğ";"g") &"." &YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(KÜÇÜKHARF(B1);"ö";"o");"ı";"i");"ş";"s");"ü";"u");"ğ";"g") & "@xxx.edu.tr"

 

[Tevfik_Kursun]

Merhaba Arkadaş,
https://drive.google.com/file/d/1tsZT8JR2QyTqZIULluZ8UfGmZf50-MzH/view?usp=sharing
(Link silinebilir)
Sadece B ve C kolonlarını doldurup, A2 ve D2 yi de kulaklarından çekiniz.
İyi çalışmalar

 

[veyselemre]

Public Function turkceHarflerdenIngilizceHarflereCevir(cumle)
    cumle = LCase(Replace(Replace(cumle, "ı", "i"), "İ", "i"))
    ing = Array("o", "c", "s", "g", "u")
    trk = Array("ö", "ç", "ş", "ğ", "ü")
    For i = 0 To UBound(trk)
        cumle = Replace(cumle, trk(i), ing(i))
    Next
    turkceHarflerdenIngilizceHarflereCevir = cumle
End Function

 

[Haluk]

Function EN_TR(textAd As String, textSoyad As String)
    EN_TR = StrConv(textAd + "." + textSoyad, vbLowerCase, 1033)
    EN_TR = StrConv(EN_TR, vbLowerCase, 64) + "@xxx.edu.tr"
End Function

.

 

[alisahin61]

Herkese cevapları için çok teşekkür ederim. Tam istediğim şekilde oldu. Müsadenizle bir ayrıntı daha sormak istiyorum. Örneğin isim ve soyisim sütunlarında iki isim veya iki soyisim olduğu durumlarda sadece 1. olanı alarak mail adresini A sütununa oluşturmak için bu formülleri uygulayabiliyormuyuz.

 

[Haluk]

Function EN_TR(textAd As String, textSoyad As String)
    textAd = Split(textAd, " ")(0)
    textSoyad = Split(textSoyad, " ")(0)
    EN_TR = StrConv(textAd + "." + textSoyad, vbLowerCase, 1033)
    EN_TR = StrConv(EN_TR, vbLowerCase, 64) + "@xxx.edu.tr"
End Function

.

 

[Tevfik_Kursun]

Alternatif olsun;
Tabi onun da çaresi var. Şimdi size 3 nulu mesaj revize edildi.
İyi çalışmalar

E-Posta_Listesi2.xlsm

drive.google.com

 

[alisahin61]

Alternatif olsun;
Tabi onun da çaresi var. Şimdi size 3 nulu mesaj revize edildi.
İyi çalışmalar

E-Posta_Listesi2.xlsm

drive.google.com

Desteğiniz için çok teşekkür ederim. Formüle göre sadece isim tarafındaki çift ismin birincisini alıyor. Soyisim içinde uygulayabilirseniz sanırım tamamen istediğim gibi olacaktır.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
E-Posta_Listtesi3
Buyrun, 4. satıra uygun alternatif te ekledim. Dilediğinizi kullanınız.
İyi çalışmalar

 

[alisahin61]

Emeği geçen herkese gerçekten çok teşekkür ederim. Hepinizden Allah razı olsun. Uzun zamandır bunu çözemediğim için çok zaman harcıyordum. İşiniz gücünüz rast gitsin.

 

[Tevfik_Kursun]

Geri dönüş yaptığınız için ben teşekkür ederim.
İyi çalışmalar