Ucase$() (Büyük Harfe Çevirme) problemi

[alibal]

Cells(sonsatir, x) = UCase$(Trim(.Cells(8, x)))

Arkadaşlar yukarıdaki kod ile bir sayfada hücrelere girilen değerleri veri tabanı sayfasına kaydederken BÜYÜK HARF e dönüştürerek kaydediyorum. Ancak

ı ve i harflarinde sorun oluyor.

" ı " harfi büyük harfe çevrilmiyor,
" i " harfi de " I " olarak çevriliyor.

Acaba sıkıntı nereden kaynaklanıyor.

Teşekkür ederim...

 

[Recep İpek]

Cells(sonsatir, x) =UCase$(Replace(Replace((.Cells(8, x)), "ı", "I"), "i", "İ"))

kodunu kullanabilirsiniz.

 

[Levent Menteşoğlu]

Alternatif,

Cells(sonsatir, x) = Evaluate("=UPPER(" & """" & Trim(.Cells(8, x)) & """" & ")")

Sorunda Ucase gibi VBA fonksiyonlarının "ı" ve "i" karakterlerini ayırt edememesinden kaynaklanıyor.

 

[alibal]

ripek ve Leventm üstadlarıma teşekkür ederim.
Deneyeceğim...

 

[inowjoin]

Büyük Harf Küçük harf çevirme problemi

merhaba ben mba kurlar menüsüne (forumda var) büyük harf küçük harf segmesi eklemdim bende de I i İ ı ile ilgili prglemler doğdu ama yukarıdaki kodları uyarlıyamadım kodlar aşağıdakı gibi
*****************************
Sub BuyukHarf()
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub
Sub KucukHarf()
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub

bide sağ tuş menüsüne bunları ekleyince her excel açılışında yenibir sekme oluşuyor
Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

Sub BuyukHarf()
For Each c In Selection.Cells
c.Value = Evaluate("=UPPER(" & """" & c & """" & ")")
Next c
End Sub

Sub KucukHarf()
For Each c In Selection.Cells
c.Value = Evaluate("=LOWER(" & """" & c & """" & ")")
Next c
End Sub

 

[inowjoin]

teşekkürler

walla harika işe yaradı teşekkürler