Otomatik Baş Harf Büyütme Varmı

[poetika]

Nereye yapıştırdığınız önemlidir.

ThisWorkBook ya da BuÇalışmaKitabı bölümüne uygulamanız gerekiyor.

zaten bahsettiğiniz bölüme kopyalıyorum ama sorun çözülmüyor. sorunu şöyle detaylandırayım: hücreye "i" harfi ile başlayan bir kelime yazdığımda ilk harfi büyük "İ" ye çevirmiyor, büyük "I" ya dönüştürüyor. ayrıca "ı" harfi ile başlayan kelimenin baş harfini büyük "I" ya çeviremiyor. kelime ortasında büyük harfle yazılmış bir "İ" harfini küçük "i" ye çeviremiyor. son olarak ise, çalışma kitabında herhangi bir hücreyi TL para birimine çevirdiğimde yeni TL simgesini görmüyor, sadece sayıya dönüştürüyor. örneğin ben hücreye 54,90 yazıyorum. hücre "54,90 ₺" şeklinde görünmesi gerekirken, sadece "54,90" yani sayı olarak görünüyor.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    If Not IsEmpty(Target) And Not IsNumeric(Target) Then
        Target = Evaluate("=PROPER(""" & Target & """)")
    End If
Son: Application.EnableEvents = True
End Sub

Not: Profilinize kullandığınız ofis sürümünü ve dil bilgisini girerseniz sevinirim.

 

[poetika]

Aşağıdaki kodu deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    If Not IsEmpty(Target) And Not IsNumeric(Target) Then
        Target = Evaluate("=PROPER(""" & Target & """)")
    End If
Son: Application.EnableEvents = True
End Sub

Not: Profilinize kullandığınız ofis sürümünü ve dil bilgisini girerseniz sevinirim.

Çok teşekkür ediyorum. Sorunsuz çalışıyor.