Veri yoksada mesaj versin

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Aşağıdaki kodla Belgemin ALINDI sayfasında bulunan A7 ile P11 arasındaki verileri temizleyip mesaj veriyor,
İSTEĞİM;

Sub TEMİZLE()
If MsgBox("LÜTFEN DİKKAT!" & vbCrLf & "ALINDI BELGESİNİ TEMİZLEMEYİ ONAYLIYOR MUSUNUZ? " & vbCrLf & "EVET YADA HAYIR", vbInformation + vbYesNo, "..::LÜTFEN DİKKAT::..") = vbNo Then Exit Sub
With Sheets("ALINDI").Range("A7:11")
.Value = ""
.Interior.ColorIndex = xlNone
End With

'Alındı Sayfasının A7 ile P11 arasında veri yoksa 'MsgBox "TEMİZLENECEK BELGE YOK" bu mesajı almak için nasıl bir düzenleme yapmam lazım.

MsgBox "ALINDI BELGESİ TEMİZLENDİ ", vbInformation, "CENGİZ Y....K"

End Sub

İsteğim eğer ALINDI sayfasında Range("A711") bu aralıkta veri yoksa TEMİZLENECEK BELGE YOK diye mesaj vermesini istiyorum. teşekkürler.
Teşekkür ederim.

 

[Hacı Bayram ÖZKAN]

Merhabalar arkadaşlar, bu soruma bir cevap istiyorum, hepinize teşekkür ederim.

 

[veyselemre]

Sub TEMİZLE()
    With Sheets("ALINDI").Range("A7:P11")
        If WorksheetFunction.CountA(.Cells) > 0 Then
            If MsgBox("LÜTFEN DİKKAT!" & vbCrLf & "ALINDI BELGESİNİ TEMİZLEMEYİ ONAYLIYOR MUSUNUZ? " & vbCrLf & "EVET YADA HAYIR", vbInformation + vbYesNo, "..::LÜTFEN DİKKAT::..") = vbNo Then Exit Sub
            .Value = ""
            .Interior.ColorIndex = xlNone
            Msg = "ALINDI BELGESİ TEMİZLENDİ ...."
        Else
            Msg = "TEMİZLENECEK VERİ BULUNAMAMIŞTIR ...."
        End If
    End With
    MsgBox Msg, vbInformation, "CENGİZ Y....K"
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Veysel Emre bey çok teşekkür ederim. Eline sağlık dua ile kal.

 

[Hacı Bayram ÖZKAN]

Sayın Veysel Emre bey; bir ricam daha olacaktı mesaj konusu olduğu için yeni bir soru açmadım, yardımcı olursan sevinirim. Teşekkür ediyorum.
Buna birde dosya ekliyorum,

Ekli dosyamda araçlarım var bunların Sigorta, Muayene ve Egzoz muayenelerini takip ediyorum, Sigortası veya Muayenesi gelmeyen araçların mesajı ekrana gelmesin bunu istiyiorum, ekli dosyada Sigortası gelmeyen araçlar olduğu halde mesaj bilgisi boş geliyor, bu gelmesin istiyorum. Yani 1 aylık için mesaj görüntüsü almak istiyorum.

Sub SİGORTA()

On Error Resume Next

For i = 3 To Cells(Rows.Count, "B").End(3).Row
bugün = CDbl(Date)

fark = CDbl(Cells(i, "L")) - bugün
' fark = CDbl(Cells(i, "N")) - bugün
' fark = CDbl(Cells(i, "P")) - bugün



If fark <= 30 Then

If fark < 0 Then
ek = " gün geçmiştir."
Else
ek = " gün kalmıştır."
End If

If fark = 0 Then ek = " SON Gün."

msj = Cells(i, "B") & " Plakalı Aracın SİGORTASINA" & vbTab & fark & vbTab & ek & Chr(10)
ileti = ileti & msj

End If


Next i

' örneğin bunun için Mesaj bloku gelmesin çünkü Sigortası gelen araç yok, direk Muayeneye geçsin.... Teşekkürler.

MsgBox ileti, vbInformation, "UYARI LİSTEDEKİ ARAÇLARIN SİGORTA DURUMU"

End Sub

Teşekkür ediyorum. Sağlıcakla kal...

 

[veyselemre]

Sub SİGORTA()

    On Error Resume Next

    uygunAracVar = False
    
    For i = 3 To Cells(Rows.Count, "B").End(3).Row
        bugün = CDbl(Date)

        fark = CDbl(Cells(i, "L")) - bugün
        ' fark = CDbl(Cells(i, "N")) - bugün
        ' fark = CDbl(Cells(i, "P")) - bugün

        If fark <= 30 Then
            uygunAracVar = True
            If fark < 0 Then
                ek = "  gün geçmiştir."
            Else
                ek = "  gün kalmıştır."
            End If

            If fark = 0 Then ek = "  SON Gün."

            msj = Cells(i, "B") & "   Plakalı Aracın SİGORTASINA" & vbTab & fark & vbTab & ek & Chr(10)
            ileti = ileti & msj
        End If
    Next i
    ' örneğin bunun için Mesaj bloku gelmesin çünkü Sigortası gelen araç yok, direk Muayeneye geçsin.... Teşekkürler.
    If uygunAracVar Then MsgBox ileti, vbInformation, "UYARI LİSTEDEKİ ARAÇLARIN SİGORTA DURUMU"
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Veysel Emre bey çok teşekkür ederim. Eline sağlık dua ile kal. İyi ki varsınız.