Excelde Makro İle Büyük Küçük Harf Duyarlılığı

[mustafa1205]

Ek te örneği olan dosyamda açıklama yaptım.
A1 den A5 dahil bütün harflerin küçük yazılı oması
2:B1 den B5 dahil bütün harflerin ilk harflerinin büyük yazılı yazılı oması
3:C1 den C5 dahil bütün harflerin büyük yazılı yazılı oması

YANİ: bu satırlara veya bu hücrelere "capslook" açık olsun veya olmasın
veri girişi yapıdığında direkt olarak yazıların yada kelimelerin bu şekle dönmesini yapmak istiyorum.Buna uygun kod olabilirmi?Teşekkürler

 

[security]

böyle bişey olabilirmi?

 

[mustafa1205]

Elinize sağlık çok güzel olmuş ancak bunu butonsuz yani yazar yazmaz yapabilirmiyiz. Excelde hazırladığım veri sayfaları var ben personelin bilgilerini oraya kaydediyorum. Bazı bölümlerin harf duyarlılığına ihtiyacı var. Yani enazından bizdeki yazışma kuralları bunu gerektiriyor. bunun için demiştim

 

[Necdet]

Merhaba,

Aşağıdaki kodların hepsini ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Not : Son 3 fonksiyonu ayrı bir modüle de kopyalayabilirsiniz.

A, B ve C sütunlarında çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
 
    If Intersect(Target, [A:C]) Is Nothing Then Exit Sub
    If Target.Row < 2 Then Exit Sub
    If Target.Column > 3 Then Exit Sub
 
    Application.EnableEvents = False
 
    If Target.Column = 1 Then
        Target = KucukHarf(Target.Value)
    ElseIf Target.Column = 2 Then
        Target = YazimDuzeniHarf(Target.Value)
    Else
        Target = BuyukHarf(Target.Value)
    End If
 
    Application.EnableEvents = True
 
Son:
End Sub

Function BuyukHarf(Veri As String)
    BuyukHarf = UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I"))
End Function

Function KucukHarf(Veri As String)
    KucukHarf = LCase(Replace(Replace(Veri, "İ", "i"), "I", "ı"))
End Function

Function YazimDuzeniHarf(Veri As String)
    YazimDuzeniHarf = Application.WorksheetFunction.Proper(Veri)
End Function

 

[mustafa1205]

Necdet Bey tam olarakta istediğimde buydu.Ellerinize sağlık.Teşekkür ederim . Çok sağolun

 

[Necdet]

Necdet Bey tam olarakta istediğimde buydu.Ellerinize sağlık.Teşekkür ederim . Çok sağolun

Güle güle kullanınız.

 

[demhatozcelik]

Merhaba
Necdet bey bunu userformda uygulamak istiyorum.Textboxa yazdığım harfleri kendisi büyük harfe çevirecek şekilde uyarlayabilirmiyiz?