Aynı hücredeki iki kelime arasındaki boşluğu kaldırma

[huseyinvurkan]

Merhaba arkadaşlar. Okul dynet programı için öğrencilerin adlarından oluşan email adresleri yapmak istiyorum. e-okul dan isimlerini excel formatına çevirdim.
Ad soyad birleştirmesini yaptım. D sütununda ingilizce karakterlere çevirdim. Ancak iki isimli olan çocukların birinci ve ikinci isimleri arasındaki boşluğu kaldıramadım. Örnek dosyada sarı işaretli hücrelerdeki boşlukların kalkarak birleşik hale gelmesini istiyorum. Yadrımlarınız için şimdiden teşekkürler.

 

[mustafaine1]

Function cevir(gir As String) As String
    eH = Array(Chr(32), Chr(208), Chr(240), Chr(222), Chr(254), Chr(199), Chr(231), Chr(221), Chr(236), Chr(237), Chr(214), Chr(246), Chr(252), Chr(220), Chr(158), Chr(159))
    yH = Array("_", "g", "g", "s", "s", "c", "c", "i", "i", "i", "o", "o", "u", "u", "s", "s")
    For x = 0 To 11
        gir = Replace(gir, eH(x), yH(x))
    Next x
    cevir = gir
End Function

bu sekilde deneyiniz yalniz Ş`nin karakter degeinimi bulamadim anlamadim onu duzeltmedi bende..

 

[Necdet]

Merhaba,

Mevcut kodlarınıza küçük bir ek yaptım.

Function cevir(gir As String) As String
    eH = Array([B][COLOR=red]" ",[/COLOR][/B] "ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
    yH = Array([COLOR=red][B]""[/B][/COLOR], "i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")
    For x = 0 To 11
        gir = Replace(gir, eH(x), yH(x))
    Next x
    cevir = gir
End Function

 

[huseyinvurkan]

Sayın mustafaine ingilizce karakterlere çevirmede bir sorunum yok. benim sorunum mesela "ayse zehramacar" hücresini "aysezehramacar" haline getirmek yani ayse ve zehra arasındaki boşluktan kurtulmak. Saygılarımla.

 

[huseyinvurkan]

Sayın Necdet Yeşertener Yazdığınız kodu uyguladım ve çalıştı. İlginize ve bilginize Teşekkürler

 

[mustafaine1]

tamam aradaki boslugu _ (alt cizgi) yapmistim, genelde klasigi odur.. Bu arada bende ş`yi sizde duzeltiyormu diye merak ediyorum..

 

[mustafaine1]

bu arada chr kullanmanizi tavsiye ederim, cunku baska bilgisayarlrda acarken vba kodlarida karakterlerini degistirebiliyor..