vba conditional format

[tsitsicat1]

Hello everyone!!!
I use a vba code that formats a certain column in my file

Sub coloraki()
Dim lr As Long, i As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To lr
If Range("H" & i) < 0 Then Range("B" & i).Interior.ColorIndex = 40
If Range("H" & i) > Range("B" & i) Then Range("B" & i).Interior.ColorIndex = 35
If Range("H" & i) > 0 And Range("H" & i) < Range("B" & i) Then Range("B" & i).Interior.ColorIndex = 36
Next i
End Sub

How is it possible to color also columns B:Η?
Can you help me?
Thanks in advance!!!

 

[My Aswer Is This]

Try this:

Sub coloraki()
'Modified 7/2/18 4:15 AM EDT
Dim lr As Long, i As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To lr
If Range("H" & i) < 0 Then Range("B" & i).Resize(, 7).Interior.ColorIndex = 40
If Range("H" & i) > Range("B" & i) Then Range("B" & i).Resize(, 7).Interior.ColorIndex = 35
If Range("H" & i) > 0 And Range("H" & i) < Range("B" & i) Then Range("B" & i).Resize(, 7).Interior.ColorIndex = 36
Next i
End Sub

 

[tsitsicat1]

thank you so much!!!
It works very well!!!

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

thank you so much!!!
It works very well!!!