Trying to concatenate based on font color
Need value.
Range("P" & i) = Cells(i, 7).Value & " " & Cells(i, 8).Value & " " &
Cells(i, 9).Value
"jeremiah" wrote:
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
|