Küçük harfe çevirme

[sdegirmenci]

Merhaba arkadaşlar;
örnek: a1 hücresine büyük harf yazılsada , küçük harf yazılsada, hücreden çıkıldığında yazılan metin küçük harfe dönebilirmi.
Yardımlarınız için teşekkür ederim.

 

[ozcanya]

Şu modulu deneyin forumdan aldım Şu şekide çalışır Hücreyi seçersin Daha sonra Sağ tuş ile büyük ,küçük veya diğer şekilde yapılabilir.

 

[aliakgul]

Merhaba,
Aşağıdaki kodları uyarlayabildim ancak ilgili hücreyi tekrar tıklaman gerekiyor.Yani tam istenen sonuç değil.Bir fikir verebilir diye ekliyorum..Kolay gelsin...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell = Evaluate("=lower(" & """" & ActiveCell & """" & ")")
End Sub

 

[htsumer]

edit..pardon küçük harf istenmiş

 

[ECYavuz]

İki örnek de benden:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target = LCase(Target)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
abir = LCase(Replace(Replace(Range("a1"), "I", "ı"), "İ", "i"))
Range("a1") = abir
End Sub

 

[uzmanamele]

merhaba
LCase yerine UCase yazarsak büyütürüz
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target = LCase(Target)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target = UCase(Target)
End Sub

 

[htsumer]

İki örnek de benden:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target = LCase(Target)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
abir = LCase(Replace(Replace(Range("a1"), "I", "ı"), "İ", "i"))
Range("a1") = abir
End Sub

:icelim: Çok güzel.Teşekkür

 

[Orion1]

A sütununda Büyük harfleri küçük harflere çevirir.
Sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Value = LCase(Replace(Replace(Target.Value, "I", "ı"), "İ", "i"))
End Sub

 

[sdegirmenci]

Cevap verme nezaketini gösteren tüm arkadaşlara çok teşekkür ederim.Bilginize sağlık