Büyük harfe çevirme

[halit3]

Bir Altenatif kod da ben ekliyorum.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [E2:I1000]) Is Nothing Then

deg3 = Array("a", "b", "c", "ç", "d", "e", "f", "g", "ğ", "h", "ı", "i", "j", "k", "l", "m", "n", "o", "ö", "p", "r", "s", "ş", "t", "u", "ü", "v", "y", "z", "w", "x", "q")
deg4 = Array("A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "Ö", "P", "R", "S", "Ş", "T", "U", "Ü", "V", "Y", "Z", "W", "X", "Q")

aranan = Target.Value
For t = 0 To 31
aranan = Replace(aranan, deg3(t), deg4(t))
Next t
Target.Value = aranan

End If

End Sub