- Katılım
- 25 Ocak 2006
- Mesajlar
- 763
- Excel Vers. ve Dili
- 2019 tr
elimde şöyle bir kod var. KNTRL sekmemde bir çok doğrulama sağlayarak kontrol ettiğim ve kodlardan da anlaşılacağı gibi yanlış birşeyler olduğu zaman bana uyarı veren bir düzenleme. bunu yaparken gene buradan yardım aldım ama eklemem gereken birkaç kontrol daha olması lazım fakat ben bunu ekleyemiyorum. kodlarda çarpıya bastığım zaman uyumsuz olan yerlere göre yanlış varsa uyarıyı veriyor fakat yine de çıkmak istiyormusun sorusunu soruyor. bunun değişmemesi gerekiyor. ve ne olursa olsun son olarak KNTRL sayfası aktif oluyor. koda eklenecek olanlar şunlar.
C49 D49 E49 BİRBİRİNE EŞİT DEĞİLSE "FARKLI SAYFALARDA ÖDENEK TOPLAMLARINDA UYUMSUZLUK VAR"
C50 D50 E50 BİRBİRİNE EŞİT DEĞİLSE "FARKLI SAYFALARDA TOPLAM ÖDENENLERDE UYUMSUZLUK VAR"
C51 D51 E51 BİRBİRİNE EŞİT DEĞİLSE "FARKLI SAYFALARDA KALAN ÖDENEK TOPLAMLARINDA UYUMSUZLUK VAR"
C54 EŞİT DEĞİLSE "√" "DOĞRUDAN TEMİNLERDE UYUMSUZLUK VAR"
O45 0 DAN FARKLI İSE "servisler arası harcamalarda yanlış var"
C56 0 DAN FARKLI İSE "GT İLE İLLER ARASI FARKLARDA UYUMSUZLUK VAR."
ve yazılan kod ise
bu eklemeler için sizlerden yardım bekliyorum. iyi günler.
C49 D49 E49 BİRBİRİNE EŞİT DEĞİLSE "FARKLI SAYFALARDA ÖDENEK TOPLAMLARINDA UYUMSUZLUK VAR"
C50 D50 E50 BİRBİRİNE EŞİT DEĞİLSE "FARKLI SAYFALARDA TOPLAM ÖDENENLERDE UYUMSUZLUK VAR"
C51 D51 E51 BİRBİRİNE EŞİT DEĞİLSE "FARKLI SAYFALARDA KALAN ÖDENEK TOPLAMLARINDA UYUMSUZLUK VAR"
C54 EŞİT DEĞİLSE "√" "DOĞRUDAN TEMİNLERDE UYUMSUZLUK VAR"
O45 0 DAN FARKLI İSE "servisler arası harcamalarda yanlış var"
C56 0 DAN FARKLI İSE "GT İLE İLLER ARASI FARKLARDA UYUMSUZLUK VAR."
ve yazılan kod ise
Kod:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set s = Sheets("kntrl")
If IsError(s.[D4]) Or IsError(s.[D5]) Or IsError(s.[D6]) Or IsError([D7]) Then
MsgBox "ÖDEME DURUMU hücrelerinde FORMÜL HATASI var, önce bu hata düzeltilmelidir", vbCritical
Cancel = False
ElseIf Abs(s.[D4] - s.[D5]) > 1 Or _
Abs(s.[D5] - s.[D6]) > 1 Or _
Abs(s.[D6] - s.[D7]) > 1 Then
MsgBox "Ödeme durumunda uyumsuzluk var." & vbLf & _
"Bu uyarıya rağmen yine de çıkmak istiyor musun?", _
vbCritical, "::..HOPPP- HATA VAR..::"
Else
Cancel = False
s.Activate
End If
If IsError(s.[I4]) Or IsError(s.[I5]) Or IsError(s.[I6]) Then
MsgBox "BORÇ DURUMU hücrelerinde FORMÜL HATASI var, önce bu hata düzeltilmelidir", vbCritical
Cancel = False
ElseIf Abs(s.[I4] - s.[I5]) > 1 Or _
Abs(s.[I5] - s.[I6]) > 1 Then
MsgBox "Borç durumunda uyumsuzluk var." & vbLf & _
"Bu uyarıya rağmen yine de çıkmak istiyor musun?", _
vbCritical, "::..HOPPP- HATA VAR..::"
Else
Cancel = False
s.Activate
End If
If IsError(s.[L3]) Or IsError(s.[L4]) Or IsError(s.[I6]) Then
MsgBox "BORÇ DURUMU hücrelerinde FORMÜL HATASI var, önce bu hata düzeltilmelidir", vbCritical
Cancel = False
ElseIf Abs(s.[L3] - s.[L4]) > 1 Or _
Abs(s.[L4] - s.[L3]) > 1 Then
MsgBox "İllerde uyumsuzluk var." & vbLf & _
"Bu uyarıya rağmen yine de çıkmak istiyor musun?", _
vbCritical, "::..HOPPP- HATA VAR..::"
Else
Cancel = False
s.Activate
End If
If IsError(s.[N26]) Or IsError(s.[N43]) Then
MsgBox "BÜTÇE TERTİBİ DURUMU hücrelerinde FORMÜL HATASI var, önce bu hata düzeltilmelidir", vbCritical
Cancel = True
ElseIf Abs(s.[N26] - s.[N43]) > 1 Then
MsgBox "Bütçe tertibi toplamlarında uyumsuzluk var." & vbLf & _
"Bu uyarıya rağmen yine de çıkmak istiyor musun?", _
vbCritical, "::..HOPPP- HATA VAR..::"
Else
Cancel = False
s.Activate
End If
Cancel = False
End Subbu eklemeler için sizlerden yardım bekliyorum. iyi günler.
