Trying to concatenate based on font color

[jeremiah]

I have imported a csv file that splits the names into 3 different colomns. I
am trying to merge the names back together but only when it meets certain
criteria. Cannot figure out how to make the following formula work only on
cells that have a font ColorIndex of 3. Have searched but can't find quite
the right answer. Thanks in advance for your help.

Sub ConcatColor()
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow '<<assumes header row
Range("P" & i) = Cells(i, 7) & " " & Cells(i, 8) & " " & Cells(i, 9)
Next
End Sub

 

[JLGWhiz]

Need value.
Range("P" & i) = Cells(i, 7).Value & " " & Cells(i, 8).Value & " " &
Cells(i, 9).Value

 

[Mike H]

Hi,

I'm not sure which cells you want to check the colorindex of but this may
get you going in the right direction

For i = 2 To lastrow '<<assumes header row
If Range("P" & i).Interior.ColorIndex = 3 Then
Range("P" & i) = Cells(i, 7) & " " & Cells(i, 8) & " " & Cells(i, 9)
Next


Mike

 

[jeremiah]

Thanks so much, I knew it was a very simple fix. I did have a compile error
but inserted an End If and works perfectly.

 

[Mike H]

Hi,

Thanks for the feedback. I never tested it so missed the missing End If.

Mike