Simgelerde Açık Kilit =Ð hk

[HACI46]

Arkadaşlar merhaba
Bu formülü VBA da yazarken
If Not Intersect(Target, Range("H5:M24")) Is Nothing Then
If Target.Value = "Ð" Then Target.Value = "Ï"
End If
Bu simge "Ð", Böyle geliyor "?"
Burası
If Target.Value = "?" Then Target.Value = "Ï"
Böyle geliyor, ne yaptıysam beceremedim. Ofis 2016 64 bit kullanıyorum, benim vba ayarlarında mı ki. Bilen kardeşlerimiz aydınlatabilir mi .
Herkese selamlar

 

[ÖmerFaruk]

Aşağıdaki gibi dener misin?

If AscW(Target.Value) = 7430 Then Target.Value = "Ï"

 

[HACI46]

Aşağıdaki gibi dener misin?

If AscW(Target.Value) = 7430 Then Target.Value = "Ï"

Teşekkür ederim, ama olmadı
ben bu kodu bir yabancı (

) videodan aldım da, acaba onların PC dili yabancı olduğundan mı. Fakat Videoda bunu "Ð" ; Ekle, Simge, Yazı Tipi : webdings sekmesinden Açık kilt şeklinde hücreye ekliyor ama folmül çubuğunda Ð şeklinde görülüyor. Formül çubuğundan kopyalayıp Üst teki kodun içine yapıştırıyor lakin ben de aynı işlemi yapmama rağmen bende ?
soru işareti olarak geliyor anlayamadım,
koddaki "Ï" bu simgede Kapalı kilitten geliyor aynı işlemleri yapıyorum bu Ï doğru geliyor da, Açık kilitte niçin hatalı geliyor.
İlginiz için teşekkür ederim. bu açıklama belki sorunu çözmenize yarar. Herkese Selamlar Sağlıklı günler dilerim.

 

[ÖmerFaruk]

Ben dün gece deneyerek yazmıştım o satırı.
Dosyayı kaydetmedim. Şu an bakma şansım yok.

 

[HACI46]

[QUOTE="Ömer Faruk bey merhaba, internetten bir şeyler buldum sanırım. kod yazmaya gerek yokmuş.
Ý İ
ý ı
þ ş
Þ Ş
ð ğ
Ð Ğ
Bunların Türkçe karakter karşılığı bunlarmış.
Selamlar.