Заменить значение на 1 если >5

[VictorM]

файл от jungo с "формой"
Если я правильно понял, что же за форма, поскольку автор темы так и не сказал, какая же форма ему нужна.

[дмидми]

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

Я бы проверял два условия:

If IsNumeric(Cells(i, "A")) And Cells(i, "A") > 5 Then...

Лень проверять, но вполне возможно возникновение ошибки.
VBA вычисляет все компоненты логического выражения.
То есть, даже определив, что IsNumeric == False,
VBA всё равно будет оценивать выражение Cells(...) > 5

В таких случаях предпочтительно что-то вроде

If IsNumeric ... then
    if Cells(...)... then
        ...
    end if
end if

[SAS888]

дмидми.
При сравнении, например, числа и текстовой строки ошибки не будет. Проверив оба условия, получим требуемый результат. Хотя, предлагаемая Вами конструкция работать будет чуть быстрее (как раз из-за того, что не всегда проверяются оба условия). Просто моя запись (вполне корректная) покороче (лень "клаву" мучать).

[VictorM]

Форма с полным вводом данных.
Сразу говорю, что это только пример.
Обязательно нужно ввести обработку ошибок, проверку на правильность ввода и формат данных и др.
Но мне лень...

[Alenka2319]

Если не пользоваться макросами, а сделать обычную примитивную формулу - функция ЕСЛИ.
Если Ячейка<=5, то
истина: 1
ложь: Ячейка.

[VictorM]

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

желательно с примером формы

Думаю,что в данном случае всё же макрос.
Хотя формулы тоже вещь хорошая.

[jungo]

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

Если не пользоваться макросами, а сделать обычную примитивную формулу - функция ЕСЛИ.
Если Ячейка<=5, то
истина: 1
ложь: Ячейка.

Можно, но в соседней ячейке, а я так понимаю (хотя никто кроме хозяина темы до конца не понимает) что хозяин темы хотел сделать именно Replace.

[VictorM]

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

(хотя никто кроме хозяина темы до конца не понимает)

эт точно
да и исчез он что-то

[rustam_colpal]

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

А я только что заменил условие и поменял файл в своём посте.
Ну ошибся человек, с кем не бывает...

SAS888
Да! Я за! Поменял и прикрепил!

Огромное Спасибо jungo!!

И всем кто принимал участие