Bir sütundaki değer "1" den küçükse msgbox gönderme.

[Kavinsky]

Herkese merhaba;
Ben sistemimde kitap sayma adına bir kod yazdım D3 : 40 arasında "1" den küçük hücre var ise msgbox gönderip işlemi durdurmasını istiyorum. Fakat bunu sadece 1 hücre için uyarlayabildim D3 : 40 şeklinde yazınca hata verdi kod. Nerede eksiğim olduğunu bulamadım. Hatta bu kodu D,F,H sütunları için aynı kodda yapma imkanı var mıdır ? Şimdiden yardım ve bilgileriniz için teşekkür ederim.

If Sheets("ANLIK").Range("D3:D40").Value < "1" Then
MsgBox "Eksik Kitap Var."

 

[Ömer]

Merhaba,

Bu şekilde deneyin. Aralığı değiştirebilirsiniz.

    If WorksheetFunction.CountIf(Sheets("ANLIK").Range("D3:D40"), "<1") > 0 Then
        MsgBox "Eksik Kitap Var."
        Exit Sub
    Else
     'kodlarınız
     '
     '
    End If

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodlar ile deneyin.

Sub BirVarmi()
    Dim Bak As Range
    For Each Bak In Sheets("ANLIK").Range("D3:D40")
        If Bak.Value = 1 Then
            MsgBox "Eksik Kitap Var."
            Exit Sub
        End If
    Next
End Sub

 

[Kavinsky]

Ellerinize sağlık. Emekleriniz için teşekkür ederim üstatlar.