ı,ğ,ü,ş,ö,ç harflerinin düzeltilmesi

[kneehot]

Arkadaşlar merhaba. Bir makro ilevSectiğim alanda hücreler içindeki mail adreslerinde bulunan ı,ğ,ü,ş,ö,ç harflerinin i,g,u,s,o,c harfleriyle değiştirebilmeyi istiyorum. Yardımlara cok tesekkur ederım.

 

[Necdet]

Merhaba,

A sütununda olduğu varsayılmıştır. Aşağıdaki kodu bir modüle kopyalayıp deneyiniz.

Sub Cevir()

    Dim i   As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "A") = Replace(Replace(Replace(Replace(Replace(Replace(Cells(i, "A"), "ç", "c"), "ğ", "g"), "ı", "i"), "ö", "o"), "ş", "s"), "ü", "u")
    Next i
    
End Sub

 

[kneehot]

Çok teşekkürler sayın Necdet Yeşertener. biraz geç oldu dönüşüm kusura bakmayın.

 

[kneehot]

Arkadaşlar merhaba, eski bir danıştığım konuda farklı bir ihtiyacım oluştu. Yukarıdaki kod A sütunu üzerinden çalışır şekilde yapılmış ama farklı sütunlarda da ihtiyacımız olabileceğini düşünerek ve bunu bir eklenti gibi çalıştırmak istediğimizde bizi tek sütünla sınırlandırıyor. Bu koda ekleme yapıp çalıştırdığımızda bir sütün yazabileceğimiz form çıksa örneğin L yazarsak ve tamama basınca L sütunundaki harfleri değiştirse çok daha kullanışlı olur diye düşünüyorum. Böylelikle benimde ihtiyacım karşılanmış olur Tüm yardımlara çok teşekkürler.

 

[ÖmerBey]

Merhaba,
Buyurunuz...

Sub Cevir()

    Dim i   As Long
    sut = Application.InputBox("Sütun adı giriniz")
    If sut = False Then Exit Sub
    Cells(Rows.Count, sut).End(3).Select
    For i = 1 To Cells(Rows.Count, sut).End(3).Row
        Cells(i, sut) = Replace(Replace(Replace(Replace(Replace(Replace(Cells(i, sut), "ç", "c"), "ğ", "g"), "ı", "i"), "ö", "o"), "ş", "s"), "ü", "u")
    Next i
    
End Sub

 

[kneehot]

Merhaba,
Buyurunuz...

Sub Cevir()

    Dim i   As Long
    sut = Application.InputBox("Sütun adı giriniz")
    If sut = False Then Exit Sub
    Cells(Rows.Count, sut).End(3).Select
    For i = 1 To Cells(Rows.Count, sut).End(3).Row
        Cells(i, sut) = Replace(Replace(Replace(Replace(Replace(Replace(Cells(i, sut), "ç", "c"), "ğ", "g"), "ı", "i"), "ö", "o"), "ş", "s"), "ü", "u")
    Next i
   
End Sub

Çok teşekkür ederim

 

[Korhan Ayhan]

Alternatif;

Noktalı harfleri noktasız hale getirme

Merhaba hayırlı bayramlar. Ekte gönderdiğim excel dosyamın E sütununda Türkçe karakterli bazı kelimeler var, bu kelimelerin başında ve sonunda boşluklar var, aralarında da fazladan boşluklar var. Ben butona bastığımda hangi sütunu dönüştürmek istiyorsam o sütunu Türkçe karakterli kelimeleri...

www.excel.web.tr