Equivalent of an index match but return all values that meet the criteria

Originally Posted by xladept

Hi Brumbot,

Try this:

Sub Brumbot(): Dim P As Range
For Each P In Range("P4:P1000")
If P = Range("A1") Then _
Range("J" & P.row) = P
Next: End Sub

Hi xladept,

This works great, and makes perfect sense too Thankyou. I will have to remember this for later use.