Ввод данных-только целые числа

[valerij]

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

А нельзя введенные дробные округлять до целого?

Можно, просто мальчик ещё нулёвый и запросто может набрать число 2,а.
Вот почему и надо, только числа.

Мужики, спасибо за макросы, но вы их привязали к примеру, а не к реальным диапазонам в первом посте.

Я боюсь, что не осилю.

Так?

If Intersect(Target, ([D3:E26, А6:А26, H14:I17, L6:M21]).Offset(iCount& * 28) Is Nothing Then Exit Sub

[doober]

запросто может набрать число 2,а.

Мальчика в угол.

Dim мальчик As Integer
мальчик=val(Target)
If мальчик>0 'то это все класс и он в угол не идет

[valerij]

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

Мальчика в угол

Что бы поставить, мне нужно с диапазонами решить.
Не получается, почему?
Так работает
If Intersect(Target, [K3:K1569,D3:E26]) Is Nothing Then Exit Sub
А так, нет, ????
If Intersect(Target, [K3:K1569,D3:E26,А6:А26]) Is Nothing Then Exit Sub

[kuklp]

Не надо в угол. число 2,а. распознается как не число и сотрется.
Валера, не морочь голову. Нафига ж ты диапазон кириллицей обзываешь?
Пробуй:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [k3:k1569,D3:e26,a6:a26]) Is Nothing Then Exit Sub
MsgBox "bingo!"
End Sub

[valerij]

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

Нафига ж ты диапазон кириллицей обзываешь?

А -а понял, фигею
Спасибо, всё ОК!!!