Find closest values

[jokei]

Hi,
I'm new to macros and can't find a good starting point for my problem.

I want to loop through a row in a table looking for the 3 closest numbers (column D) to a value in a given cell (N5) and set the corresponding row to "yes" in column B.
So if the 3 closest values is found in D3, D6 and D7 I want B3, B6 and B7 to say "Yes" and then filter my list accordingley.

Help appreciated.

Regard Jokei

 

[jokei]

Thanks! I really appreciate your help.
What I ended up doing was writing the result for each data column in different columns and then combining them in a separate column with a simple IF formula. I found the first version of the code much easier to understand if I need to maintain it going forward.
Thanks again, this really allowed me to have unexpected progress on my work.

 

[mikerickson]

Glad it helped you. BTW, after posting #10, I realized that I had left an Offest in the last line of code. It was there for testing and should be removed.

' right code
rngDestination.Resize(UBound(arrResult), 1).Value = Application.Transpose(arrResult)