Проверка значения Inputbox

[27102014]

Доброго времени суток!
Уважаемые форумчане, прошу помочь с макросом!
Слабое место в макросе - в начале пользователь должен указать период (квартал - 1,2,3,4) через Inputbox. Не получатся сделать проверку введенного пользователем значения KW (квартал) - допустимые значения только 1,2,3,4.
Подскажите, пжл, как сделать? Сделал вот так - получается зацикливание, любое введеное значение воспринимается как неправильное.
Чтобы снова не сказали, что я сам не понимаю того, что хочу сделать - нужно ограничить значения, которые можно ввести через Inputbox. Допустимые значения -1,2,3,4 (номера кварталов).

Ввод:
KW = CLng(Val(InputBox("Укажите период(1,2,3,4 квартал), за который нужно сформировать отчет")))
If KW < 1 And KW > 4 Then
GoTo Дальше
Else:
MsgBox "Вы неправильно указали период! Допустимые значения 1,2,3,4"
GoTo Ввод
End If

Дальше:

[Hugo121]

Вариант (с дробными как-то некузяво...):

Ввод:
    Do
        KW = CLng(Val(InputBox("Укажите период(1,2,3,4 квартал), за который нужно сформировать отчет")))
        If KW < 1 Or KW > 4 Then
            MsgBox "Вы неправильно указали период! Допустимые значения 1,2,3,4"
        Else
            Exit Do
        End If
    Loop
Дальше:

[27102014]

(с дробными как-то некузяво...)

Почему? все работает отлично!!! Спасибо!!!
у InputBox стоит ограничение на ввод только целых чисел CLng(Val(InputBox ...))), и даже если ввести "2 квартал", то KW = 2, соответственно, "2,3", то KW = 2

[Hugo121]

Введите полтора и угадайте какой квартал получится...
Ввожу полтора на цифровой клавиатуре - в зависимости от раскладки получаю 1 или 2!

[27102014]

Сообщение от Hugo121

Введите полтора и угадайте какой квартал получится...
Ввожу полтора на цифровой клавиатуре - в зависимости от раскладки получаю 1 или 2!

Не сразу понял о чем Вы говорите - для ввода цифр пользуюсь "цифрами справа на клавиатуре"

Вроде коллеги поступают аналогично. В принципе наверное это не особо критично, т.к. KW не самая главная переменная в коде - далее будет еще проверка. Интересно только почему так получается и в чем разница между вводимыми цифрами?
Вот весь код

Sub VES_TR()
Путь = ThisWorkbook.Path
    
    Do
        KW = CLng(Val(InputBox("Укажите период(1,2,3,4 квартал), за который нужно сформировать отчет")))
        If KW < 1 Or KW > 4 Then
            MsgBox "Вы неправильно указали период! Допустимые значения 1,2,3,4"
        Else
            Exit Do
        End If
    Loop

Имя = Sheets("Оглавление").Range("G2") & "_" & Sheets("Оглавление").Range("G3") & "_" & " кв_" & KW & "_" & Sheets("Оглавление").Range("D17") & ".xlsb"

Name = Путь & "\" & Sheets("Оглавление").Range("D17") & "\" & KW & " квартал" & "\" & Имя

' отключаем уведомления
Application.DisplayAlerts = False

Папка = Путь & "\" & Sheets("Оглавление").Range("D17") & "\" & KW & " квартал"

        If Len(Dir(Папка, vbDirectory)) = 0 Then   'проверка существования папки
        MkDir Папка 'создаем папку нужного периода
           Else:  Select Case MsgBox("Такая папка уже существует, открыть папку?", vbYesNo)
                    Case vbYes
                      Shell "explorer.exe " & Папка, vbMaximizedFocus 'открытие папки
                      Exit Sub
                    Case vbNo 'или Case Else
                      MsgBox "Отчет не сформирован"
                      Exit Sub
                    End Select
         End If

'Отключение режима обновления экрана
Application.ScreenUpdating = False

'Открытие формы 8-ВЭС для копирования в новую папку
Application.Workbooks.Open (Путь & "\" & Sheets("Оглавление").Range("D17") & "\" & "8-ВЭС" & ".xlsb")

'сохраняем копию книги
ActiveWorkbook.SaveCopyAs Filename:=Name
ActiveWindow.Close ' закрытие

'Включение режима обновления экрана
Application.ScreenUpdating = True

'Открытие формы 8-ВЭС в новой папке для работы
Application.Workbooks.Open (Name)

Sheets("Обновить").Select

' включаем уведомления
Application.DisplayAlerts = True

MsgBox "Для формирования отчета выберети год, период и нажмите кнопку 'Сформировать отчет'"

End Sub

[IgorGO]

смотрите, что Вы проверяете

If KW < 1 And KW > 4 Then

в математике есть такое число, которое было бы ОДНОВРЕМЕННО меньше 1 и больше 4???
проверяется не то, что Вы думаете, а то что Вы написали

[27102014]

Игорь, а в чем собственно проблема?
Здесь проверяются два условия
1) KW < 1
2) KW > 4

Поиска числа вроде бы нет....

Понял ошибку - вместо And нужно было поставить Or

[RAN.]

Сообщение от Hugo121

Вариант (с дробными как-то некузяво...)

кузяво

 KW = CLng(Left$(InputBox("Укажите период(1,2,3,4 квартал), за который нужно сформировать отчет"), 1))

[27102014]

Я тоже не совсем понял значение этого слова, спасибо за код!
Немного Вас поправлю = не хватает ")"

KW = CLng(Left$((InputBox("Укажите период(1,2,3,4 квартал), за который нужно сформировать отчет")), 1))

[Hugo121]

https://www.google.lv/search?q=%D0%B...EsuhsgGPnoHwBQ