Soru Büyük harf küçük harfe duyarlılık

[teknikyapı]

Merhaba
Aşağıdaki kodlarda sayfadaki hücrede mesela BÜYÜK harf ile yazılmış verinin aynı isimde kayıt olup olmamasının sorgulanmasında Textbox a yazılan veri KÜÇÜK harf ile yazıldığında uyarı vermiyor .( Yani , hem büyük hem küçük harf ile yazılı 2 adet mükerrer kayıt oluyor).

Kodlarda nasıl bir düzenleme yapabiliriz acaba?

'C sütunundaki en son dolu hücreyi saydırıyoruz
For Each bak In Range("C1:C" & WorksheetFunction.CountA(Range("C1:C65536")))
'eğer bak değişkeni = se texbox a
If bak = TextBox2 Then
'uyarı mesajı veriyoruz
MsgBox "D İ K K A T BU İSİMDE ZATEN BİR KAYIT VAR LÜTFEN BAŞKA BİR DEĞER GİRİN", vbCritical
TextBox2.SetFocus

Exit Sub
End If
Next

 

[Haluk]

Aşağıdaki gibi birşey olabilir;

if ucase(bak) = ucase(textbox2) then

.

 

[teknikyapı]

Sn.Haluk Bey,

Kod tam olmasa da % 99 büyük ölçüde sorunu çözdü gibi sadece bazı Türkçe karekterlerde ( ş ,ç vb gibi kelimelerde) sonuç vermiyor ama çok sorun değil şimdilik.
Teşekkür ederim.

 

[FERAZ]

Kod penceresinin en üstüne
option compare text
yazılıncada oluyor biliyorum çözüm için.

 

[Korhan Ayhan]

@Haluk beyin önerisini aşağıdaki gibi kullanabilirsiniz.

If UCase(Replace(Replace(TextBox2.Value, "ı", "I"), "i", "İ")) = UCase(Replace(Replace(Bak.Value, "ı", "I"), "i", "İ")) Then

 

[teknikyapı]

Halloldu , iyiki varsınız...