Türkçe Karakter Temizleme Fonksiyonu

[sahir73]

Ekteki dosyamda Türkçe karakterler bulunmakta elimde aşağıda belirttiğim Türkçe karakter değiştirme fonkisyonu var. Temizle butonuna tıkladığımda sayfamdaki Türkçe karakterler değişsin. Ya da bu fonksiyonu aktif bir şekilde nasıl kullanabilirim.

Function TKD(Veri As String)
    Dim X As Integer, Eski_Harf() As Variant, Yeni_Harf() As Variant

    Application.Volatile True

    Eski_Harf = Array("ç", "Ç", "ğ", "Ğ", "ı", "İ", "ö", "Ö", "ş", "Ş", "ü", "Ü")
    Yeni_Harf = Array("c", "C", "g", "G", "i", "I", "o", "O", "s", "S", "u", "U")
    TKD = Veri

    For X = 0 To UBound(Eski_Harf)
        TKD = WorksheetFunction.Substitute(TKD, Eski_Harf(X), Yeni_Harf(X))
    Next
End Function

 

[Haluk]

Linkteki kod işinize yarar;

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

.

 

[sahir73]

Linkteki kod işinize yarar;

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

.

Hauk bey fare seçimi yerine B2 den c5000 e kadar ki aralığı nasıl döngüye yerleştirebilirim

 

[veyselemre]

Private Sub CommandButton1_Click()
   Dim X As Integer, Eski_Harf() As Variant, Yeni_Harf() As Variant
  
    Eski_Harf = Array("ç", "Ç", "ğ", "Ğ", "ı", "İ", "ö", "Ö", "ş", "Ş", "ü", "Ü")
    Yeni_Harf = Array("c", "C", "g", "G", "i", "I", "o", "O", "s", "S", "u", "U")
 
    For X = 0 To UBound(Eski_Harf)
        Range("B2:C5000").Replace What:=Eski_Harf(X), Replacement:=Yeni_Harf(X), MatchCase:=True
    Next
End Sub

 

[Haluk]

Hauk bey fare seçimi yerine B2 den c5000 e kadar ki aralığı nasıl döngüye yerleştirebilirim

Private Sub CommandButton1_Click()
    Dim Rng As Range
    For Each Rng In Range("B2:C" & Range("C" & Rows.Count).End(xlUp).Row)
        Rng = StrConv(Rng.Text, vbUpperCase, 1033)
        Rng = StrConv(Rng.Text, vbUpperCase, 64)
    Next
End Sub

.

 

[sahir73]

Private Sub CommandButton1_Click()
   Dim X As Integer, Eski_Harf() As Variant, Yeni_Harf() As Variant
 
    Eski_Harf = Array("ç", "Ç", "ğ", "Ğ", "ı", "İ", "ö", "Ö", "ş", "Ş", "ü", "Ü")
    Yeni_Harf = Array("c", "C", "g", "G", "i", "I", "o", "O", "s", "S", "u", "U")

    For X = 0 To UBound(Eski_Harf)
        Range("B2:C5000").Replace What:=Eski_Harf(X), Replacement:=Yeni_Harf(X), MatchCase:=True
    Next
End Sub

Teşekkür ederim . Emeğiniz için sağ olun.

 

[sahir73]

Private Sub CommandButton1_Click()
    Dim Rng As Range
    For Each Rng In Range("B2:C" & Range("C" & Rows.Count).End(xlUp).Row)
        Rng = StrConv(Rng.Text, vbUpperCase, 1033)
        Rng = StrConv(Rng.Text, vbUpperCase, 64)
    Next
End Sub

.

Çok teşekkür edim Haluk bey