compare 2 columns

[Freeman_100]

Hi guys

-I like to compare to columns (A, S) ,
for exemple A2 with the hole of S depnds to rows numbers of S
-and if for exemple A2 = S10, then I like to put all the row (M10, N10, O10, P 10, Q 10 and R10) in another coloumn X2

thanks alot for your advise
Cherrs

[Tom Ogilvy]

Dim rng as Range, i as long, res as Variant

set rng = Range(Cells(1,"S"),cells(rows.count,"S"))
i = 2
do while not isempty(cells(i,"A"))
res = application.Match(cells(i,"A"),rng,0)
if not iserror(res) then
cells(res,"X").Resize(1,6).Value = _
cells(i,"M").Resize(1,6)
end if
i = i + 1
Loop

--
Regards,
Tom Ogilvy



"Freeman_100" wrote:

>
> Hi guys
>
> -I like to compare to columns (A, S) ,
> for exemple A2 with the hole of S depnds to rows numbers of S
> -and if for exemple A2 = S10, then I like to put all the row (M10, N10,
> O10, P 10, Q 10 and R10) in another coloumn X2
>
> thanks alot for your advise
> Cherrs
>
>
> --
> Freeman_100
> ------------------------------------------------------------------------
> Freeman_100's Profile: http://www.excelforum.com/member.php...o&userid=33208
> View this thread: http://www.excelforum.com/showthread...hreadid=530516
>
>