• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Türkce karaktersiz büyütme

Katılım
25 Haziran 2008
Mesajlar
63
Excel Vers. ve Dili
2003 türkçe
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
 
Merhaba,

Alternatif olsun

verinin A1 de olduğu varsayarak

Kod:
=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(BÜYÜKHARF(A1);"Ç";"C");"Ğ";"G");"İ";"I");"Ö";"O");"Ş";"S");"Ü";"U")
 
Ç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
 
Deneyiniz.

Kod:
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
 
teşekkürler
 
Geri
Üst