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

[rustam_colpal]

Народ помогите Заменить число в колонке на 1 если в ней число >5

Заранее пасиб!

[дмидми]

А в чём проблема-то? Синтаксис оператора If нужно объяснить, или что?

[rustam_colpal]

Сообщение от дмидми

А в чём проблема-то? Синтаксис оператора If нужно объяснить, или что?

Да пожалуйста

[jungo]

Макрос вот такой.

Sub rustam_colpal()

Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, "A") > 5 Then Cells(i, "A") = 1
Next

Пояснение нужно?

[rustam_colpal]

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

Макрос вот такой.

Sub rustam_colpal()

Dim i As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, "A") > 5 Then Cells(i, "A") = 1
Next

Пояснение нужно?

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

[VictorM]

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

с примером формы чего?

[rustam_colpal]

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

с примером формы чего?

Я про Excel

мне необходимо заменить значения в колонках которое меньше 5 заменить на 1

[jungo]

Прикрепил файл с двумя листами один с заголовком второй без.
Нужно запустить макрос в соответствии с названием листа

[SAS888]

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

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

Вот только жаль, что автор так и не может определиться:

Народ помогите Заменить число в колонке на 1 если в ней число >5

мне необходимо заменить значения в колонках которое меньше 5 заменить на 1

[jungo]

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

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