Выделить шрифт в нужных ячейках

[Иванов_ДМ]

Помогите, плиз!
Во вложении - файл, в котором макрос должен выделить красным шрифтом те ячейки по столбцу 3 (клиент), у которых объем выборки в августе (столбец 7) меньше 0,5 по отношению к июлю (столбец 4).
То есть по каждой строке "столбец 7" / "столбец 4" < 0,5

Макрос выдает ошибку 6 (Overflow).
Что это значит и как исправить?

[SAS888]

Извините, вложение не смотрел. Просто вопрос: а почему нужен именно макрос? Условное форматирование не подойдет?

[Иванов_ДМ]

SAS888, можно, но есть проблема...
Этот макрос - часть отчета, который делается автоматически из массива данных для людей, которые даже автофильтр с трудом ставить умеют Поэтому для них лучше сделать кнопку и макрос, который сам все сделает и и выдаст результат, чем объяснять им условное форматирование...

[SAS888]

чем объяснять им условное форматирование...

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

[IgorGO]

там на 0 делилось, вот и ошибка.
я бы так оставил:

Sub Несработавшие()
Dim r As Long
    With Sheets("Лист1")
        For r = .Cells(Rows.Count, 4).End(xlUp).Row To 5 Step -1
          If Cells(r, 7).Value * 2 < Cells(r, 4).Value Then
            Cells(r, 3).Font.ColorIndex = 3
          End If
        Next
    End With
End Sub

[Иванов_ДМ]

1. Сам лист отчета создается после обработки массива.
2. Условие, по которому выделяется, ячейка можем изменяться, (хотя это кажется можно сделать и в УФ)
3. По-логике, если код макроса будет нормально работать (то есть определять нужные ячейки), то я планировал добавить функцию "скрыть не выделенные строки"...
Так что все-таки наверное лучше макросом...

[Иванов_ДМ]

IgorGO пока писал ответ на предыдущий пост, решение пришло!
Спасибо огромное!
Че-то про возможную ошибку формуле я и не подумал...
А как тогда сделать с изменяемым значением условия (которое скажем будет в ячейке "A1")?

[IgorGO]

а вот и условное форматирование.

[IgorGO]

If Cells(r, 7).Value < Cells(r, 4).Value*Cells(1, 1).Value Then

[Иванов_ДМ]

Все, разобрался! Большое спасибо!