private sub worksheet_selection hakkında

[bravo64]

Merhaba,aşağıdaki kod gayet iyi çalışıyordu ama bugün sürekli,uyarı mesajı yazdırıyor..Oysaki ilgili hücreler birbirine eşit..
İlgilenen arkadaşlara teşekkürler..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("anaterminal").Range("ı16") = Sheets("anaterminal").Range("j21") Then
Sheets("anaterminal").Range("f23") = " "
Else
Sheets("anaterminal").Range("f23") = "UYARI! Kasayı kontrol edin, mevcutta fark var!"
End If
If Sheets("anaterminal").Range("f16") <> Sheets("tahsilat").Range("k1") Then
Sheets("anaterminal").Range("a23") = "UYARI! Kasa Tahsilatı Cari Tahsilatı tutmuyor"
Else
Sheets("anaterminal").Range("a23") = ""
End If
If Sheets("anaterminal").Range("g16") <> Sheets("reddiyat").Range("k1") Then
Sheets("anaterminal").Range("g23") = "UYARI! Kasa Reddiyatı Cari Reddiyatı tutmuyor"
Else
Sheets("anaterminal").Range("g23") = ""
End If


End Sub

 

[Tarkan VURAL]

Ã?rnek dosya (sıkıştırarak)yollayabilir misiniz?

 

[bravo64]

Sevgili tarkan vural ilginize teşekkür ederim..Problem çözüldü..Aslında kodda sorun yoktu .bilgisayarı açıp kapattım ve normale döndü..
tekrar teşekkürler..