mismatch error when populate date in adjacent cell based on word in another

[leap out]

Hello
I search for way to fix mismatch error in this line

If Range("E2:E" & I).Value = "PAID"

after populate date in adjacent cells in column F if the cells in column E contain "PAID" will show the error !
I use this

Dim I As Long, LR As Long
For I = 2 To LR
If Range("B2:B" & I).Interior.ColorIndex = xlNone Then Range("E2:E" & I) = "PAID"
If Range("E2:E" & I).Value = "PAID" Then Range("F2:F" & I) = Date
Next I

but I'm not sure where is my bad !

 

[leap out]

based on your pictures 1,2 .
does populate dates in adjacent cells"PAID" for column F ?

 

[Alex Blakenburg]

Column F is updated to PAID based on column B interior colorindex
If Range("B2:B" & I).Interior.ColorIndex = xlNone Then Range("E2:E" & I) = "PAID"

If you put in a range of cells ie B2:B4 then unless all the cells are the same interior colorindex it turns a value of Null (=xlNone)

 

[leap out]

now I understood and noted that based on specifying the range as you did it , but if make it dynamically B2:B & LR doesn't seem to be problem , right?.

 

[Alex Blakenburg]

For what you are doing just stick with using just 1 Cell in your If statements eg Range("E" & I) where I is your counter variable.