otomatik büyük harf işlemi

[fnd86]

merhaba excel e her girdiğmde otomatik olarak büyük harfe uyarlı olması için ne yapmalıyım ??? bunun için bi default sistemi var mı?

 

[İhsan Tank]

merhaba excel e her girdiğmde otomatik olarak büyük harfe uyarlı olması için ne yapmalıyım ??? bunun için bi default sistemi var mı?

merhaba
kitabınızın kod bölümündeki thisworkbook bölümüne

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Value <> "" Then
Target.Value = UCase(Target.Value)
End If
End Sub

bu kodu yapıştırarak deneyiniz

 

[Korhan Ayhan]

Selamlar,

İhsan bey gerekli kodu vermiş fakat UCASE fonksiyonu tek başına bu iş için yeterli değildir.

"i" ve "ı" karakterlerinde sorun yaşarsınız. Bu sebeple önerilen kodu aşağıdaki şekilde değiştirerek kullanmanızda fayda vardır.

Option Explicit
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Target.Value <> "" Then
    Target.Value = [COLOR=red]UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I"))[/COLOR]
    End If
End Sub

 

[fnd86]

teşekkür ederim ama yapıştırmam gereken yeri bulamadım hangi sekmede acaba ?

 

[Korhan Ayhan]

Selamlar,

Uygulamak istediğiniz dosyanızı açın.
ALT+F11 tuşlarına basın.
Açılan pencerenin sol üst bölümünde "ThisWorkbook" ya da "BuÇalışmaKitabı" şeklinde bir sekme bulunacaktır. Bu sekme üzerinde çift tıklama yapın. Sağ tarafta açılan bölüme kodu uygulayın.

Ayrıca kodların çalışması için makro güvenlik ayarını aşağıdaki linki inceleyerek değiştirmeniz gerekiyor.

Excel 2007 Makro Güvenlik Ayarı

 

[fnd86]

çok teşekkür ederim