cell color

[leroiv]

Hi! I have the code below :

Sub PopulareCelule()
    Dim k As Integer
    Dim l As Integer
    k = ActiveCell.Column
    l = ActiveCell.Row
    For i = k To 35
    If ActiveCell.Interior.ColorIndex = 4 Then
        Cells(l, i).Value = "yes"
    Else
        Cells(l, i).Value = "no"
    End If
    Next
End Sub

My problem is that when I run the macro , in the range of cells (let's say E6:AI6) , it fills only with a single value ("yes" or "no") even if in the range are cells with another color! Can you help me please? thank you!

 

[Bong]

The active cell is not changing. Therefore, If ActiveCell.Interior.ColorIndex = 4 will only have a single state. Perhaps you want If [red]cells(l,i)[/red].Interior.ColorIndex = 4?

_________________
Bob Rashkin

 

[SkipVought]

Hi,

I advise against using ActiveCell, Select method to navigate thru code.

Sub PopulareCelule()
   dim rng as range

   for each rng in range("E6:AI6")
      If rng.Interior.ColorIndex = 4 Then
        rng.Value = "yes"
      Else
        rng.Value = "no"
      End If
    Next
   next

End Sub

Skip,

_[red][/red]

 

[leroiv]

Yes, that's it! Thank you Bong and Skip!