Büyük harf çevirmede türkçe sorunu

[turkerdundar]

Slm
Arkadaşlar aşağıdaki makroyu kullanıyorum ama türkçe karekterlerde sorun oluyor.
Mesela kadir yazıyorum onu KADIR olarak çeviriyor
iiiiiiiii yazıyorum IIIIIIII olarak çeviriyor

bu konuda yardımcı olursanız sevinirim.
Teşekkürler
makro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Aralik As Range
For Each Aralik In Range("B1:B30")
Aralik.Value = UCase(Aralik.Value)
Next
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Aralik As Range
For Each Aralik In Range("B1:B30")
Aralik = Evaluate("=UPPER(""" & Aralik.Value & """)")
Next
End Sub

 

[turkerdundar]

Teşekkürler

Sağolun çalıştı
emeğinize yüreginize sağlık

 

[Haluk]

Levent dostum;

Çok hızlı, çok pratik .... tebrikler.

 

[Levent Menteşoğlu]

Levent dostum;

Çok hızlı, çok pratik .... tebrikler.

Teşekkür ederim üstadım.

Sağolun çalıştı
emeğinize yüreginize sağlık

Rica ederim. İşinize yaradığına sevindim.