Get all wanted Values in a Column

[AlexanderBB]

What's the best way to Find all instances of *Fred* in a worksheet column ?
Tried recording a macro, highlit column and Control-F but it only showed the Select part.
Should I set a Range first? Then iterate through that?
You can't use something like:
"Select Column1, Column2 from Sheet1 Where Column2 Like '*Fred*'"
The Hits are destined to build into a listview control.

A Google search brought up a few things but wasn't obvious which to choose. And suggested things like VLOOKUP and MATCH which may be well off track.
I could just For i= 1 to NumberOfRows: If.... Next etc. but that doesn't seem the most efficient. Or is that just a good/quick as anything else?

 

[mumps]

It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach a screenshot (not a picture) of your sheet. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).

 

[AlexanderBB]

This was meant as a generic question to gleam some ideas from. People here know more than I do !

 

[mumps]

Try filtering the column using wildcards such as "*Fred*".

 

[Skyybot]

Option Explicit

Sub GetAllOccurences()
Dim searchRng As Range,, fnd As Variant, startCell As Range, nextFound As Range
Set searchRng = Me.Range("A:A")
Set startCell = searchRng.Find("Fred", LookIn:=xlValues, LookAt:=xlWhole)
If Not startCell Is Nothing Then
    fnd = startCell.Address
    Set nextFound = searchRng.Find("Fred", startCell, xlValues, xlWhole)
    If Not nextFound.Address = startCell.Address Then
    Do
        fnd = fnd & "," & nextFound.Address
        Set nextFound = searchRng.Find("Fred", nextFound, xlValues, xlWhole)
    Loop Until nextFound.Address = startCell.Address
    End If
End If
fnd = Split(fnd, ",")

End Sub

 

[AlexanderBB]

Thanks Skybot. And Mumps, although I don;t know how filter is used in VBA.

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Searching a range
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.