küçükharfleri büyük, büyükleri küçük, ve proper ya

[volkicik]

merhaba

aşağıdaki kodları bir düğmeye atarsanız, herhangi bir hücredeki yazının küçük-büyük-proper özelliğini değiştirebilirsiniz, böylece başka bi hücreye upper,lower, proper formüllerini yazıp sonra onu copy paste yapma zahmetinden kurtulacaksınız, wordde olan bi özellikti, excelde neden yapmamışlar anlamadım, ama makrolar sağolsun


Sub buyukyap()
Set aktif = Selection

For Each s In aktif
buyuk = StrConv(s.Value, vbUpperCase)
s.Value = buyuk
Next s

End Sub



Sub kucukyap()
Set aktif = Selection

For Each s In aktif
buyuk = StrConv(s.Value, vbLowerCase)
s.Value = buyuk
Next s

End Sub


Sub properyap()
Set aktif = Selection

For Each s In aktif
buyuk = StrConv(s.Value, vbProperCase)
s.Value = buyuk
Next s

End Sub