Kodda büyük yada küçük harf düzenlemesi

[1Al2Ver]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If [C14] = "ALİ" Then
MsgBox "İstenilen değere ulaşıldı"
[A1].Select
End If
End Sub

Hücrede (C14) ister ALi, ister Ali yada ali yazdığında, diğer bir deyişle büyük yada küçük harf sınırlaması olmadan mesaj almak için, kodda gereken düzenlemeyi rica ediyorum.

Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

If UCase(Replace(Replace(Target, "i", "İ"), "ı", "I")) = "ALİ" Then

 

[1Al2Ver]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

If UCase(Replace(Replace(Target, "i", "İ"), "ı", "I")) = "ALİ" Then

Sayın Korhan Ayhan, merhaba,

Çözüm için teşekkür ederim,

Saygılarımla.