Lookup_concat function that keeps color format of original text

Regular Visitor

I’m working in Excel 2013, so I don’t have all the newer bells & whistles. I have two worksheets, one that lists inspection data and a second yearly calendar that has a Lookup_concat function where if the date in second worksheet matches the inspection row date, another column from the inspection data is returned. As all rows in the range are reviewed, additional matches are added to the result giving a result that shows all inspections due on a particular day in the calendar.


This function works as expected. The results are all in black font though. What I need though is to keep the conditional formatting on the returned value in the concatenated value to show the color of the returned value. For example, if the Inspection Type (column C) is “Ped” then the ID_Location (Column F) changes to green in the first worksheet. In the YearlyView worksheet, I’d like all inspections of type “Ped” to show green as well, not the current black font. All of the inspection types are a different color and should show that way on the YearlyView.


I found similar code that concatenates and leaves the color formatting but I’m not sure how to incorporate it into my existing function that matches the date column. I’m having issues defining constants and determining where to add the loop to look at the formatting of each character. I’ve included this other found code in my module even though it's not called – ConcatwithFormat() and concatenate_cells_formats(cell as Range, source as Range).


It’s been years since I’ve worked with VBA and it may be a long time before my version is upgraded. Thanks in advance for any help you can offer!

0 Replies