bravo64
Altın Üye
- Katılım
- 21 Eylül 2005
- Mesajlar
- 184
- Excel Vers. ve Dili
- ofis 365 İngilizce
- Altın Üyelik Bitiş Tarihi
- 25-10-2024
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
İ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