View Single Post
Old 11-24-2021, 04:03 PM
trevorc trevorc is offline Windows 7 32bit Office 2013
Competent Performer
Join Date: Jan 2017
Posts: 165
trevorc will become famous soon enoughtrevorc will become famous soon enough
Default Use VBA to find all cells with the same value and add to list

Hi All,
Just starting to add some more code to my current project.
We have a repair tracking system that lists each repair instance by row.
I would like to be able to search the whole sheet to see if the same repair has been here previously and if so concatenate the text in each repair action field onto a repair sheet that we put with each repair.

The code below will find the currently selected entry only. I need it to find all other instances of the Ass_Num not the current row.
Just point me in the right direction please.

Ass_Num = Intersect(acrow, tblColumns("Asset Number").Range)
                With Sheets("Repair File").Range("F:F")
            Set c = .Find(What:=Ass_Num, LookIn:=xlFormulas, LookAt:=xlNext, MatchCase:=False)
            rrow = c.row
        End With
Reply With Quote