Metinde İ-Ç-Ö-Ü-Ş-Ğ leri küçük yapmak

[ECYavuz]

Selamlar arkadaşlar, Gününüz aydın olsun ve hep böyle kalsın....

A sütununda yer alan satırlarda bulunan metinler içinde;

İ, Ç, Ö, Ü, Ş, Ğ harflerini bularak i, ç, ö, ü, ş, ğ olarak küçük harfe çeviren bir makro rica edebilirmiyim...

Ancak metnin ilk harfi Büyük harf kalırsa çok memnun olurum...

Şimdiden teşekkürler ve saygılar.

 

[Orion1]

A sütunundaki leri küçük harfe çevirip b sütununa aktarır.:

Sub kucuk_harf()
Range("B1:B65536").ClearContents
For i = 1 To Cells(65536, "A").End(xlUp).Row
deg = Replace(Replace(Replace(Replace(Replace(Replace(Cells(i, "A").Value, "İ", "i"), _
"Ç", "ç"), "Ö", "ö"), "Ü", "ü"), "Ş", "ş"), "Ğ", "Ğ")
    Cells(i, "B").Value = WorksheetFunction.Proper(deg)
Next i
MsgBox "Küçük harfe çevrildi..!!"
End Sub

 

[Necdet]

Merhaba,

Alternatif olması açısından :

Sub HarfDegistir()
For i = 2 To [A65536].End(3).Row
    Cells(i, "A") = Evaluate("=PROPER(""" & Cells(i, "A") & """)")
    Cells(i, "B") = Evaluate("=UPPER(""" & Cells(i, "B") & """)")
Next i
End Sub

 

[ECYavuz]

Sayın Orion2 çok teşekkür ederim...

 

[ECYavuz]

Sayın Necdet, kusura bakmayın ben yanıt yazdıktan sonra gördüm yazınızı teşekkürler...

 

[Orion1]

Sayın Orion2 çok teşekkür ederim...

Rica ederim.
İyi çalışmalar.