Türkce karaktersiz büyütme

[ahmeterdemir]

I1-I6 hücreleri yata tüm çalışma sayfası önemli değil
küçük harfleri büyük türkçe karakterleri ingiliz yapmam lazım
mesela

şenol güneş yada ŞENOL GÜNEŞ
yazdığımda bunu

SENOL GUNES

Olarak değişmesi lazım
yardımlarınızı bekliyorum

 

[yanginci34]

Aşağıdaki link te asri beyin bir çalışması var incelermisiniz.
http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html

 

[Necdet]

Merhaba,

Alternatif olsun

verinin A1 de olduğu varsayarak

=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(BÜYÜKHARF(A1);"Ç";"C");"Ğ";"G");"İ";"I");"Ö";"O");"Ş";"S");"Ü";"U")

 

[ahmeterdemir]

Çok iyi oldu bu peki bunu bir macro olarak yapmamız mümkünmü?
yani bunu kullanmak için başka bir hücreyi kullanmam gerekmekte
ben yazdığım hücrede otomatik düzelmesini istiyorum

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Eski_Harf = Array("ç", "i", "ğ", "ö", "ş", "ü", "Ç", "İ", "Ğ", "Ö", "Ş", "Ü")
    Yeni_Harf = Array("c", "ı", "g", "o", "s", "u", "C", "I", "G", "O", "S", "U")
    Veri = Target.Value
    For X = 0 To UBound(Eski_Harf)
        Veri = Replace(Veri, Eski_Harf(X), Yeni_Harf(X))
    Next
    Target.Value = Veri
End Sub

 

[ahmeterdemir]

teşekkürler