Проверка на кратность

[Palomnik1096]

Программа проверяет введенное число на кратность 5, при этом мах число 50, вот код программы которую я написал, а чего в ней неправильно не пойму.
Public Sub Пример9()
Dim kolvotovara As Integer, i As Integer
kolvotovara = InputBox("Введите количество товара кратное 5, при этом мах значение 50 ", "Количество товара")
For i = 5 To 50 Step 5
If kolvotovara <> i Then
MsgBox "Вы ввели количество товара не кратное 5, либо больше 50"
End If
Next i
Range("E3") = "Стоимоcть " & kolvotovara & " единиц товара."
End Sub

[IgorGO]

Public Sub Пример9()
Dim kolvotovara As Integer, i As Integer
kolvotovara = InputBox("Введите количество товара кратное 5, при этом мах значение 50 ", "Количество товара")
For i = 5 To 50 Step 5
If kolvotovara = i Then exit for
Next i
if i > 50 then
MsgBox "Вы ввели количество товара не кратное 5, либо больше 50" 
End If
Range("E3") = "Стоимоcть " & kolvotovara & " единиц товара."
End Sub

приведенный вами Пример9 не ругался бы только на число 50. в макросе обычно происходит то, что в нем написано, а не то, о чем Вы думаете.

[SAS888]

Еще вариант. Без цикла:

Public Sub Пример9()
    Dim kolvotovara As Integer
    kolvotovara = InputBox("Введите количество товара кратное 5, при этом мах значение 50 ", "Количество товара")
    If kolvotovara > 50 Or kolvotovara Mod 5 <> 0 Then _
        MsgBox "Вы ввели количество товара не кратное 5, либо больше 50" Else _
        [E3] = "Стоимоcть " & kolvotovara & " единиц товара."
End Sub

[vikttur]

Согласно подписи SAS888
Смотрите ячейку Е1, меню Данные-Проверка.

[Palomnik1096]

Спасибо, для изучения разных вариантов подойдет, но в данном случае требовалось использовать цикл))