Soru Makrodaki MsgBox'ın gözükmemesi için ne yapmalıyım

[klop01]

Arkadaşlar aşağıdaki makro kodunda If satSay <> soruSay And satSay <> 0 Then şartı oluşmayınca boş bir mesaj kutusu çıkıyor. Bu kutunun çıkmasını nasıl engelleyebilirim?

Sub Eksik_Var_Mı()
 
    soruSay = WorksheetFunction.CountA(Range("E5:AM5"))
    For i = 7 To 66
        satSay = WorksheetFunction.CountA(Range("E" & i & ":AM" & i))
        If satSay <> soruSay And satSay <> 0 Then
            msg = msg & i - 6 & ". öğrencinin eksik puan(lar)ı  var." & vbCr
            hatali = True
        End If
    Next i
    If hatali Then msg = "Öğrenci soru(lar)dan puan alamadı ise ilgili soru için 0 (sıfır) yazmalısınız." & vbLf & "" & vbLf & msg
    MsgBox msg, vbInformation, "BİLGİ"
 End Sub

 

[Seyit Tiken]

Exit Sub

Kod satırını ekleyip deneyin.

 

[klop01]

Önerdiğiniz satırı kodun neresine kopyalamam gerekir?
Denediğim yerlerde olmadı.

 

[Korhan Ayhan]

Şu satıra bir if sorgusu ekleyebilirsiniz.

MsgBox msg, vbInformation, "BİLGİ"

Şöyle düzenleyebilirsiniz.

If msg <> "" Then MsgBox msg, vbInformation, "BİLGİ"

 

[klop01]

Teşekkür ederim sayın Ayhan.
Konu çözüme kavuştu.