Я боролся с этим некоторое время сейчас. Мне нужно покрасить строки в листе Excel 6 на основе значения в столбце F. Все работает нормально, за исключением того, что код окрашивает строки в листе Excel 1! Помогите?
Вот мой код:
Sub color()
i = 2
Sheets(6).Select
For Each c In Sheets(6).Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
If Cells(i, 6).Value > 50 Then
Rng = "A" & i & ":" & "H" & i
Range(Rng).Interior.color = 4 'green
ElseIf Cells(i, 6).Value < 35 Then
Rng = "A" & i & ":" & "H" & i
Range(Rng).Interior.ColorIndex = 3 'red
Else
Rng = "A" & i & ":" & "H" & i
Range(Rng).Interior.ColorIndex = 2
End If
i = i + 1
Next c
End Sub