Soru kod ile koşullara uymayanı raporlama

[euphrates55]

aşağıdaki kod, belirli şartları sağlamayan hücreleri txt dosyasına rapor olarak yazmaktadır. sorum ise şu. eğer bu şartları sağlamayan bir done yoksa yani rapor.txt ye yazılacak bir veri yoksa "herhangi bir hata bulunmamaktadır" şeklinde bir mesaj çıkmasını istiyorum. mümkünse yardımlarınızı bekliyorum.

Sub Rapor()
Set gt = Sheets("gt")
Open ThisWorkbook.Path & "\Rapor.txt" For Output As #1
For a = 3 To gt.Cells(Rows.Count, "g").End(3).Row
    If Round(gt.Cells(a, "X") - Round((gt.Cells(a, "Z") + gt.Cells(a, "AE") + gt.Cells(a, "AM")), 3), 3) < 0 Then
        Print #1, "Hedeften Dolayı, PB Sorgulanmalı, Proje Bedeli Aşıldı...", "Satır no: " & a
ElseIf Round(gt.Cells(a, "X") - (gt.Cells(a, "Z") + gt.Cells(a, "AE") + gt.Cells(a, "AT")), 3) < 0 Then
        Print #1, "İmalattan dolayı, PB Sorgulanmalı, Proje Bedeli Aşıldı...", "Satır no: " & a
ElseIf Round(gt.Cells(a, "X") - (gt.Cells(a, "AA") + gt.Cells(a, "AS")), 3) < 0 Then
        Print #1, "Borç ya da Harcamadan Dolayı, PB Sorgulanmalı, Proje Bedeli Aşıldı...", "Satır no: " & a
ElseIf gt.Cells(a, "E") = "Tamamlandı" And gt.Cells(a, "X") - (gt.Cells(a, "AA") + gt.Cells(a, "AS")) > 0 Then
        Print #1, "Kesin Hesap Tamamlanmış fakat - PB uyumlu değil, Proje Bedeli Eşitlenmeli", "Satır no: " & a
ElseIf gt.Cells(a, "X") - gt.Cells(a, "AA") < 0 Then
        Print #1, "Kümülatif Harcama PB'yi Geçmiş. Fiziki Gerçekleşme %100 ü aşmış", "Satır no: " & a
ElseIf gt.Cells(a, "r") < gt.Cells(a, "s") Then
        Print #1, "SBF harcanan Toplam İhale Bedelinden Fazla", "Satır no: " & a
ElseIf gt.Cells(a, "E") = "İlanda" And CDbl((gt.Cells(a, "N").Value)) < CDbl(Date) Then
        Print #1, "İhalesi yapılıp, işlenmeyenler var", "Satır no: " & a
End If

Next

secim = MsgBox("RAPORU GÖRMEK İSTER MİSİN?", vbYesNo + vbExclamation, "HATA RAPORU OLUŞTURULDU!!!...")
If secim = vbYes Then
CreateObject("Shell.Application").Open (ThisWorkbook.Path & "\Rapor.txt")
ElseIf secim = vbNo Then
End If
End Sub

 

[hamitcan]

Kod içindeki şartların dışında kalanlar için End If den önce Else komutunu ekleyerek istediğinizi yapabilirsiniz.

Else
msgbox "herhangi bir hata bulunmamaktadır " :exit sub
end if